如何基于指定逻辑修改R语言中命名列表的元素名称？

我们需要对R语言中的命名列表My_list，按照以下逻辑修改其元素名称：

• 提取名称中的重复核心词（例如(beginner_post1 - beginner_baseline)中的beginner）
• 提取名称非重复部分里的数字（例如post1中的1）
• 重命名为Gain_数字(重复词)的格式（例如Gain_1(beginner)）

原始列表 My_list #

My_list = 
  list("(beginner_post1 - beginner_baseline)"= c(5,-2),
       "(intermediate_post1 - intermediate_baseline)"= c(6,-3),
       "(advanced_post1 - advanced_baseline)"= c(4,-1),
       "(beginner_post2 - beginner_baseline)"= c(8,-2),
       "(intermediate_post2 - intermediate_baseline)"= c(9,-3),
       "(advanced_post2 - advanced_baseline)"= c(7,-1),
       "(framework notes_posttest1 - framework notes_baseline)"=c(1,2),
       "(note-taking instruction_posttest1 - note-taking instruction_baseline)"=1
  )

期望输出 Desired_output #

Desired_output = 
  list("Gain_1(beginner)"= c(5,-2),
       "Gain_1(intermediate)"= c(6,-3),
       "Gain_1(advanced)"= c(4,-1),
       "Gain_2(beginner)"= c(8,-2),
       "Gain_2(intermediate)"= c(9,-3),
       "Gain_2(advanced)"= c(7,-1),
       "Gain_1(framework notes)" = c(1,2),
       "Gain_1(note-taking instruction)"=1
)

实现方案 #

可以通过正则表达式结合names()函数批量完成重命名，代码如下：

# 获取原列表名称
old_names <- names(My_list)

# 生成新名称
new_names <- sapply(old_names, function(x) {
  # 提取重复的核心词
  core <- sub("^\\((.*?)_.*? - \\1_.*?\\)$", "\\1", x)
  # 提取数字部分
  num <- sub("^\\(.*?(post|posttest)(\\d+).*?\\)$", "\\2", x)
  # 拼接成目标格式
  paste0("Gain_", num, "(", core, ")")
})

# 为列表设置新名称
names(My_list) <- new_names

# 验证结果
My_list

代码说明 #

• 提取核心词：正则表达式中的\\1引用了第一个捕获组的内容，确保匹配到名称中前后重复的核心部分（比如beginner、framework notes）。
• 提取数字：匹配post或posttest后缀的数字，确保准确获取非重复部分的数字标识。
• 拼接命名：按照Gain_数字(重复词)的格式组合字符串，完成重命名。

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