在 R 中的箱线图中均匀分布数据点（使用 ggplot2）

Question

我对箱线图中的数据点间距有疑问。我使用以下代码。

DF1 <- data.frame(x = c(1, 2, 3, 4, 7, 11, 20, 23, 24, 25, 30), y = c(3, 6, 12, 13, 17, 22, NA, NA, NA, NA, NA))
library(ggplot2)
library(tidyverse)
n <- 11
DF1 <- as.data.frame(DF1)
DF1 <- reshape2::melt(DF1)
DF1 %>%
  group_by(variable) %>%
  arrange(value) %>%
  mutate(xcoord = seq(-0.25, 0.25, length.out = n())) %>%
  ggplot(aes(x = variable, y = value, group = variable)) +
  geom_boxplot() +
  geom_point(aes(x = xcoord + as.integer(variable)))

这会导致以下结果：

对于 x，所有数据点从左到右均匀分布，但由于 y 的数据点较少，所以它们从左到右不是均匀分布的。如何修改上面的代码以平均间隔 y 的数据点？如有任何建议，我将不胜感激。

我发现了一个有点相似的帖子here，但这对我没有帮助。

谢谢。

Answer 1

问题在于y 中的NA 值。转到长格式后，您可以简单地省略它们：

plot_data = DF1 %>%
  na.omit %>%  ## add this here
  group_by(variable) %>%
  arrange(value) %>%
  mutate(xcoord = seq(-0.25, 0.25, length.out = n()))

ggplot(plot_data, aes(x = variable, y = value, group = variable)) +
  geom_boxplot() +
  geom_point(aes(x = xcoord + as.integer(variable)))