如何循环遍历值列表并将其添加到代码的指定区域？

Question

我有一个字符串值列表

c("String1","String2","String3")

如何创建循环或使用 lapply 将列表值添加到我希望将它们添加到的代码区域？

DataFrame_String1<- DataFrame %>%
    filter(.,ID=="String1")

DataFrame_String2<- DataFrame %>%
    filter(.,ID=="String2")

DataFrame_String3<- DataFrame %>%
    filter(.,ID=="String3")

请注意，列表中的值已添加到数据框的标题和 ID 部分。

Answer 1

如果我们需要循环，则使用 lapply 或 purrr::map

循环向量

library(purrr)
library(dplyr)
library(stringr)
lst1 <- map(c("String1", "String2", "String3"), ~ DataFrame %>%
           filter(ID == .x))
names(lst1) <- str_c("DataFrame_", c("String1", "String2", "String3"))

最好将其保存在 list 中。但是，我们可以用 list2env 从命名的 list

创建对象

list2env(lst1, .GlobalEnv)

如何循环遍历值列表并将其添加到代码的指定区域？

How to loop through a list of values and add it in the designated areas of the code?

loops

r

lapply