Challenge

Let’s try to make a reprojection of our task map we just created so that is feels more honest or at least asthetically pleasing.

Tools Background

Note the use of +lat_0=45 and +lon_0=-115 and what they do your map.

my_proj <- "+proj=robin +lon_0=0 +x_0=0 +y_0=0 +ellps=WGS84 +datum=WGS84 +units=m +no_defs"
my_proj <- "+proj=moll +lat_0=45 +lon_0=-115 +x_0=0 +y_0=0 +ellps=WGS84 +datum=WGS84 +units=m +no_defs"

states_tr <- states %>% st_transform( crs = my_proj)
idaho_tr <- idaho %>% st_transform( crs = my_proj)

ggplot() +
  geom_sf(data = states_tr, inherit.aes = FALSE) +
  geom_sf(data = idaho_tr, inherit.aes = FALSE)