嘿，手动敲一长串列名确实太折腾了！咱们可以通过动态计算列数+生成列名的方式，彻底解决这个问题，不用再手动数数字啦。

方法一：基于str_count动态生成列名 #

首先，咱们得先算出拆分后最多需要多少列——注意哦，分隔符的数量是n的话，拆分后会得到n+1列，所以要记得加1：

# 计算最大列数（分隔符数量+1）
max_col_num <- max(str_count(Applicant_data$Assignee_DWPI, ";"), na.rm = TRUE) + 1

# 生成对应的列名向量（这里用assignee_1、assignee_2...的格式，也可以改成纯数字）
col_names <- paste0("assignee_", 1:max_col_num)

# 调用separate，直接传入动态生成的列名
Applicant_data <- separate(Applicant_data, Assignee_DWPI, into = col_names, sep = " ; ")

方法二：用tidyr新函数更省心 #

如果你用的是较新版本的tidyr（1.2.0及以上），可以试试separate_wider_delim，它能自动识别最长的拆分结果，直接生成对应列名，连计算列数的步骤都省了：

Applicant_data <- separate_wider_delim(
  Applicant_data, 
  col = Assignee_DWPI, 
  delim = " ; ", 
  names_sep = "_"  # 列名会默认变成Assignee_DWPI_1、Assignee_DWPI_2...，也可以自定义前缀
)

这个函数还会自动给长度不足的行填充NA，完美适配可变长度的文本，用起来超省心！

内容的提问来源于stack exchange，提问作者Plantekös