eaglebh

mapa <- readShapeSpatial('Brasil.shp')
plot(mapa)
summary(mapa)
y <- read.csv('prefeitos12.txt')
x <- attr(mapa,"data")
x
x$indice <- 1:dim(x)[1]
x
dados <- merge(x, y,  by = "UF")
dados