在R中合并汇总表与总计行时报错：列类型不匹配问题排查

问题根源 #

你的summary_table2中Premium列是字符型，而total_sum2中是数值型，核心原因是原始数据master_contracts里的Jahresbeitrag ohne Provision列不是数值类型。

如果该列包含非数值内容（比如货币符号、逗号作为小数点、千分位分隔符），直接执行sum()时，R无法正确计算数值总和，最终导致分组汇总后的Premium列被强制转为字符型；而单独计算总计行时，因数据转换逻辑差异得到了数值型结果，两者类型不匹配就触发了合并错误。

解决方案 #

步骤1：转换原始列为数值型 #

先清理并转换Jahresbeitrag ohne Provision列，确保它是数值类型。根据数据实际格式选择对应方法：

• 如果列包含货币符号（如€）、千分位分隔符：用readr包的parse_number()自动提取数值：

library(dplyr)
library(readr)

master_contracts <- master_contracts %>%
  mutate(`Jahresbeitrag ohne Provision` = parse_number(`Jahresbeitrag ohne Provision`))

• 如果列用逗号作为小数点（欧洲常见格式）：先替换逗号为点，再转数值：

master_contracts <- master_contracts %>%
  mutate(`Jahresbeitrag ohne Provision` = as.numeric(gsub(",", ".", `Jahresbeitrag ohne Provision`)))

步骤2：重新生成汇总表并合并总计行 #

转换列类型后，执行原有代码时Premium列会统一为数值型，即可正常合并：

# 生成分组汇总表
summary_table2 <- master_contracts %>%
  group_by(Branche) %>%
  summarise(Premium = round(sum(`Jahresbeitrag ohne Provision`, na.rm = TRUE))) %>%
  arrange(desc(Premium))

# 生成总计行
total_sum2 <- master_contracts %>%
  summarise(Branche = "Total", Premium = round(sum(`Jahresbeitrag ohne Provision`, na.rm = TRUE)))

# 合并表
summary_table2 <- bind_rows(summary_table2, total_sum2)

更简便的替代方法：用janitor包自动添加总计 #

无需手动生成总计行，用janitor::adorn_totals()可一步完成分组汇总+添加总计：

library(janitor)

summary_table2 <- master_contracts %>%
  mutate(`Jahresbeitrag ohne Provision` = parse_number(`Jahresbeitrag ohne Provision`)) %>%
  group_by(Branche) %>%
  summarise(Premium = round(sum(`Jahresbeitrag ohne Provision`, na.rm = TRUE))) %>%
  arrange(desc(Premium)) %>%
  adorn_totals("row") # 自动在底部添加总计行

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