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.
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)