连接ggplot2中的geom_jitter点的线

Question

我正在尝试连接geom_jitter()上的点。

 df<-data.frame(x = c(1, 1, 2, 2, 3, 3), 
           y = c(1, 1, 2 , 3, 6, 5), 
           z = c("A", "B", "A", "B", "A", "B")) 
ggplot(df, aes(x = x, y = y, col = z)) + 
  geom_jitter() + 
  geom_line()

现在，线和点未连接。

Answer 1

library(dplyr)
ggplot(df %>% mutate(x = jitter(x), y = jitter(y)), 
       aes(x = x, y = y, col = z)) + 
  geom_point() + 
  geom_line()

Answer 2

为数据添加抖动（有些偏差），然后绘制有偏差的图。