Exercício 08 (Gerando um mapa) | Por Émerson Rodrigues
ELEIÇÕES 2018 - Partidos eleitos por Estado*
LINK INTERATIVO: http://127.0.0.1:14497/custom/googleVis/GeoChartID191062a1de2.html
LEGENDA:
Preto: 2º turno
Azul: PSDB
Lilás: PP
Marrom: MDB
Verde: PSB
Cinza: PSD
Rosa: DEM
Vermelho: PT
Amarelo: PHS
CÓDIGO:
# fazendo um mapa dados <- read.csv("estados.csv")
est<data.frame(estado=c("Acre","Alagoas","Amapa","Amazonas","Bahia","Ceara","Distrito Federal","Espirito Santo","Goias","Maranhao","Mato Grosso","Mato Grosso do Sul","Minas Gerais","Para","Paraiba","Parana","Pernambuco","Piaui","Rio de Janeiro","Rio Grande do Norte","Rio Grande do Sul","Rondonia","Roraima","Santa Catarina","Sao Paulo","Sergipe","Tocantins"),partido=c("PP","MDB","2ºturno","PT","PSB","DEM","PCdoB","PSD,,"PHS"))
geo<gvisGeoChart(est,"estado","partido",options=list(region="BR",displayMode="region",resolution="provinces",colors['black','blue','brown','green','grey','pink','purple','red','yellow']"))
plot(geo)
*dados aleatórios













