如何在R语言中为数据框添加指定行计算结果的新行？

方法1：用dplyr::add_row结合across指定列范围 #

这种方法直接在原数据框末尾追加行，通过across批量处理数值列的计算，同时单独指定字符列的值：

library(dplyr)

t %>%
  add_row(
    w = "NewVal",
    across(x:z, ~ .[3] - .[2])
  )

• across(x:z) 精准指定需要计算的列范围（从x到z），避免逐个列名输入
• ~ .[3] - .[2] 对每个指定列执行“第3行减第2行”的计算

方法2：先计算差值行再合并 #

如果需要更灵活的列范围（比如包含字符列w），可以先单独生成差值行，再合并到原数据框：

library(dplyr)

# 生成差值行：字符列设为"NewVal"，数值列计算第3行减第2行
diff_row <- t %>%
  slice(c(2, 3)) %>%
  summarise(across(w:z, ~ if (is.character(.)) "NewVal" else last(.) - first(.)))

# 合并到原数据框
t %>% bind_rows(diff_row)

• slice(c(2,3)) 提取用于计算的目标行
• summarise + across 批量处理所有列，根据列类型设置对应值

补充说明 #

janitor包的adorn_totals主要用于按行/列汇总所有数据，确实无法指定特定行进行计算，所以用dplyr的上述方法更适配你的需求。

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