CODEWITHSUNDEEP
r
user1322296
user1322296

Reputation: 566

find highest value within factor levels

if I have the following dataframe:

value    factorA    factorB
1           a          e
2           a          f
3           a          g
1           b          k
2           b          l
3           b          m
1           c          e
2           c          g

how can I get for each factorA the highest value and the entry from factorB associated with it i.e.

value   factorA factorB

3         a        g
3         b        m
2         c        g

Is this possible without first using

blocks<-split(factorA, list(), drop=TRUE)

and then sorting each block$a as this will be performed many times and number of blocks will always change.

Upvotes: 6

Views: 8970

Answers (2)

Stat-R
Stat-R

Reputation: 5270

With your data 

df<- structure(list(value = c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L), factorA = structure(c(1L, 
        1L, 1L, 2L, 2L, 2L, 3L, 3L), .Label = c("a", "b", "c"), class = "factor"), 
            factorB = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 1L, 3L), .Label = c("e", 
            "f", "g", "k", "l", "m"), class = "factor")), .Names = c("value", 
        "factorA", "factorB"), class = "data.frame", row.names = c(NA, 
        -8L))

Using ddply function in plyr package

> df2<-ddply(df,c('factorA'),function(x) x[which(x$value==max(x$value)),])
  value factorA factorB
1     3       a       g
2     3       b       m
3     2       c       g

Or,

> rownames(df2) <- df2$factorA
> df2
  value factorA factorB
a     3       a       g
b     3       b       m
c     2       c       g

Upvotes: 4

Josh O&#39;Brien
Josh O&#39;Brien

Reputation: 162371

Here is one option, using base R functions:

maxRows <- by(df, df$factorA, function(X) X[which.max(X$value),])
do.call("rbind", maxRows)
#   value factorA factorB
# a     3       a       g
# b     3       b       m
# c     2       c       g

Upvotes: 12

Related Questions