library(dplyr)
library(sf)
png("map1.png")
map1 <- st_read("2011_Dist.shp") %>% st_as_sf %>% st_transform(crs = 2154)
plot(map1$geometry)
dev.off()

png("map2.png")
map2 <- st_read("2011_Dist.shp") %>% st_as_sf %>% st_transform(crs = 3857)
plot(map2$geometry)
dev.off()


png("map3.png")
map3 <- st_read("2011_Dist.shp") %>% st_as_sf %>% st_transform(crs = 7755)
plot(map3$geometry)
dev.off()