R语言如何用100减去dataframe列总和后新增数据行？

你原来的代码逻辑错误，编写的索引语法是对列进行筛选，而非新增行，才会出现列重复、异常列的问题。

1. 预处理Bacteria列（可选，避免因子类型无法新增值报错）

df$Bacteria <- as.character(df$Bacteria)

2. 计算各数值列的目标值：100减去对应列的求和结果

# 2:ncol(df)即跳过第一列非数值列，na.rm=TRUE可按需添加，避免缺失值导致计算结果为NA
new_numeric <- 100 - colSums(df[, 2:ncol(df)], na.rm = TRUE)

3. 构造符合原df结构的新行

# t() 是对计算结果转置，保证列顺序和原df完全匹配
new_row <- data.frame(Bacteria = "D", t(new_numeric))

4. 将新行追加到原df末尾

df_result <- rbind(df, new_row)

用你给出的示例数据测试，运行后输出结果如下：

Bacteria Sample1 Sample2
1        A     4.7     4.9
2        B     8.4     2.9
3        C     8.9     1.4
4        D    78.0    90.8

完全符合预期效果。

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