使用组中的最小值将新列添加到数据框

Question

我有以下棒球比赛参加人数的示例数据框：

team <- rep("SFG", 6)
attendance <- seq(1000:1005)
year <- c(2000, 2000, 2001, 2001, 2002, 2002)
dates <- as.Date(c("2000-01-01", "2000-01-02", "2001-01-03", "2001-01-04", "2002-02-05", "2002-03-06"))

df <- data.frame(team, attendance, year, dates)

我想创建两个新列。

第一个是称为“ opening_day”的简单二进制变量，该变量指示（是1还是0）游戏是否是一年中的第一场比赛。

第二个将被称为“ opening_day_attendance”，其中将包含该第一个游戏的出席人数。 换句话说，2000年的所有行都将参加今年的第一场比赛。

如果可能的话，我想用dplyr和管道来实现。

非常感谢！

编辑：其他人注意到这是一个可能的重复问题，尽管它通常与提到的问题相似，但另一个问题的大多数答案A）不要在原始数据集中使用值B创建新列）不要使用dplyr和管道来获得结果。

Answer 1

这是一个显而易见的重复问题。 您可以尝试以下方法：

library(data.table)
df <- data.table(team, attendance, year, dates)
df[,opening_day:=ifelse(dates==min(dates),1,0), by=year]
df[,opening_day_attendance:=attendance[dates==min(dates)], by=year]

Answer 2

我建议创建一个单独的数据框，其中包含您的最短日期，因为我想您的实际数据将包含多个团队：

require(doBy)
mins       <- summaryBy(dates ~ team, data = df, FUN = min, keep.names = TRUE)
mins$dates <- as.Date(mins$dates, origin = '1970-01-01')

> mins
  team      dates
1  SFG 2000-01-01

然后，您可以将原始数据合并到此数据框中，以隔离每个团队的第一场比赛的比赛信息：

mins <- merge(mins, df, by = c('team', 'dates'), all.x = TRUE)

> mins
  team      dates attendance year
1  SFG 2000-01-01          1 2000