以下是一个例子:
set.seed(123)
data<-data.frame(X=rep(letters[1:3], each=4),Y=sample(1:12,12),Z=sample(1:100, 12))
data[data==3]<-NA
我需要实现的是通过忽略 NA
,选择具有最小 Y
值的唯一 X
行:
a 4 68
b 1 4
c 2 64
什么是最好的方法来做到这一点?
data.table
包,这很简单:library(data.table)
d <- data.table(data)
d[, min(Y, na.rm=TRUE), by=X]
您还可以使用plyr
及其ddply
函数:
library(plyr)
ddply(data, .(X), summarise, min(Y, na.rm=TRUE))
或者使用基础 R:
aggregate(X ~ ., data=data, FUN=min)
d[, .SD[which.min(Y)], by=X]
然而,可以使用基本R或其他软件包来解决问题。
ddply(data, .(X), summarise, min=min(Y, na.rm=T))
X min
1 a 5
2 b 1
3 c 4
评论后编辑:要选择整行,您可以:
ddply(data, .(X), function(x) arrange(x, Y)[1, ])
X Y Z
1 a 4 68
2 b 1 4
3 c 2 64
data$index <- 1L:nrow(data)
i <- by(data, data$X, function(x) x$index[which.min(x$Y)] )
data[i, ]
X Y Z index
1 a 4 68 1
6 b 1 4 6
10 c 2 64 10
使用子集来处理每个字母,也许这可以帮助解决问题。
data<-data.frame(X=rep(letters[1:3], each=4),Y=sample(1:12,12))
dataA <- subset(data, data$X=="a")
min(dataA$Y, na.rm=TRUE)
有一种 data.table
的方法
library(data.table)
set.seed(123)
data<-data.frame(X=rep(letters[1:3], each=4),Y=sample(1:12,12),Z=sample(1:100, 12))
data[data==3]<-NA
data <- data.table(data)
data[data[,.I[which.min(Y)], by = "X"][,V1]]