获取 R 中所有列中具有最大值的行

Question

可能的重复：
提取数据帧行的索引具有命名字段的 MAX 值

你好，

我有一个像这样的数据框：

   A1 A3    d
1   a pr    5
2   a be    0
3   a cd    8
4   a dy    0
5   b pr    3
6   b be    4
7   b cd    9

etc...

我想测试每一行，并根据 A1 获取唯一行并具有最大值 d

输出应该像这样

A1 A3 d
a  cd 8
b  cd 9

等。 。

数据框更大，但这只是一个例子

这可以用R来完成吗？没有循环和长的东西？

谢谢

Answer 1

最简单的方法是对 d 列进行排序，然后删除 A1 列中的重复项：

df2 <- df[order(df$d,decreasing=T),]
df2[!duplicated(df2$A1),]

这确实假设存在一个唯一的最大值，您会丢失如果超过 1 个，则得到一些结果。

Answer 2

大概

ddply(dfr, "A1", function(curdfr){curdfr[which.max(curdfr$d),]})

Answer 3

数据

mydf <- read.table(textConnection("
 Lp   A1 A3    d
 1   a pr    5
 2   a be    0
 3   a cd    8
 4   a dy    0
 5   b pr    3
 6   b be    4
 7   b cd    9"),header=T,row.names="Lp")

码

require(data.table)
mydf <- data.table(mydf)
mydf[,.SD[which.max(d)],by=A1]