Overplotting da diversi frame di dati in ggplot2

Question

Il mio obiettivo è tracciare il percorso di un fiume con punti che indicano siti importanti vicino al fiume.

Ho due frame di dati, dando il fiume e le coordinate del sito, rispettivamente:

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)) 

Utilizzando una trama vecchia scuola R, con il par (nuova = T) e conservare XLIM e ylim, vorrei ottenere qualcosa di simile questo:

old school plot http://users.utu.fi/susjoh/Riverplot.png

Ma vorrei farlo utilizzando ggplot2. Il fiume e punti possono essere facilmente chiamati individualmente:

ggplot(river,aes(x=long,y=lat)) + geom_path() 
ggplot(samploc,aes(x=long,y=lat,lab=site)) + geom_point() + geom_text(vjust=2) 

ho cercato di ingannare, creando la seguente frame di dati dai due precedenti:

> 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

funziona, ma la creazione di questo nuovo data frame non è così semplice come il vecchio metodo par (new = T).

Esiste un modo più semplice per sovrascrivere dai singoli frame di dati utilizzando ggplot2?

Grazie!

Answer 1

Ecco un modo per farlo

ggplot(samploc, aes(x = long, y = lat)) + 
    geom_point() + 
    geom_text(aes(label = site), vjust = 2) + 
    geom_line(data = river, aes(y = lat))