根据条件从数据框列表中删除行

Question

我有一个数据帧列表。它看起来像这样：

df1 <- data.frame(Var1 = c(1, 7, 9, 4, 2),
                  Var2 = c(7, 2, 4, 4, 3),
                  Var3 = c(3, 6, 2, 0, 8)) 

df2 <- data.frame(Var1 = c(5, 6, 2, 2, 1),
                  Var2 = c(8, 6, 6, 7, 4),
                  Var3 = c(9, 0, 1, 3, 4)) 

df3.wxyz <- data.frame(Var1 = c("w", "x", "y", "z", 3, 7, 3, 6, 6),
                       Var2 = c(NA, NA, NA, NA, 7, 5, 8, 0, 2),
                       Var3 = c(NA, NA, NA, NA, 3, 3, 4, 1, 9)) 

df4 <- data.frame(Var1 = c(2, 7, 2, 4, 8),
                  Var2 = c(8, 3, 1, 7, 3),
                  Var3 = c(9, 1, 1, 6, 5)) 

df5.wxyz <- data.frame(Var1 = c("w", "x", "y", "z", 2, 7, 3, 1, 6),
                       Var2 = c(NA, NA, NA, NA, 7, 4, 8, 1, 9),
                       Var3 = c(NA, NA, NA, NA, 8, 0, 4, 1, 2)) 

df.list <- list(df1, df2, df3.wxyz, df4, df5.wxyz)

names(df.list) <- c("df1", "df2", "df3.wxyz", "df4", "df5.wxyz")

我想从数据帧列表中删除 df3.wxyz 和 df5.wxyz 的前 4 行，因为它们包含我不需要的信息。我尝试的是以下代码，但不是只删除 df3.wxyz 和 df5.wxyz 中的前 4 行，而是从我列表中的每个数据框中删除前 4 行。我不确定是什么问题。

df.list <- lapply(df.list, function(i){
  ifelse(grepl("wxyz", names(df.list)), i <- i[-c(1:4), ], df.list)
  i
})

这是我想要实现的：

df1 <- data.frame(Var1 = c(1, 7, 9, 4, 2),
                  Var2 = c(7, 2, 4, 4, 3),
                  Var3 = c(3, 6, 2, 0, 8)) 

df2 <- data.frame(Var1 = c(5, 6, 2, 2, 1),
                  Var2 = c(8, 6, 6, 7, 4),
                  Var3 = c(9, 0, 1, 3, 4)) 

df3.wxyz <- data.frame(Var1 = c(3, 7, 3, 6, 6),
                       Var2 = c(7, 5, 8, 0, 2),
                       Var3 = c(3, 3, 4, 1, 9)) 

df4 <- data.frame(Var1 = c(2, 7, 2, 4, 8),
                  Var2 = c(8, 3, 1, 7, 3),
                  Var3 = c(9, 1, 1, 6, 5)) 

df5.wxyz <- data.frame(Var1 = c(2, 7, 3, 1, 6),
                       Var2 = c(7, 4, 8, 1, 9),
                       Var3 = c(8, 0, 4, 1, 2)) 

df.list <- list(df1, df2, df3.wxyz, df4, df5.wxyz)

names(df.list) <- c("df1", "df2", "df3.wxyz", "df4", "df5.wxyz")

Answer 1

您可以像下面那样尝试na.omit

> Map(na.omit,df.list)
$df1
  Var1 Var2 Var3
1    1    7    3
2    7    2    6
3    9    4    2
4    4    4    0
5    2    3    8

$df2
  Var1 Var2 Var3
1    5    8    9
2    6    6    0
3    2    6    1
4    2    7    3
5    1    4    4

$df3.wxyz
  Var1 Var2 Var3
5    3    7    3
6    7    5    3
7    3    8    4
8    6    0    1
9    6    2    9

$df4
  Var1 Var2 Var3
1    2    8    9
2    7    3    1
3    2    1    1
4    4    7    6
5    8    3    5

$df5.wxyz
  Var1 Var2 Var3
5    2    7    8
6    7    4    0
7    3    8    4
8    1    1    1
9    6    9    2

Answer 2

你可以试试，

df.list[grepl('wxyz', names(df.list))] <- lapply(df.list[grepl('wxyz', names(df.list))], na.omit)

根据条件从数据框列表中删除行

Remove rows from list of dataframes based on condition

if-statement

r

dataframe