如何在R的pairs.panels()中按组区分不同颜色的散点图

Question

我正在尝试用R中的pairs.panels()绘制成对图，并用不同的颜色将散点图分成不同的组，这样它看起来就像下面这样：

​

​

这是我的初步尝试：

n = 1000
kindness <- rnorm(n)
beauty <- rnorm(n)
score <- kindness + beauty
c50 <- quantile(score, .50)
marriage <- ifelse(score>=c50, 1, 0)

df <- data.frame(marriage, beauty, kindness)
pairs.panels(df, digit = 3)

但这会生成以下内容：

​

​

有没有人可以帮助解决pairs.panels()中分离散点图颜色的问题？谢谢。

Answer 1

如果您首先更改圆点‘形状’( pch；例如参见https://www.datanovia.com/en/blog/pch-in-r-best-tips/)，您可以通过"bg“选项调整圆点的背景颜色：

library(psych)
n = 1000
kindness <- rnorm(n)
beauty <- rnorm(n)
score <- kindness + beauty
c50 <- quantile(score, .50)
marriage <- ifelse(score>=c50, 0, 1)
df <- data.frame(marriage, beauty, kindness)

pairs.panels(df, digits = 3, pch = 21,
             bg=c("red","purple")[factor(df$marriage)])

​

​

或者你可以使用像viridis或RColorBrewer这样的调色板，例如

pairs.panels(df, digits = 3, pch = 21,
             bg=viridis::viridis(2)[factor(df$marriage)])

​

​