带条件的数据表的最大组

Question

我有这样的数据：

library(data.table)
group <- c("a","a","a","b","b","b")
cond <- c("N","Y","N","Y","Y","N")
value <- c(2,1,3,4,2,5)

dt <- data.table(group, cond, value)

group cond value
a     N    2
a     Y    1
a     N    3
b     Y    4
b     Y    2
b     N    5

我想在整个组的条件为 Y 时返回最大值。像这样的：

group cond value max
a     N    2     1
a     Y    1     1
a     N    3     1
b     Y    4     4
b     Y    2     4
b     N    5     4

我尝试将 ifelse 条件添加到分组最大值，但是，当行不满足条件时，我最终只返回 NA 的 no 条件：

dt[, max := ifelse(cond=="Y", max(value), NA), by = group]

Answer 1

假设对于每个“组”，我们需要获取“值”的max，其中“条件”为“Y”，在按“组”分组后，使用逻辑条件（@ 987654322@) 并获取max 值

dt[, max := max(value[cond == 'Y']), by = group]
dt
#   group cond value max
#1:     a    N     2   1
#2:     a    Y     1   1
#3:     a    N     3   1
#4:     b    Y     4   4
#5:     b    Y     2   4
#6:     b    N     5   4

Answer 2

你可以...

dt[CJ(group = group, cond = "Y", unique=TRUE), on=.(group, cond), 
  .(mv = max(value))
, by=.EACHI]

#    group cond mv
# 1:     a    Y  1
# 2:     b    Y  4

使用will eventually have 这样的连接优化max 计算。

---

另一种方式（最初包含在@akrun 的回答中）：

dt[cond == "Y", mv := max(value), by=group]

从之前的链接我们可以看出，除了the := part之外，这种方式已经优化过了。