使用formattable格式化分组数据框TOTAL列时遇兼容向量错误

错误原因 #

你遇到的"TOTAL" must return compatible vectors across groups错误，本质是分组数据框（grouped_df）的mutate操作对返回值类型有严格要求。formattable::currency()会生成带有自定义格式属性的特殊对象，当在分组状态下执行mutate时，每个分组单独生成的这类对象无法被dplyr的分组合并逻辑兼容，导致报错。

解决方案 #

方法1：先取消分组再应用货币格式 #

在mutate前用ungroup()解除数据框的分组状态，让currency()作用于整个列而非单个分组：

library(dplyr)
library(formattable)

n <- 100
data <- data.frame(
   FY = round(runif(n, 2020, 2025), digits = 0),
   LOBJ = round(runif(n, 1, 10), digits = 0),
   VALUE = rnorm(n, 50, 20)
)

data_summary <- data %>%
   group_by(FY, LOBJ) %>%
   summarize(TOTAL = sum(VALUE)) %>%
   ungroup() %>%  # 关键步骤：解除分组
   mutate(TOTAL = currency(TOTAL))

方法2：在summarize阶段直接生成货币格式 #

也可以在汇总计算时直接应用currency()，跳过后续分组状态下的mutate操作：

data_summary <- data %>%
   group_by(FY, LOBJ) %>%
   summarize(TOTAL = currency(sum(VALUE))) %>%
   ungroup()  # 建议解除分组，避免后续操作的潜在问题

原理说明 #

取消分组后，mutate会对整个列进行批量处理，currency()生成的格式对象能被正确识别为一列完整的数据；而分组状态下，每个分组单独生成的特殊格式对象无法被dplyr的分组合并机制整合，因此触发兼容性错误。

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