Question

我有一个包含多个数据帧的列表，我想通过每个数据帧的一列中的某些值来过滤列表中的这些数据帧。列表中的每个数据框都有一个名为 v1 的列，该列具有特殊字符 ++，-> ，现在我只想过滤具有此箭头的行（->）在列表中的每个数据框中。这是我的数据框示例，

dput(df)
df1 <- structure(list(v1 = c("->", "++", "->"),
                      t2 = c("James","Jane", "Egg")),
                 class = "data.frame", row.names = c(NA,  -3L))

dput(df2)
df2 <- structure(list(v1 = c("++", "->", "->"),
                      t2 = c("James","Jane", "Egg")),
                 class = "data.frame", row.names = c(NA,  -3L))
dput(df3)
df3 <- structure(list(v1 = c("++", "++", "->"),
                      t2 = c("James","Jane", "Egg"),
                      d3...c = c("James","Jane", "Egg")),
                 class = "data.frame", row.names = c(NA,  -3L))

我已经尝试过了，但是我没有得到经过过滤的行的数据框

idx = "->"
dfs <- list(df1,df2,df3)
lapply(dfs, function(x) x$v1 %in% idx)

有人帮助

Answer 1

idx <- "->"

# Base R
lapply(dfs, function(df) df[df$v1 == "->",])
lapply(dfs, function(df) df[df$v1 %in% idx,])

# tidyverse

library("purrr")
library("dplyr")

map(dfs, filter, v1 == "->")
map(dfs, filter, v1 %in% !! idx)

Answer 2

尝试一下：

idx <- "->"
fnct <- function(df){df <- df[df$v1 %in% idx, ]}
df1_idx <- fnct(df1)
df2_idx <- fnct(df2)
df3_idx <- fnct(df3)
dfs <- list(df1_idx, df2_idx, df3_idx)
dfs

结果：

[[1]]
  v1    t2
1 -> James
3 ->   Egg

[[2]]
  v1   t2
2 -> Jane
3 ->  Egg

[[3]]
  v1  t2 d3...c
3 -> Egg    Egg

根据一列数据框过滤数据行

2 个答案: