r语言 - 如何在 ggpair 中向散点图矩阵添加抖动?

Question

我想向散点图矩阵添加抖动。这个问题在堆栈溢出的下一页(而不是其他地方(中得到了解决：

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

但是，建议的抖动问题的两种解决方案都涉及已弃用的代码(plotmatrix和参数(：

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

我本来会简单地评论要求在那里更新，以免产生新问题，但这似乎需要声誉点，而且我是该网站的新手。如果我在发布问题时做错了什么，我深表歉意。

编辑：

数据如下所示：

> str(EHRound4.subset)
Classes ‘tbl_df’, ‘tbl’ and 'data.frame':   301 obs. of  22 variables:
$ Subject#         : int  1 2 3 4 6 7 8 13 14 16 ...
$ Condition        : Factor w/ 2 levels "CDR","Mturk": 1 1 1 1 1 1 1 1 
1 1 ...
$ Launch4          : int  5 8 8 5 8 5 3 8 5 6 ...
$ NewSong4         : int  6 8 8 6 8 6 8 8 8 7 ...
$ StudCom5         : int  6 5 8 3 1 3 4 8 7 7 ...
$ Textbook5        : int  8 1 8 3 1 7 8 8 8 8 ...    

这里有几次尝试来获得抖动。

> ggpairs(EHRound4.subset, columns = 3:6, 
ggplot2::aes(colour=Condition), lower = list(geom_jitter(alpha = .2)))
> ggpairs(EHRound4.subset, columns = 3:6, 
ggplot2::aes(colour=Condition, alpha=.2), lower = list(geom_jitter()))
> ggpairs(EHRound4.subset, columns = 3:6, 
ggplot2::aes(colour=Condition, alpha=.2, position="jitter"))

Answer 1

@user20650在问题下方的评论中回答了这个问题。为了完整起见，这里是答案的形式：

使用wrap，例如：

library(GGally)
ggpairs(y, lower = list(continuous=wrap("points", position=position_jitter(height=3, width=3))))

通过使用position = position_jitter()而不仅仅是position = "jitter"(这也可以(，还可以控制额外的抖动参数。