是否存在独立函数可获取pivot_wider生成的列名向量？

你可以通过以下几种简便方法直接生成pivot_wider会产出的列名，无需实际执行宽表转换：

方法1：利用tidyr::build_wider_spec（最贴合pivot_wider逻辑） #

这个函数是tidyr内置工具，能生成宽表转换的规范，从中可直接提取最终列名，完全遵循pivot_wider的命名规则（包括自定义分隔符等参数）。

library(tidyr)

# 模拟示例数据
df <- tibble(
  id = 1:3,
  grp = c("foo", "bar", "baz"),
  X = 10:12,
  Y = 20:22
)

# 生成宽表规范并提取列名
wider_spec <- build_wider_spec(
  df,
  names_from = grp,
  values_from = c(X, Y)
)

result_names <- wider_spec$name
# 输出结果："X_foo" "X_bar" "X_baz" "Y_foo" "Y_bar" "Y_baz"

如果需要自定义分隔符，比如用-代替默认的_，只需在build_wider_spec中加入names_sep参数：

wider_spec <- build_wider_spec(
  df,
  names_from = grp,
  values_from = c(X, Y),
  names_sep = "-"
)
result_names <- wider_spec$name
# 输出结果："X-foo" "X-bar" "X-baz" "Y-foo" "Y-bar" "Y-baz"

方法2：手动交叉拼接（轻量快捷） #

如果不需要适配复杂参数，直接通过字符串拼接生成列名：

library(stringr)

# 获取names_from列的唯一值
grp_unique <- unique(df$grp)
# 定义values_from列名
vals_from <- c("X", "Y")

# 交叉拼接生成列名
result_names <- str_c(
  rep(vals_from, each = length(grp_unique)),
  grp_unique,
  sep = "_"
)

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