オーバーレイされた散布図の線を描くR

Question

R^2からR^2への埋め込みを視覚化したいと思います。私は元のデータと変換されたデータの散布図を重ね合わせました。同じ色に対応する星と点で線で結びつけて、どの点がどのように変形するかを見ることができます。 Rでこれを行う方法に関する考え方オーバーレイド散布図の再現可能な例は以下の通りです。

set.seed(18) 
M<-cbind(a=runif(10),b=runif(10)) 
N<-cbind(d=rnorm(10),e=rnorm(10)) 
plot(N[,1],N[,2],col=rainbow(10),pch=20,xlab="x",ylab="y") 
points(M[,1],M[,2],col=rainbow(10), pch=8) 

Answer 1

一つの方法は、segments

segments(N[,1], N[,2], M[,1], M[,2], col = rainbow(10)) 

Answer 2

である。ここggplot2を使用して、別の方法です：

library(ggplot2) 

set.seed(18) 
data <- data.frame(
    a = runif(10), 
    b = runif(10), 
    d = rnorm(10), 
    e = rnorm(10) 
) 

ggplot(data, aes(x = a, xend = d, y = b, yend = e)) + 
    geom_segment(arrow = arrow(ends = "last")) + 
    xlab("x") + ylab("y")