R中创建文本计数型透视表及dplyr、pivottabler操作问题解决

• dplyr首次分组计数得到长表是正常逻辑，仅缺少长转宽的关键转换步骤
• 手写ifelse代码的报错核心：ifelse返回的是字符型的"1"/"0"，sum()不支持对字符类型做求和运算，同时代码中存在跨对象引用（引用了tdcondes而非当前处理的pvt1数据框的列）的逻辑错位问题
• pivottabler输出第一列无列名是该包导出数据框的默认规则，手动指定列名即可修复

方案1：dplyr+tidyr 组合实现（无额外兼容问题，推荐使用） #

按照原始字段名匹配，完整代码链路如下：

library(dplyr)
library(tidyr)

# 第一步：按两个维度分组计数，得到长格式统计结果
long_count <- rpen %>% 
  # 匹配实际列名：原数据分类列名为tipo_Entrega，避免列名拼写错位
  group_by(ESM, tipo_Entrega) %>% 
  summarise(Count = n(), .groups = "drop")

# 第二步：长表转宽表，直接生成目标格式
wide_pvt <- long_count %>% 
  pivot_wider(
    names_from = tipo_Entrega,  # 用分类列的取值生成新列名
    values_from = Count,        # 用统计的计数值填充单元格
    values_fill = 0             # 缺失场景（某ESM无对应分类记录）自动填充0
  ) %>% 
  # 按需修改列名匹配目标输出
  rename(esm = ESM)

输出结果与目标格式完全一致，第一列为正常命名的关联键，可直接参与后续数据合并比对。

方案2：修正原有手写ifelse代码的报错问题 #

针对原有写的逻辑，修正两处bug后即可正常运行：

1. 去掉ifelse中对外部对象tdcondes的错位引用，直接使用当前数据框的列
2. 把ifelse返回的字符型"1"/"0"改为数值型1/0，满足sum()的运算要求
   修正后代码：

library(dplyr)

# 提取需要的两列
pvt1 <- rpen[ , c(9,25)]
# 生成计数标记并分组求和
pvt1 <- pvt1 %>% 
  mutate(
    Acu = ifelse(tipo_Entrega == "acuerdo", 1, 0),
    No_Acu = ifelse(tipo_Entrega == "no_acuerdo", 1, 0)
  ) %>% 
  select(ESM, Acu, No_Acu) %>% 
  group_by(ESM) %>% 
  summarise(
    Acu = sum(Acu), 
    No_Acu = sum(No_Acu),
    .groups = "drop"
  )

方案3：pivottabler 输出修复（解决第一列无列名问题） #

在原有pivottabler计算逻辑的基础上，导出数据框后手动补全第一列列名即可：

library(pivottabler)

# 沿用已经跑通的透视表计算逻辑
pt <- PivotTable$new()
pt$addData(rpen)
pt$addRowData("ESM")
pt$addColumnData("tipo_Entrega")
pt$defineCalculation(calculationName = "record_count", summariseExpression = "n()")

# 导出为可关联的数据框，手动指定第一列列名
pvt_df <- pt$asDataFrame()
colnames(pvt_df)[1] <- "esm"

注意：运行时需确保数据中的tipo_Entrega取值与判断条件完全匹配，比如如果原数据取值为全大写的"ACUERDO"/"NO ACUERDO"，需要把代码里的判断条件改成对应的大小写，避免计数全为0的问题。

内容的提问来源于stack exchange，提问作者Fernando de la hoz