代码之家 › 专栏 › 技术社区 › MYaseen208

dplyr:不带for循环的数据帧输出列表

dplyr for-loop list r

MYaseen208 · 技术社区 · 6 年前

以下代码工作正常。但是,我想得到所需的输出没有for循环。任何想法

library(magrittr)
data("mtcars")

df1 <- mtcars %>% dplyr::filter(mpg > qsec*1/2)
df2 <- mtcars %>% dplyr::filter(mpg > qsec*2/2)

df <- vector("list", 2)

for(i in 1:2){
  df[[i]] <- mtcars %>% dplyr::filter(mpg > qsec*i/2)
}

2 回复 | 直到 6 年前

akrun 6 年前

如果我们需要 list 属于 filter ED数据集,我们可以使用 map 从 purrr (部分) tidyverse 软件包)

library(tidyverse)
map(1:2, ~ mtcars %>% 
                dplyr::filter(mpg > qsec * .x/2))

若要使用单个数据集,请替换 地图 具有 map_df 要获得某种标识符,请使用 .id

map_df(1:2, ~ mtcars %>% 
                 dplyr::filter(mpg > qsec * .x/2), .id = 'grp')

s_baldur 6 年前

lapply()是替换循环的标准方法:

df <- lapply(1:2 / 2, function(x) dplyr::filter(mtcars, mpg > qsec*x))

推荐文章

monotonic · 如何将格式为“col1+col3+col4”的数据帧的行名转换为一列数字向量“c(1,3,4)”?

2 年前

buzz · 在dplyr包中,可以根据不同列中的值对列进行变异吗

2 年前

Artur Vidaurre de Almeida · 用R列中的下一个值替换NA值

2 年前

Rich · 如何通过比较R中的两列来计算不同的值?

2 年前

J.Sabree · case\u when在使用group by时忽略一些参数

2 年前

cigarettes_after_text · 有没有一种方法可以更高效地将其写入单个Dplyr语句?

2 年前

Melderon · 将dplyr转换命令转换为基R函数

2 年前

Rafael Peixoto · 熊猫有什么类似于dplyr的“列表列”的吗

2 年前

awoj · 使用pivot\u wider()时修改列名顺序

2 年前

John Thomas · 使用tidyverse/dplyr[duplicate]创建虚拟变量作为计数

2 年前