R语言中基于列值求和条件创建新列并绘制分组柱状图问题

嘿，我完全懂你现在的困扰！你想要的是每个性别（M/F）下分别展示血清阳性和阴性的数量对比柱状图，之前的方法把总和重复赋值给每一行，这种数据格式根本没法用来画分组图，咱们来一步步搞定它：

第一步：先把数据整理成绘图需要的格式 #

你之前直接用sum()生成新列的问题在于，sum()返回的是一个单一数值，赋值给数据框列的时候会把这个数值重复填充到每一行，这样数据里全是重复的总和，ggplot根本没法区分不同的血清状态。

正确的做法是先汇总每个性别+血清状态组合的数量，这里给你两种常用方法：

方法1：用dplyr包（推荐，代码更直观） #

先加载需要的包：

library(dplyr)
library(ggplot2)

然后对数据分组汇总：

# 按性别和血清状态分组，统计每组的样本数
summary_data <- data2 %>%
  group_by(sex, seropositive) %>%
  summarize(count = n(), .groups = "drop")

这样得到的summary_data会是一个3列的数据框：sex（M/F）、seropositive（0/1）、count（对应组合的数量），这才是绘图需要的长格式数据。

方法2：用Base R（不需要额外安装包） #

如果不想装dplyr，可以用table()生成交叉表再转成数据框：

# 生成性别和血清状态的交叉计数表
count_table <- table(data2$sex, data2$seropositive)
# 转成数据框并重命名列
summary_data <- as.data.frame(count_table)
colnames(summary_data) <- c("sex", "seropositive", "count")

第二步：绘制分组并列柱状图 #

有了整理好的summary_data，就能轻松画出你想要的图了。核心是用fill参数区分血清状态，再用position="dodge"让同一性别下的两个柱子并列显示：

ggplot(summary_data, aes(x = sex, y = count, fill = factor(seropositive, labels = c("血清阴性", "血清阳性")))) +
  geom_bar(stat = "identity", position = "dodge", width = 0.7) + # position="dodge"实现并列
  labs(
    title = "不同性别蝙蝠血清阳性/阴性数量对比",
    x = "性别",
    y = "样本数量",
    fill = "血清状态"
  ) +
  theme_minimal()

代码解释： #

• factor(seropositive, labels = ...)：把0/1转换成更易懂的标签，让图的图例更清晰
• position="dodge"：默认geom_bar是堆叠显示，加上这个参数就会让同一x轴分组下的柱子并列排开
• width=0.7：调整柱子的宽度，让图看起来更美观

为什么你之前的ggplot代码只显示了阳性数量？ #

你之前用的ggplot(data2, aes(x=sex, y=seropositive)) + geom_bar(stat="identity")，本质是对每个sex分组，计算seropositive的总和——而seropositive取值是0和1，总和其实就是阳性（1）的数量，自然只会画出阳性的柱子，阴性的数量被忽略了。而我们先汇总数据的方法，把阴性（0）的数量也统计了进来，才能画出两个柱子。

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