ファクタレベルで分割されたデータにベースマップを追加するにはどうすればよいですか？

Question

私はマップ

library(maps)  
library(mapdata)  
map('worldHires', c('Ireland', 'UK'), xlim=c(-16,-5.5), ylim=c(51,56))  

を持っていると私は私が機能を設定できるようにしたいのですが、動物のID

lat <- c(-11.385668, -11.389855,-12.142785,-11.94954,-11.17716, -10.456175) 
lon <- c(53.543667, 53.561507, 52.687934, 52.855068, 52.803291, 52.858737) 
ID <- c("A","A","B","B","C","C") 
df = data.frame(lat, lon, ID);df 

op <- par(mfrow = c(1,3)) 
sapply(split(df[1:2], df$ID), plot) 

の識別に基づいてプロットすることができ、いくつかの追跡データを持っています元のマップは3つの個別のトラックのそれぞれの基本レイヤーとして設定されます。

Answer 1

あなたの質問は最終的な希望の結果にはあまり明確ではありません。私はggmapライブラリがマッピングの問題に非常に有用であることを発見しました。あなたの問題のためのガイダンスを提供しようとしています。 geom_path関数は、一連の場所を接続するのに非常に便利です。この例では、ID == Bのポイントのみを接続しました。必要に応じて残りのIDを簡単に接続する必要があります。

#Sample Data 
lat <- c(-11.385668, -11.389855,-12.142785,-11.94954,-11.17716, -10.456175) 
lon <- c(53.543667, 53.561507, 52.687934, 52.855068, 52.803291, 52.858737) 
ID <- c("A","A","B","B","C","C") 
df = data.frame(lat, lon, ID) 

library(ggmap) 
library(RColorBrewer) 

#locate the center of the map 
center<-c(mean(range(df$lon)), mean(range(df$lat))) 
#in this case zoom is set by trial and error 
mymap<-qmap(location = center, zoom = 8, maptype= "terrain") 
mymap<-mymap + geom_point(aes(x=lon, y=lat, color=ID), data=df) 
mymap<-mymap + scale_size(range = c(2, 4)) + scale_color_brewer(palette = "Set1") 
mymap<-mymap + geom_path(aes(x=lon, y=lat), data=df) 

mymap<-mymap + facet_wrap(~ID, nrow =2) 
print(mymap) 

あなたはggplot2を得るために、この質問を参照して正しく動作するggmapする必要があるかもしれません：ggmap Error: GeomRasterAnn was built with an incompatible version of ggproto