r - R: x 軸に対して点を広げる (ジッター) 方法は?

Question

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

この特定のコード スニペットは、ある点が別の点を超える箱ひげ図を生成します (上の例では、ある点 3 が別の点 3 を超えています)。

ポイント 3 を移動して、ポイントが y 軸上の同じ位置に留まり、x 軸上で左または右にわずかに移動するようにするにはどうすればよいですか?

Answer 1

position_jitterこれは、次の関数を使用して実現できます。

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

更新: 提供された 3 つのポイントのみをプロットするには、新しいデータセットを作成してプロットします。

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