修正ポイントからいくつかのポイントを接続する方法 - R

Question

修正ポイント（常に以下のデータのP2）からペアデータを接続したいと思います。私はggplotを使用しようとしましたが、それは多くの行に現れます。次のデータ例から ：

A <-c(rep("A",4)) 
B <-c(rep("B",5)) 
X1<-c(-1,5,3,6) 
X2<-c(5,0,2,9,3) 
Y1<-c(1,-5,0,4) 
Y2<-c(-6,0,1,9,-4) 

df <- data.frame (Field = c(A,B), 
     Point = c("P1","P2","P3","P4","P1","P2","P3","P4","P5"), 
     X= c(X1,X2), 
     Y= c(Y1,Y2)) 

フィールドの例示として、私は、次のプロットを取得したい（凝視値として保管点P2）

output <- data.frame (Link =c("AP2-AP1","AP2-AP1","AP2-AP3","AP2-AP3","AP2-AP4","AP2-AP4"), 
     X=c(5,-1,5,3,5,6), 
     Y=c(-5,1,-5,0,-5,4)) 

ふりプロット：

library(ggplot2) 
ggplot(output,aes(x=X, y=Y, group=Link)) + 
geom_line()+ geom_point()+ 
theme_bw(base_size = 20)