r - 如何为离散值生成有意义的制图员/相关图

Question

我最喜欢的用于探索性分析的工具之一是pairs()，但是在离散值数量有限的情况下，由于所有圆点都完美对齐，因此它变得平坦。考虑以下:

y <- t(rmultinom(n=1000,size=4,prob=rep(.25,4)))
pairs(y)

它并没有真正带来良好的相关性。有替代的情节样式吗？

Answer 1

如果将y更改为data.frame，则可以添加一些“抖动”，并使用col选项可以设置透明度级别(rgb中的第4个数字):

y <- data.frame(y)
pairs(sapply(y,jitter), col = rgb(0,0,0,.2))

或者，您可以使用ggplot2的plotmatrix:

library(ggplot2)
plotmatrix(y) + geom_jitter(alpha = .2)

编辑:由于ggplot2中的plotmatrix已被弃用，请使用ggpairs(上面@hadley的注释中提到的GGally包)

library(GGally)
ggpairs(y, lower = list(params = c(alpha = .2, position = "jitter")))