install.packages("maps");
library(maps)
tmarias <- readShapePoly("TrêsMarias_Poligon.shp")
m <- map(tmarias, fill = TRUE, plot = TRUE)
area.map(m)