如何正确设置pivot_longer的names_sep与names_pattern？一次性转换报错求助

错误1：缺少names_sep/names_pattern的报错 #

当names_to传入多个名称时，pivot_longer需要明确如何将单个原始列名拆分成对应片段，因此必须搭配names_sep（按分隔符拆分）或names_pattern（按正则捕获组拆分）。但你的目标列名（mpg/cyl/disp/wt/qsec）都是无分隔符的独立名称，无法拆分，所以这个参数组合从一开始就不匹配你的需求。

错误2：values_to长度不符合要求的报错 #

values_to仅支持单个字符串，因为pivot_longer的核心逻辑是将所有指定宽列转换为一列值，无法同时生成两个值列。你传入长度为2的向量直接违反了参数规则。附带的警告则是因为添加names_sep后，函数尝试拆分无法拆分的列名，只能用NA填充预期的片段。

names_sep与names_pattern的实际用法 #

• names_sep：指定一个分隔符，将列名拆分为多段。例如列名为mpg_group1，用names_sep = "_"可拆成mpg和group1，对应names_to = c("metric", "group")。
• names_pattern：用正则表达式的捕获组拆分列名，每个捕获组对应names_to中的一个名称。例如列名为mpg2023，用names_pattern = "(\\w+)(\\d+)"可捕获mpg和2023，对应names_to = c("metric", "year")。

一次性实现需求的两种方法 #

你的需求本质是交叉展开两组列（1-3列和6-7列的所有组合），而非拆分单个列名，以下是两种一次性实现的方案：

方案1：用rowwise+unnest生成交叉组合

library(tidyverse)

mtcars %>%
  rowwise() %>%
  mutate(
    # 生成第一组列的name-value小表格
    group1 = list(tibble(name1 = names(.)[1:3], values1 = c(mpg, cyl, disp))),
    # 生成第二组列的name-value小表格
    group2 = list(tibble(name2 = names(.)[6:7], values2 = c(wt, qsec)))
  ) %>%
  # 展开两个小表格，自动生成所有交叉组合
  unnest(c(group1, group2)) %>%
  ungroup() %>%
  # 调整列顺序（可选）
  select(name1, values1, name2, values2, everything())

方案2：拆分两组列后按行合并

library(tidyverse)

# 提取第一组列的长格式数据，添加行ID用于合并
group1_df <- mtcars %>%
  mutate(row_id = row_number()) %>%
  pivot_longer(1:3, names_to = "name1", values_to = "values1")

# 提取第二组列的长格式数据，添加行ID
group2_df <- mtcars %>%
  mutate(row_id = row_number()) %>%
  pivot_longer(6:7, names_to = "name2", values_to = "values2")

# 按行ID合并，得到交叉组合结果
full_join(group1_df, group2_df, by = "row_id") %>%
  select(-row_id)

两种方案的输出效果与你两次调用pivot_longer的结果完全一致。

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