RStudio中t.test分组后如何获取两组数据的标准差？

方法1：用dplyr分组计算（推荐，代码可读性高） #

如果你已经安装了dplyr包，直接用分组汇总的方式就能快速得到每组的标准差：

# 如果没装dplyr先安装
# install.packages("dplyr")
library(dplyr)

Data %>%
  group_by(Outcome) %>%
  summarise(
    标准差 = sd(Numbers, na.rm = TRUE),
    均值 = mean(Numbers, na.rm = TRUE) # 可选，可与t.test结果对比
  )

na.rm = TRUE是为了忽略数据中的缺失值，避免计算出错。

方法2：基础R的tapply函数（无需额外装包） #

不想加载第三方包的话，用基础R的tapply就能实现：

tapply(Data$Numbers, Data$Outcome, sd, na.rm = TRUE)

这个命令会直接返回一个以Outcome分组为名称、对应标准差为值的向量。

解决stat_summary的异常值问题 #

你用stat_summary得到异常值，大概率是没指定正确的统计函数。默认情况下stat_summary可能调用的不是标准差计算，或者误选了展示异常值的geom。如果是要在ggplot图上显示标准差，正确用法如下：

library(ggplot2)

ggplot(Data, aes(x = Outcome, y = Numbers)) +
  geom_boxplot() + # 可选，先画箱线图看整体分布
  stat_summary(fun = sd, geom = "text", aes(label = paste("SD:", round(..y.., 2))), vjust = -0.5)

这里fun = sd明确指定计算标准差，geom = "text"用来在图上标注数值，你也可以换成geom="point"用点标记标准差位置。如果要同时展示均值和标准差，也可以用fun.data = mean_sdl（指定mult=1对应1倍标准差）：

ggplot(Data, aes(x = Outcome, y = Numbers)) +
  stat_summary(fun.data = mean_sdl, mult = 1, geom = "errorbar", width = 0.2) +
  stat_summary(fun = mean, geom = "point")

内容的提问来源于stack exchange，提问作者Kierrajames