R语言嵌套列表操作：用同结构单元素列表修改/添加元素

问题描述 #

我有两个R语言列表：my_list_B始终仅包含一个元素，该元素要么已存在于my_list_A中，要么需要添加至my_list_A。有没有简便方法用my_list_B的值修改my_list_A？目前我想到的方案都涉及map与递归，对这类本应简单的操作来说过于复杂。

代码示例 #

my_list_A <- list(
  level1 = list(
    item1 = 1,
    item2 = 2,
    sublist1 = list(
      subitem1 = "a",
      subitem2 = "b"
    )
  ),
  level2 = list(
    item3 = 3,
    item4 = 4,
    sublist2 = list(
      subitem3 = "c",
      subitem4 = "d"
    )
  )
)


my_list_B <- list(
  level1 = list(
    sublist1 = list(
      subitem2 = "c")
  )
)

解决方案 #

不用写递归或复杂的map操作，有两个现成工具能直接搞定：

方法1：使用purrr包的list_modify() #

purrr是tidyverse生态里专门处理列表的包，list_modify()可以精准定位嵌套列表元素，修改已有项或添加新项都能轻松完成：

# 先安装并加载purrr（如果没装过）
# install.packages("purrr")
library(purrr)

# 修改已有元素
modified_list <- list_modify(my_list_A, !!!my_list_B)

# 查看修改后的结果
str(modified_list)

这里的!!!是解引用操作符，能把my_list_B的嵌套结构展开，让函数直接定位到level1$sublist1$subitem2，将其值从"b"改为"c"。

如果是添加新元素（比如my_list_B里是my_list_A没有的项），同样适用：

# 定义包含新元素的my_list_B
my_list_B_new <- list(
  level1 = list(
    sublist1 = list(
      subitem5 = "new_value"
    )
  )
)

# 添加新元素到my_list_A
modified_list_new <- list_modify(my_list_A, !!!my_list_B_new)
str(modified_list_new)

方法2：使用base R的modifyList() #

如果不想额外安装包，base R自带的utils::modifyList()也能实现相同效果，处理嵌套列表同样友好：

modified_list_base <- modifyList(my_list_A, my_list_B)
str(modified_list_base)

这个函数会自动匹配嵌套路径，替换已有元素的值；要是my_list_B里是新元素，也会直接添加到对应位置。

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