Нарисуйте изогнутые линии в ggmap, geom_curve не работает
Я хотел бы сделать карту Нидерландов с изогнутыми линиями между городами. У меня есть два кадра данных номер один под названием: df_verticles который содержит 24 города с их лат / лон комбинацией. Второй фрейм данных называется: df я хочу использовать, чтобы нарисовать изогнутую линию между широтой / долготой от комбинации к широте / долготе к комбинации.
> head(df_vertices)
city AmountSessions totalkWh AmountRFID scaledAmount scaledkWh Latitude Longitude
1 Alkmaar 13608 104554.68 1326 0.07139012 0.026941910 52.63903 4.755538
2 Almere 11281 100841.42 930 0.05006999 0.025985067 52.39447 5.282043
3 Amersfoort 7719 67663.30 1198 0.06449876 0.017435647 52.15108 5.383069
4 Amstelveen 25794 236437.93 2616 0.14084204 0.060925915 52.31724 4.859266
5 Amsterdam 402365 3880744.86 18574 1.00000000 1.000000000 52.34560 4.808834
> head(df)
CityChargeSessions NextCity Amount sumkWh scaledAmount scaledkWh Latitude_from Longitude_from Latitude_to Longitude_to
1 Amsterdam Alkmaar 1058 8133.736 0.18438480 0.15480933 52.34560 4.808834 52.63903 4.755538
2 Amsterdam Almere 998 7254.133 0.17392820 0.13806786 52.34560 4.808834 52.39447 5.282043
3 Amsterdam Amersfoort 566 4977.404 0.09864064 0.09473489 52.34560 4.808834 52.15108 5.383069
4 Amsterdam Amstelveen 3724 24210.289 0.64900662 0.46079423 52.34560 4.808834 52.31724 4.859266
5 Almere Amsterdam 1034 8685.526 0.18020216 0.16531155 52.39447 5.282043 52.34560 4.808834
6 Amersfoort Amsterdam 579 4936.823 0.10090624 0.09396251 52.15108 5.383069 52.34560 4.808834
Обычно ggmap - это просто подстилающий слой ggplot, поэтому я решил сначала построить желаемый график в ggplot:
ggplot_curve<- ggplot()+
geom_text(data=df_vertices, aes(x = Longitude, y = Latitude+0.025, label = df_vertices$city), size=6)+
geom_point(aes(x = Longitude, y = Latitude, size=scaledkWh), colour="red", data = df_vertices, alpha =0.5)+
scale_size_continuous(range=c(1,30))+
geom_curve(data=df, aes(x=Longitude_from, y=Latitude_from, xend=Longitude_to, yend=Latitude_to),
arrow=arrow(angle=15,ends="first",length=unit(0.7,"cm"),type="closed"), size= df$scaledAmount,alpha=0.5, curvature = 0.15)+
theme_bw()
Это именно то, что я хочу, теперь я просто хочу добавить желаемый ggmap в качестве подслоя.
Теперь я просто заменяю ggplot() на ggmap
ggmap_with_curve<- ggmap(map)+
geom_point(aes(x = Longitude, y = Latitude, size=scaledkWh), colour="red", data = df_vertices, alpha =0.5)+
scale_size_continuous(range=c(1,30))+
geom_curve(data=df, aes(x=Longitude_from, y=Latitude_from, xend=Longitude_to, yend=Latitude_to),
arrow=arrow(angle=15,ends="first",length=unit(0.7,"cm"),type="closed"), size= df$scaledAmount,alpha=0.5, curvature = 0.15)
Как вы видите, это не тот результат, на который я надеялся, R дал мне это сообщение об ошибке:
geom_curve не реализован для нелинейных координат.
Я пытался гуглить, но я сам не могу это исправить.
Поэтому мой вопрос, как мне получить этот вывод ggplot с нужной картой в качестве подслоя. Кто-нибудь может мне помочь?
1 ответ
Я думаю, используя coord_cartesian() дать вам то, что вы хотите. Используя 5 строк, показанных в вашем посте
map <- get_map(location = "Amsterdam", zoom = 11)
ggmap(map) +
geom_point(data = df_vertices,
aes(x = Longitude, y = Latitude, size = scaledkWh),
colour = "red", alpha =0.5) +
geom_curve(data = df,
aes(x = Longitude_from, y = Latitude_from, xend = Longitude_to, yend = Latitude_to),
arrow = arrow(angle = 15, ends = "first", length = unit(0.5, "cm"), type = "closed"),
size = df$scaledAmount, alpha = 0.5, curvature = 0.15, inherit.aes = TRUE)
scale_size_continuous(range=c(1,30)) +
coord_cartesian()
