Как добавить джиттер к матрице рассеяния в ggpairs?

Question

Я хочу добавить джиттер в матрицу рассеяния. Этот вопрос был рассмотрен на следующей странице (и нигде больше) по stackru:

Как создать значимый чертежник / корреляционный график для дискретных значений

Но оба решения проблемы дрожания, которые были предложены там, включают устаревший код (plotmatrix и params):

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" (что также работает) дополнительными параметрами джиттера также можно управлять.