r - 根据行的内容删除数据框中的行

Question

如果我有如下代码:

x1 <- list(1,2,3,4,5,5)
x2 <- list(1,4,7,8)
x3 <- list(5,6)
x4 <- list(1,4,4,5,6,7)
x5 <- list(1,2,3,5,6,9)
x6 <- list(1,4, 6,7,8,7)

myList <- list(x1, x2, x3, x4,x5,x6)

df <- data.frame(t(sapply(myList, function(x){c(x, rep(tail(x, 1),max(lengths(myList)) - length(x)))
})))

这给出了这样的数据框

  X1 X2 X3 X4 X5 X6
1  1  2  3  4  5  5
2  1  4  7  8  8  8
3  5  6  6  6  6  6
4  1  4  4  5  6  7
5  1  2  3  5  6  9
6  1  4  6  7  8  7

如何删除具有最高 X6 值的 2 行和具有最低 X6 值的 2 行。

Answer 1

试试这个(我根据您更新的示例 df 更新了我的答案):

o <- order(unlist(df[names(df)[ncol(df)]]))
df[-c(head(o, 2), tail(o, 2)),]

#  X1 X2 X3 X4 X5 X6
#4  1  4  4  5  6  7
#6  1  4  6  7  8  7

names(df)[ncol(df)] 给出 df 中最右侧列的名称。