箱线图怎么添加样本数啊

Question

怎么在R语言中用ggplot2绘制的箱线图中X轴的分组中添加样本数，ggplot2有直接的可调用的api么

Answer 1

引自免费微信小程序：皆我百晓生

在R语言中，使用ggplot2包绘制箱线图时，可以利用geom_text()函数在箱线图上添加样本数。下面是一个详细的步骤和示例代码。

首先确保已经安装了ggplot2包，如果没有，可以通过以下命令安装：

install.packages("ggplot2")

然后加载必要的库并创建一个示例数据集：

library(ggplot2)

# 创建示例数据
df <- data.frame(
  Group = rep(c("A", "B", "C"), each = 10),
  Value = c(rnorm(10, mean = 5, sd = 1), rnorm(10, mean = 8, sd = 1.5), rnorm(10, mean = 10, sd = 2))
)

接下来，我们可以使用ggplot2创建箱线图，并在每个分组旁边添加样本数（n）：

ggplot(df, aes(x = Group, y = Value)) +
  geom_boxplot(outlier.shape = NA) +  # 隐藏异常值点
  stat_summary(fun.y = median, geom = "point", size = 3, color = "red") +  # 添加中位数点
  geom_text(aes(label = paste("n =", n()), group = interaction(Group)),  # 在每个分组旁边添加样本数
            position = position_dodge(width = 0.9),  # 调整文本位置以避免重叠
            vjust = -0.5) +  # 调整垂直对齐方式
  labs(title = "Boxplot with Sample Size",
       x = "Groups",
       y = "Values")

这段代码会创建一个箱线图，其中包含三个分组(A、B、C)，并且在每个分组的下方显示对应的样本数(n)。通过调整position_dodge()中的宽度参数，可以控制标签与箱线图的距离，防止重叠。vjust = -0.5用于调整文本的垂直位置，使其位于箱线图下方。