如何仅随机化列表的列表中name元素的顺序（R语言）

问题描述 #

我有一个由子列表组成的mylist，示例代码如下：

list1 <- list(label = c(2,8,9,5,9,10,0,1), code = c(585,652,756,255,365,123), name = c("cow", "sheep", "fox", "dog", "cat"))
list2 <- list(label = c(12,2,0,3,2,11,4,5), code = c(423,912,82,171,812,712), name = c("cow", "sheep", "fox", "dog", "cat"))
list3 <- list(label = c(10,7,9,1,3,14,8,6), code = c(372,465,962,23,702,12), name = c("cow", "sheep", "fox", "dog", "cat"))
mylist <- list(list1, list2, list3)

实际场景中该列表包含10000个以上的子列表。我希望仅随机化每个子列表中**"name"元素**的顺序，而不改动"label"和"code"元素，期望输出示例如下：

list1 <- list(label = c(2,8,9,5,9,10,0,1), code = c(585,652,756,255,365,123), name = c("sheep", "fox", "cat", "cow", "dog"))
list2 <- list(label = c(12,2,0,3,2,11,4,5), code = c(423,912,82,171,812,712), name = c("sheep", "cow", "cat", "fox", "dog"))
list3 <- list(label = c(10,7,9,1,3,14,8,6), code = c(372,465,962,23,702,12), name = c("cat", "dog", "sheep", "fox", "cow"))
mylist <- list(list1, list2, list3)

目前我仅能通过以下代码随机化所有三个元素：

lapply(mylist, function(x) sapply(x, sample))

需要找到仅随机化name元素的正确方法。

解决方案 #

方法一：基础R实现 #

使用lapply遍历每个子列表，仅修改name字段为随机打乱后的版本，保留其他字段的原始顺序：

mylist_randomized <- lapply(mylist, function(x) {
  x$name <- sample(x$name)
  x
})

逻辑说明：遍历每个子列表x，对x$name执行随机抽样（sample默认打乱全部元素），然后返回修改后的子列表。label和code未被操作，保持原始顺序。

方法二：tidyverse工具实现（需purrr包） #

如果使用tidyverse生态，purrr::modify_at可以更精准地指定修改目标：

library(purrr)
mylist_randomized <- modify_at(mylist, "name", sample)

该函数会自动定位每个子列表中的name元素，对其应用sample函数，其余元素保持不变，代码更简洁。

性能提示 #

两种方法都能高效处理10000+子列表的场景。若追求极致性能，基础R的方法无需加载额外包，执行速度略快。

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