能否通过pivot specs实现异构pivot_wider单步转换？

现有如下示例数据：

library(dplyr)
library(tidyr)

set.seed(123)

Z <- tibble(id = rep(1:3, 2:4),
            x = runif(length(id)),
            month = sample(month.abb, length(id)))

需求是按id汇总x的求和值，同时生成月度布尔列标记x对应的发生月份。目前可以通过两次透视实现：

Z |>
  mutate(name = 'x') ->
  Z1

Z |>
  mutate(value = TRUE) ->
  Z2

inner_join(
  Z1 |> pivot_wider(id_cols = id, values_from = x, values_fn = sum),
  Z2 |> pivot_wider(id_cols = id, names_from = month, values_fill = FALSE),
  by = 'id') ->
  desired_result

也可以用pivot_wider_spec实现，但仍需两次透视：

Z1 |>
  build_wider_spec(values_from = x) ->
  spec1

Z2 |>
  build_wider_spec(names_from = month) ->
  spec2

inner_join(
  Z1 |> pivot_wider_spec(spec1, id_cols = id, values_fn = sum),
  Z2 |> pivot_wider_spec(spec2, id_cols = id, values_fill = FALSE),
  by = 'id') ->
  desired_result2

stopifnot(identical(desired_result, desired_result2))

尝试合并spec后单次调用pivot_wider_spec但失败：

# 无法运行的代码
Z |>
  mutate(name = 'x', value = TRUE) |>
  pivot_wider_spec(bind_rows(spec1, spec2), id_cols = id, values_fn = list(x = sum))

推测失败原因是合并后的spec包含NA值，且pivot_wider未设计支持此类场景，求证是否存在单次pivot_wider_spec完成的方法。

不能通过单次pivot_wider_spec调用完成这类异构透视操作，核心原因如下：

• build_wider_spec生成的规则表（spec）要求统一的透视逻辑：要么是基于values_from的数值聚合（如spec1），要么是基于names_from的分类列转置（如spec2）。合并后的spec表混合了两种逻辑的行，其中含NA的字段会导致pivot_wider_spec无法正确解析规则，直接触发报错。
• pivot_wider系列函数的设计定位是处理同构透视需求，无法同时兼容两种完全独立的透视逻辑：数值聚合与分类列转置。

如果想要用单步操作实现需求，可以不用pivot_wider_spec，而是结合group_by+summarize同时生成聚合值和布尔列：

Z |>
  group_by(id) |>
  summarize(
    x = sum(x),
    across(unique(month), ~any(month == .x), .names = "{.col}")
  ) |>
  mutate(across(-c(id, x), ~replace_na(.x, FALSE))) ->
  single_step_result

stopifnot(identical(desired_result, single_step_result))

这个方法通过across遍历所有唯一月份生成布尔标记，同时直接计算x的总和，一步得到目标结果。

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