在 x 轴上对齐 geom_jitter 点并将 y 视为频率

Question

这是一个有点奇怪的问题，但这里有......

我想使用 geom_jitter 绘制一些图，其中我在 x 轴上绘制一个分类变量并将 y 绘制为一条直线上的单个数据点。 我还希望数据点在 x 轴上的每个类别中垂直对齐。

目前我有这样的事情：

y <- rep(1:5, each = 4)
x <- rep(c("1", "2", "3", "4", "5"), each = 4)
df <- cbind(y, x)
df <- as.data.frame(df)
df$y <- as.numeric(df$y)

p <- ggplot(df, aes(x, y))
p + geom_jitter(shape = 4, color = 'darkred', width = 0, height = 1, size = 5, alpha = 1)

这给了我这个情节。

如前所述，我希望数据点垂直对齐且彼此等距。

有谁知道这是否可能？

本质上，我想像点图中的频率一样对待你。

非常感谢！

---

我忘了提到我还希望点水平对齐，这样绘图看起来有点像频率直方图。

Answer 1

您想为此使用ggbeeswarm包。

library(ggplot2)
library(ggbeeswarm)

y <- rep(1:5, each = 4)
x <- rep(c("1", "2", "3", "4", "5"), each = 4)
df <- cbind(y, x)
df <- as.data.frame(df)
df$y <- as.numeric(df$y)

p <- ggplot(df, aes(x, y))
p + geom_beeswarm(shape = 4, color = 'darkred', size = 4,
                  groupOnX = F, # only swarm on Y axis
                  cex = 2) # increase space between points

这情节