在R中无需指定目标列拆分含可变元素数量的列

separate()函数需要提前指定目标列名（into参数），没法自动适配最大流派数量，所以得用更灵活的处理方式，以下针对你的两个需求给出具体实现：

需求1：拆分为最大流派数的列，不足补N/A #

假设你的数据框为df，流派列名为genres，流派间用逗号分隔（其他分隔符可替换代码中的sep参数）：

library(tidyverse)

# 构造示例数据
df <- tibble(
  song = c("歌曲1", "歌曲2", "歌曲3"),
  genres = c("流行,摇滚", "民谣", "电子,嘻哈,爵士")
)

# 自动拆分并匹配最大流派数
df_split <- df %>%
  separate_rows(genres, sep = ",") %>%  # 按分隔符将每个流派拆为单独行
  group_by(song) %>%
  mutate(col = paste0("genre_", row_number())) %>%  # 为每个流派位置生成列名前缀
  pivot_wider(names_from = col, values_from = genres)  # 转宽表，自动补全NA

运行后会生成对应最大流派数的列（示例中是3列），流派数量不足的位置自动填充NA。

需求2：生成各流派的哑变量列 #

同样基于示例数据，生成哑变量的代码如下：

df_dummy <- df %>%
  separate_rows(genres, sep = ",") %>%
  mutate(value = 1) %>%  # 标记当前歌曲包含该流派
  pivot_wider(
    names_from = genres,
    values_from = value,
    values_fill = 0  # 未包含的流派填充0
  )

运行后会为所有出现过的流派生成单独列，歌曲包含该流派则值为1，否则为0。

注意事项 #

• 如果流派的分隔符不是逗号，将代码中的sep = ","替换为实际分隔符（如"|"、空格等）即可。
• 确保已安装并加载tidyverse包，未安装的话先运行install.packages("tidyverse")。

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