如何在R语言数据框指定列末尾添加求和行并保留原结构

没问题，我来帮你搞定这个需求！你想要打印完整的原始表格，同时给第2列（amount）和第3列（price）添加求和行对吧？首先得处理一个小细节——你的amount列现在是字符型，得转成数值才能正确求和，之后我们再构造求和行合并到原表格里。

步骤1：修正数据类型并准备原始数据 #

先把amount列从字符转为数值型，不然求和会出错：

# 原始数据
x <- data.frame(
  fruit = c("apple", "orange", "banana"),
  amount = c("10", "5", "4"),
  price = c(2.5, 2, 1.5),
  taste = c("great", "super", "nice")
)

# 将amount列转换为数值型
x$amount <- as.numeric(x$amount)

步骤2：构造求和行 #

我们创建一行汇总数据，fruit列标记为"Total"，amount和price列填入对应求和值，其他列可以留空或者自定义标记：

total_row <- data.frame(
  fruit = "Total",
  amount = sum(x$amount),
  price = sum(x$price),
  taste = ""  # 你也可以改成"Sum"之类的文本，按需调整
)

步骤3：合并表格并打印 #

把原始表格和求和行合并，然后输出结果：

# 合并原始表格与求和行
x_with_total <- rbind(x, total_row)

# 打印最终表格
print(x_with_total)

执行后你会得到这样的输出：

fruit amount price  taste
1  apple     10   2.5  great
2 orange      5   2.0  super
3 banana      4   1.5   nice
4  Total     19   6.0       

进阶：美观的表格输出（可选） #

如果想要更美观的格式化表格，可以用gt包来生成带求和行的专业表格：

# 先安装gt包（首次使用时）
# install.packages("gt")
library(gt)

x %>%
  gt() %>%
  summary_rows(
    columns = c(amount, price),
    fns = list(Total = ~sum(.)),
    formatter = fmt_number,
    decimals = 1
  )

这个代码会生成一个HTML格式的表格，求和行自动放在底部，格式更规整。

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