我的目标是绘制一条河流的路径,用点表示河流附近的重要地点。
我有两个数据帧,分别给出河流和站点的坐标:
river<-data.frame(
long=c(-2.816452494909265,-2.845487331898639,-2.883036393822358),
lat=c(56.38229290416972,56.36346886284386,56.36577994637793))
samploc<-data.frame(
site=c("Site1","Site2","Site3"),
long=c(-2.826213585663894,-2.816519300644918,-2.868437228090127),
lat=c(56.3649482229089,56.38166100310631,56.36716019476281))
使用旧的R图,par(new=T)并保留xlim和ylim,我会得到这样的结果:
老派情节http://users.utu.fi/susjoh/Riverplot.png
但是我想用ggplot2来做。河和点可以很容易地单独称为:
ggplot(river,aes(x=long,y=lat)) + geom_path()
ggplot(samploc,aes(x=long,y=lat,lab=site)) + geom_point() + geom_text(vjust=2)
我试图欺骗,通过创建以下数据帧从前两个:
> rivsamp
river.long river.lat samp.site samp.long samp.lat
1 -2.816452 56.38229 NA NA NA
2 -2.845487 56.36347 NA NA NA
3 -2.883036 56.36578 NA NA NA
4 NA NA Site1 -2.826214 56.36495
5 NA NA Site2 -2.816519 56.38166
6 NA NA Site3 -2.868437 56.36716
ggplot(rivsamp) +
geom_path(aes(x=river.long,y=river.lat)) +
geom_point(aes(x=samp.long,y=samp.lat)) +
geom_text(aes(x=samp.long,y=samp.lat,lab=samp.site),vjust=2)
ggplot2 plot http://users.utu.fi/susjoh/riverggplot.png
它可以工作,但是创建这个新的数据帧不像旧的par(new=T)方法那样简单。
是否有一种更简单的方法来使用ggplot2从单个数据帧进行叠加?
谢谢!
这是一种方法
ggplot(samploc, aes(x = long, y = lat)) +
geom_point() +
geom_text(aes(label = site), vjust = 2) +
geom_line(data = river, aes(y = lat))