Question

您好我想识别并标记每个组的最大数字，有人可以告诉我如何在r中完成此操作（或者excel会更容易）？以下是一个示例数据，原始数据仅包含左侧2列，我想生成第三个。在第3列中，我想将组中的最大值标记为1，例如，在组1中，最大值为.02874，因此它标记为1，否则为0.谢谢！

    x <- read.table(header=T, text="group value largest
    1 0.02827 0
    1 0.02703 0
    1 0.02874 1
    2 0.03255 0
    2 0.10394 1
    2 0.03417 0
    3 0.13858 0
    3 0.16084 0
    3 0.99830 1
    3 0.24563 0")

更新：谢谢大家的帮助！它们都是很好的解决方案！

Answer 1

最后，基础（无需包装）方法：

is.largest <- function(x) as.integer(seq_along(x) == which.max(x))
x <- transform(x, largest = ave(value, group, FUN = is.largest))

请注意，如果我是你，我会移除as.integer，只存储一个逻辑（TRUE / FALSE）向量。

Answer 2

library(data.table)
x <- data.table(x)

y <- x[,list(value = max(value), maxindicator = TRUE), by = c('group')]

z <- merge(x,y, by = c('group','value'), all = TRUE)

输出

> z
    group   value largest maxindicator
 1:     1 0.02703       0           NA
 2:     1 0.02827       0           NA
 3:     1 0.02874       1         TRUE
 4:     2 0.03255       0           NA
 5:     2 0.03417       0           NA
 6:     2 0.10394       1         TRUE
 7:     3 0.13858       0           NA
 8:     3 0.16084       0           NA
 9:     3 0.24563       0           NA
10:     3 0.99830       1         TRUE

Answer 3

以下是plyr的解决方案：

x$largest <- 0
x <- ddply(x, .(group), function(df) {
    df$largest[which.max(df$value)] <- 1
    df
})

还有一个基地R：

x$largest <- 0
l <- split(x, x$group)
l <- lapply(l, function(df) {
    df$largest[which.max(df$value)] <- 1
    df
})
x <- do.call(rbind, l)

Answer 4

这是一种不太酷的基础方法：

FUN <- function(x) {y <- rep(0, length(x)); y[which.max(x)] <- 1; y}
x$largest <- unlist(tapply(x$value, x$group, FUN))

##    group   value largest
## 1      1 0.02827       0
## 2      1 0.02703       0
## 3      1 0.02874       1
## 4      2 0.03255       0
## 5      2 0.10394       1
## 6      2 0.03417       0
## 7      3 0.13858       0
## 8      3 0.16084       0
## 9      3 0.99830       1
## 10     3 0.24563       0

基地比我预期的要难得多。

识别并标记每组中最大的数字

4 个答案: