R中的绘图函数中的45度线

Question

我有这样的数据:

df <- data.frame(X=rnorm(10,0,1), Y=rnorm(10,0,1), Z=rnorm(10,0,1))

我需要将每个变量相互映射,所以我使用了

plot(df)

它将df中的每个变量与彼此完全相符.

但我想在每个子图中添加45度线(其中x = y).我想知道怎么做？我也尝试过循环但是由于"空间约束"它不会发生[实际上我在df中有5个变量].请帮忙.

谢谢

Answer 1

plot(df)调用pairsplot.frames.所以,使用这个答案,我们可以尝试:

my_line <- function(x,y,...){
    points(x,y,...)
    segments(min(x), min(y), max(x), max(y),...)
}
pairs(df, lower.panel = my_line, upper.panel = my_line)