r - R 数据框中的条件行删除

Question

这是一个示例数据框:

df <- data.frame(t1 = c(1,2,3,4), t2 = c(7,3,8,1), t3 = c(1,1,1,1))

df
  t1 t2 t3
1  1  7  1
2  2  3  1
3  3  8  1
4  4  1  1

我的目标是从每列中删除最大值。但是，对于像 t3 这样的列，其中列中的所有值都相等，我只需删除一个值，以便数据框中的所有三列都以三行结束，如下所示:

df2
  t1 t2 t3
1  1  7  1
2  2  3  1
3  3  1  1

Answer 1

尝试

library(data.table)
 setDT(df)[, lapply(.SD, function(x) x[-which.max(x)])]