各组累计最小值

Question

我想计算给定组内的累积min。

我当前的数据框：

Group <- c('A', 'A', 'A','A', 'B', 'B', 'B', 'B') 
Target <- c(1, 0, 5, 0, 3, 5, 1, 3) 
data <- data.frame(Group, Target))

我想要的输出：

Desired.Variable <- c(1, 0, 0, 0, 3, 3, 1, 1)
data <- data.frame(Group, Target, Desired.Variable))

对此的任何帮助将不胜感激！

Answer 1

我们可以按组使用cummin函数

data$output <- with(data, ave(Target, Group, FUN = cummin))

data
#  Group Target output
#1     A      1      1
#2     A      0      0
#3     A      5      0
#4     A      0      0
#5     B      3      3
#6     B      5      3
#7     B      1      1
#8     B      3      1

dplyr 和 data.table 的等效项是

library(dplyr)
data %>%
  group_by(Group) %>%
  mutate(output = cummin(Target))

library(data.table)
setDT(data)[, output := cummin(Target), by = (Group)]