Как добавить джиттер в geom_point, когда уже используется dodge

Я рисую сводную статистику перед отдельными geom_points, но не могу понять, как добавить джиттер на графики. Я думаю, проблема в том, что я уже использую аргумент позиции, чтобы отодвинуть верхнюю и нижнюю точки воды друг от друга.

    waterSymPop_p <- ggplot(aes(x = SymPop, y = Finish, fill = Water, color = Water), data = xanFull) +
  geom_point(position = position_dodge(width = 0.9)) +
  stat_summary(fun.data = "mean_cl_normal", geom = "pointrange", position = position_dodge(width = 0.9)) +
  coord_flip()

Вот график, который создает (очевидно, не законченный с цветовой схемой и т. Д.)  введите описание изображения здесь

Я бы хотел, чтобы точка была слегка дрожащей в каждой группе точек (т.е. не по прямой линии). Спасибо за помощь!


Ответ: используйте position_jitterdodge

Измененный код и новая цифра:

ggplot(aes(x = SymPop, y = Finish, fill = Water, color = Water), data = xanFull) +
  geom_point(position = position_jitterdodge(dodge.width = 0.9, jitter.width = 0.2)) +
  stat_summary(fun.data = "mean_cl_normal", geom = "pointrange", position = position_dodge(width = 0.9)) +
  coord_flip()

введите описание изображения здесь


person jwb4    schedule 21.07.2016    source источник
comment
вы имеете в виду уклонение от дрожания docs.ggplot2.org/current/position_jitterdodge.html   -  person Drey    schedule 21.07.2016
comment
Здорово! Я знал, что это будет что-то простое. Я исправлю сообщение, чтобы отразить решение. Спасибо!   -  person jwb4    schedule 21.07.2016
comment
@ jwb4 Вы должны добавить свой ответ в качестве ответа ниже, а не в вопросе. В этом нет ничего плохого, и тогда вы можете проголосовать за него, и вопрос можно будет пометить как ответ.   -  person beroe    schedule 22.07.2016


Ответы (1)


Дрей ответил на это.

Ответ: используйте position_jitterdodge

Измененный код и новая цифра:

ggplot(aes(x = SymPop, y = Finish, fill = Water, color = Water), data = xanFull) +
  geom_point(position = position_jitterdodge(dodge.width = 0.9, jitter.width = 0.2)) +
  stat_summary(fun.data = "mean_cl_normal", geom = "pointrange", position = position_dodge(width = 0.9)) +
  coord_flip()

введите описание изображения здесь

person jwb4    schedule 21.07.2016