R：如何相对于x轴扩展（抖动）点？

我在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))

---

dat这可以通过使用
position\u jitter
功能来实现：

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

更新：
要仅打印提供的三个点，可以构建新的数据集并打印：

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)) 

points\u dat
ggplot2
现在包括
position\u dodge（）
。根据帮助的描述：“避开保持几何体的垂直位置，同时调整水平位置。”

因此，您可以将其用作
geom_点（position=position_dodge（0.5））
或者，如果您想要避开通过线连接的点，并且需要在两个geom上的减淡相同，您可以使用以下方法：

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)

dat
ggplot2
现在有一个单独的
geom
用于此名为
geom\u jitter
的参数，因此不需要
position=dodge
或
position=position\u dodge（））
参数。此处适用于OP的示例：

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_jitter(aes(y=c(3, 3, 5)))

dat非常感谢您的快速响应。是的，有一次我也试过。问题是，当我使用抖动函数时，它会绘制许多点。在我的例子中，我有三个点，位置3上有两个，但是当我加上位置抖动时，它会画出超过10个点。你知道为什么吗？正是我需要的！谢谢