R: como espalhar (jitter) pontos em relação ao eixo x?

Tenho o seguinte excerto de código em R: 

dat <- data.frame(cond = factor(rep("A",10)), 
                  rating = c(1,2,3,4,6,6,7,8,9,10))
ggplot(dat, aes(x=cond, y=rating)) +
  geom_boxplot() + 
  guides(fill=FALSE) +
  geom_point(aes(y=3)) +
  geom_point(aes(y=3)) +
  geom_point(aes(y=5))
Este trecho específico de código produz um boxplot onde um ponto passa por outro (no caso acima, um ponto 3 passa por outro ponto 3).

Como posso mover o ponto 3 para que o ponto permaneça na mesma posição no eixo y, Mas é ligeiramente movido para a esquerda ou para a direita no eixo x?

Author: chao, 2015-07-14
Source

2 answers

Isto pode ser conseguido usando a função position_jitter: 

geom_point(aes(y=3), position = position_jitter(w = 0.1, h = 0))

actualizar : Para desenhar apenas os três pontos fornecidos, poderá construir um novo conjunto de dados e desenhar o seguinte: 

points_dat <- data.frame(cond = factor(rep("A", 3)), rating = c(3, 3, 5))                  
ggplot(dat, aes(x=cond, y=rating)) +
  geom_boxplot() + 
  guides(fill=FALSE) +
  geom_point(aes(x=cond, y=rating), data = points_dat, position = position_jitter(w = 0.05, h = 0))
 14
Author: Lars Lau Raket, 2015-07-14 12:16:25

ggplot2 agora inclui position_dodge(). A partir da descrição da ajuda: " O desvio preserva a posição vertical de um geom, ajustando a posição horizontal."

Assim, pode usá - lo como geom_point(position = position_dodge(0.5)) ou, se quiser evitar pontos que estão ligados por linhas e precisar do dodge para ser o mesmo em ambos os geoms, pode usar algo como: 

dat <- data.frame(cond = rep(c("A", "B"), each=10), x=rep(1:10, 2), y=rnorm(20))
dodge <- position_dodge(.3) # how much jitter on the x-axis?
ggplot(dat, aes(x, y, group=cond, color=cond)) + 
  geom_line(position = dodge) + 
  geom_point(position = dodge)
 4
Author: Florian, 2018-01-23 10:46:36