Я пытался найти хорошую функцию для создания шкалы в милях для некоторых карт, которые я сделал. Тем не менее, все пакеты, которые я нашел, позволяют вам иметь масштабную шкалу в км. Мне это нужно в милях. Я наткнулся на функцию scale_bar от
devtools::install_github("3wen/legendMap")
, что позволяет вам менять единицы измерения на мили. Я играл с аргументами, чтобы заставить это работать все утро, но ничто, кажется, не заставляет это работать. Я был бы признателен, если кто-нибудь может помочь мне решить эту проблему или узнать о каких-либо пакетов, которые могут сделать это. Заранее спасибо.
graph1<-ggplot()+
geom_polygon(data=middlestates,colour="black",fill="#D3D3D3",aes(x=long,y=lat,group=group))+
geom_polygon(data=df,colour="black",aes(x=long,y=lat,group=group,fill=ALG))+
ggtitle("Figure 2.2A: Assessment Results for\nGeneral Aquatic Life Use, Spatial Extent")+
xlab("")+
ylab("")+
coord_cartesian(xlim=c(200000.732,905000.646), ylim=c(-5812.321,900000.543))+
#ggsn::scalebar(df,location="bottomleft",dist = 50,st.dist=0.02,st.size=3, height=0.01)+
scale_fill_manual("Aquatic Life Designated\nUse 2014 Assessment",values=c((values=c(colors))))+
cowplot::background_grid(major= "none",minor = "none") +
theme(axis.text.x = element_blank(), axis.ticks.x = element_blank(),
axis.text.y = element_blank(), axis.ticks.y = element_blank(),
axis.line = element_blank(),
panel.background = element_blank(),
legend.position=c(0.8,0.2),
panel.border = element_rect(fill=NA),
legend.background = element_blank(),
legend.text = element_text(size=12),
legend.title = element_text(colour="black", size=12, face="bold"),
plot.title=element_text(size=15, face="bold",hjust=0.5))
graph1+scale_bar(lon =200000.732, lat = -5812.321,distance_lon = 1,distance_lat = 5,distance_legend = 2,dist_unit = "mi", orientation = FALSE)
Сюжет, который я получаю (масштабная шкала в левом нижнем углу):
