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)调用pairs来绘制data.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)