如何根據數據框中的彙總統計信息製作布爾變量？

Question

我想做一個布爾列，說明每個樣本是否是最大值。 我做了這個功能，並與tapply使用它：

is.max <- function(x){ 
    x <- data.frame(x) 
    x$x <- round(x$x,5) 
    x_max <- round(max(x),5) 
    for(i in 1:nrow(x)) { 
    if(x$x[i] == x_max) x$is.max[i] <- T 
    else x$is.max[i] <- F 
    } 
return(x$is.max) 
} 

y <- c(rnorm(10), runif(10), rnorm(10,1)) 
f <- gl(3,10) 
m <- tapply(y,f,is.max) 

但有一個更好的，有效的方式來做到這一點？

{P.S.實際上，我用我的真實數據sapply，例如is.maxes<-sapply(s, function(x) is.max(x[,"Sum"]),simplify=F)}

Answer 1

是的，你可以使用帶有tapply爲此在一個行：

tapply(y,f,function(x) round(x,5)==round(max(x),5))