0

不知道如何命名，所以请更改它:)

如果我有这样的数据并且我想修剪它，以便如果 V5 中有多个值中的任何一个，则只保留 V4 中具有最高值的行。例如，对于 V5=7200，行 ID 为 25，行 ID 为 20，但我只想保留行 ID 20，因为它的 V4 更高。

      V4   V5
29  9.94 5900
28 10.56 5100
27 11.34 6200
26 11.42 8300
25 13.16 7200
24 13.78 7500
23 14.16 6200
22 14.26 7500
21  14.6 7400
20 14.64 7200
19 15.86 8800

至：

      V4   V5
29  9.94 5900
28 10.56 5100
26 11.42 8300
23 14.16 6200
22 14.26 7500
21  14.6 7400
20 14.64 7200
19 15.86 8800

有没有办法以矢量化方式或一些聪明的捷径做到这一点？如果我必须为很多不同的矩阵做这件事，那么简单的结构（for 循环等）可能需要一段时间。

4

2 回答 2

2 
df<-read.table(header=T,text="      V4   V5
29  9.94 5900
28 10.56 5100
27 11.34 6200
26 11.42 8300
25 13.16 7200
24 13.78 7500
23 14.16 6200
22 14.26 7500
21  14.6 7400
20 14.64 7200
19 15.86 8800")


df1<-df[with(df,order(V4,decreasing=T)),]
df1<-df1[!duplicated(df1$V5),]
> df1
      V4   V5
19 15.86 8800
20 14.64 7200
21 14.60 7400
22 14.26 7500
23 14.16 6200
26 11.42 8300
28 10.56 5100
29  9.94 5900

df1<-df1[with(df1,order(V4)),] # if your order is important

> df1
      V4   V5
29  9.94 5900
28 10.56 5100
26 11.42 8300
23 14.16 6200
22 14.26 7500
21 14.60 7400
20 14.64 7200
19 15.86 8800
于 2012-08-21T05:08:10.930 回答
1 
df <- data.frame(V4=c(9,10,11,12,13,14,15,16),V5=c(1,2,3,3,4,5,6,6))

df
  V4 V5
1  9  1
2 10  2
3 11  3
4 12  3
5 13  4
6 14  5
7 15  6
8 16  6

df2 <- aggregate(list(V4=df$V4),by=list(V5=df$V5),function(x){max(x)})

df2
  V5 V4
1  1  9
2  2 10
3  3 12
4  4 13
5  5 14
6  6 16
于 2012-08-21T05:12:18.767 回答