Question

我的输出看起来像这样：

test_list <- list(list(x = c(10, 101, 3), y = c(9, 12, 11)),
                  list(x = c(10, 133, 4), y = c(9, 15, 13)),
                  list(x = c(10, 101, 90), y = c(9, 18, 11)),
                  list(x = c(10, 101, 1), y = c(9, 10, 15)))

我想选择和修改子列表x和y的特定元素。例如，我想用向量或函数生成的数字替换x的最后一个元素-即；将向量z <- c(10, 50, 6, 12)映射到子列表x的最后一个元素，得到：

test_list_1 <- list(list(x = c(10, 101, 10), y = c(9, 12, 11)),
                  list(x = c(10, 133, 50), y = c(9, 15, 13)),
                  list(x = c(10, 101, 6), y = c(9, 18, 11)),
                  list(x = c(10, 101, 12), y = c(9, 10, 15)))

或在每个子列表x的最后一个元素上使用诸如rnorm(1)之类的函数来产生以下输出：

test_list_2 <- list(list(x = c(10, 101, rnorm(1)), y = c(9, 12, 11)),
                    list(x = c(10, 133, rnorm(1)), y = c(9, 15, 13)),
                    list(x = c(10, 101, rnorm(1)), y = c(9, 18, 11)),
                    list(x = c(10, 101, rnorm(1)), y = c(9, 10, 15)))

我一直在尝试purrr软件包，但是语法对我来说是新的。

尝试：

purrr::map(test_list, ~ .x$x[length(.x$x)])选择正确的列表/深度，但无法修改。

purrr::modify_depth(test_list, 2, rnorm(1))我可以看到为什么它选择了不正确的深度，但不确定如何纠正。

到目前为止，我只能找到以简单方式操作简单列表结构的示例，或者我没有设法转移的复杂示例。

任何帮助将不胜感激，总的来说，我的尝试似乎很笨拙，很难一概而论，以备将来使用。

谢谢！

Answer 1

在基数R中，您可以使用Map。

示例1

z <- c(10, 50, 6, 12)
Map(function(v, w) { v$x <- replace(v$x, 3, w); v; }, test_list, z)
#[[1]]
#[[1]]$x
#[1]  10 101  10
#
#[[1]]$y
#[1]  9 12 11
#
#
#[[2]]
#[[2]]$x
#[1]  10 133  50
#
#[[2]]$y
#[1]  9 15 13
#
#
#[[3]]
#[[3]]$x
#[1]  10 101   6
#
#[[3]]$y
#[1]  9 18 11
#
#
#[[4]]
#[[4]]$x
#[1]  10 101  12
#
#[[4]]$y
#[1]  9 10 15

示例2

Map(function(v, w) { v$x <- replace(v$x, 3, w); v; }, test_list, rnorm(length(test_list)))

或使用purrr::map2

purrr::map2(test_list, z, function(v, w) { v$x <- replace(v$x, 3, w); v; })
purrr::map2(test_list, rnorm(length(test_list)), function(v, w) { v$x <- replace(v$x, 3, w); v; })

修改指定的列表元素

1 个答案: