Assignment 10

library(tmap)
library(sf)

## Linking to GEOS 3.8.1, GDAL 3.1.1, PROJ 6.3.1

boundary <- st_read("gtown_cville_boundary.shp")

## Reading layer `gtown_cville_boundary' from data source `/Users/devinhainje/Desktop/R/gtown_cville_boundary.shp' using driver `ESRI Shapefile'
## Simple feature collection with 2 features and 16 fields
## geometry type:  POLYGON
## dimension:      XY
## bbox:           xmin: 818428.3 ymin: 261878.9 xmax: 879160.8 ymax: 308898.9
## projected CRS:  NAD83 / Tennessee (ftUS)

map1 <- tm_shape(boundary) + tm_borders()
map2 <- tm_shape(boundary) + tm_fill() 
map3 <- tm_shape(boundary) + tm_fill() + tm_borders()
tmap_arrange(map1, map2, map3)

tm_shape(boundary) + tm_polygons("TOTALWATER")

tm_shape(boundary) +  tm_polygons("TOTALWATER") + 
  tm_compass(type = "8star", position = c("right", "top")) + 
  tm_scale_bar(breaks = c(0, 10), text.size = 1) + 
  tm_layout(title = "Germantown and Collierville Water")