对于小标题 R 的循环列表

Question

我想使用 for 循环创建一个随机小标题列表。 我有一个大型数据集，我需要将函数应用于小标题列表并创建小标题列表作为输出。 我知道可能有更好的方法来做到这一点，并且也很高兴听到这些，但我正试图围绕 for 循环的工作原理来思考。

我可以创建一个随机 tibble 列表，列表中的每个 tibble 命名为：

tibble_random1 <- tibble(Number = sample((1:100), 10, replace = TRUE),
                           Letter = sample((LETTERS), 10, replace = TRUE),
                           Logical = sample(c("True", "False"), 10, replace = TRUE))

tibble_random2 <- tibble(Number = sample((1:100), 10, replace = TRUE),
                           Letter = sample((LETTERS), 10, replace = TRUE),
                           Logical = sample(c("True", "False"), 10, replace = TRUE))

tibble_random3 <- tibble(Number = sample((1:100), 10, replace = TRUE),
                           Letter = sample((LETTERS), 10, replace = TRUE),
                           Logical = sample(c("True", "False"), 10, replace = TRUE))

tibble_random <- list(tibble1 = tibble_random1,
                      tibble2 = tibble_random2, 
                      tibble3 = tibble_random3)

我无法弄清楚如何使用 for 循环来执行此操作，或者 for 循环是否完全不适合此操作。

谢谢。

Answer 1

使用for循环在每次迭代中初始化一个列表并填充 1 个小标题。

tibble_random <- vector('list', 3)

for(i in seq_along(tibble_random)) {
  tibble_random[[i]] <- tibble(Number = sample((1:100), 10, replace = TRUE),
                               Letter = sample((LETTERS), 10, replace = TRUE),
                               Logical = sample(c("True", "False"), 10, replace = TRUE))
}

您也可以使用replicate或lapply来执行此操作而无需for循环。

tibble_random <- replicate(3, tibble(Number = sample((1:100), 10, replace = TRUE),
                    Letter = sample((LETTERS), 10, replace = TRUE),
                    Logical = sample(c("True", "False"), 10, replace = TRUE)), simplify = FALSE)

要分配列表的名称，您可以使用：

names(tibble_random) <- paste0('tibble', seq_along(tibble_random))