Я недавно перезапустил свой код ggmap, и шкала ggsn для ggmap больше не работает. Когда я удаляю функцию масштабной линейки, я могу успешно создать ggmap. Он работал несколько недель назад, но теперь выдает следующую ошибку:
Ошибка в st_geometry (legend2) <- NULL: не удалось найти функцию
"St_geometry <-" </p>
Это новая ошибка, и я очень смущен этим, поскольку я не вызываю эту функцию напрямую.
Ниже приведен мой фрагмент кода ggmap и используемые мной зависимости / библиотеки
if(!requireNamespace("devtools"))install.packages("devtools")
devtools::install_github("dkahle/ggmap", ref = "tidyup")
library(ggplot2)
register_google(key = "REDACTED")
devtools::install_github('oswaldosantos/ggsn')
MAD_map <- ggmap(get_map(location=c(-89.410087,43.074243),
zoom=14, scale=4, source = "stamen",
maptype = "terrain")) +
ggsn::scalebar(x.min = -89.387949, x.max = -89.387952,
y.min =43.090330, y.max = 43.0919, location="topright",
dist = .5, transform = TRUE, dist_unit = "km",
model = "GRS80", height =.2, st.size = 3, st.dist = .5) +
geom_point(data = Location_points_DF,
aes(x=long,y=lat,color= dot.color, size=5),
shape = c(12, shape.list[c(1,3,5,7,8)])) +
scale_shape_manual(values= c(12, shape.list[c(1,3,5,7,8)]))+
scale_color_manual(values = Location_points_DF$dot.color ) +
annotate("text", x = Location_points_DF$long, y = Location_points_DF$lat,
label = c("3","5","6","1","4","2"), size = 5) +
theme(legend.position="none",
axis.title.x=element_blank(),
axis.text.x=element_blank(),
axis.ticks.x=element_blank(),
axis.title.y=element_blank(),
axis.text.y=element_blank(),
axis.ticks.y=element_blank() )