根據條件從資料框串列中洗掉行-有解無憂

我有一個資料框串列。它看起來像這樣：

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")

我想從資料框串列中洗掉前 4 行，df3.wxyz因為df5.wxyz它們包含我不需要的資訊。我嘗試過的是以下代碼，但不是只洗掉df3.wxyzand中的前 4 行df5.wxyz，而是從串列中的每個資料幀中洗掉前 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")

uj5u.com熱心網友回復：

你可以試試，

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

uj5u.com熱心網友回復：

您可以嘗試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

轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/432504.html

標籤：r 数据框 if 语句

上一篇：Excel重復次數增加1

下一篇：迭代兩個資料框以在R中創建標準列