Я тоже не вижу, как это можно сделать легко.Однако мы можем передать эти параметры вручную.Сначала нам нужно определить, какой layer
графика соответствует этим точкам.Что мы можем сделать с
pp <- ggline(ToothGrowth, x = "dose", y = "len",
add = c("mean_se", "jitter"), size = 2)
idx <- which(sapply(pp$layers, function(l) "PositionJitter" %in% class(l$position)))
Остальное не требует пояснений:
pp$layers[[idx]]$aes_params$alpha <- 0.2
pp$layers[[idx]]$aes_params$size <- 3
pp
Хорошо, чтоэтот подход легко обобщаем.