如何在 R 中做 SUMIFS

Question

数据：

 set.seed(42)

df1 = data.frame(
  Date = seq.Date(as.Date("2018-01-01"),as.Date("2018-01-30"),1),
  value = sample(1:30),
  Y = sample(c("yes", "no"), 30, replace = TRUE)
)

df2 = data.frame(
  Date = seq.Date(as.Date("2018-01-01"),as.Date("2018-01-30"),7)
)

如果 df1$Date 中的日期在 df2$Date 和 df2$Date+6[=15= 之间，我想为 df2$Date 中的每个日期计算 df1$Value 的总和]

简而言之，我需要计算每周总和

Answer 1

查看库 lubridate 和 dplyr，这两个很常见。

library(lubridate)
library(dplyr)

df1$last_week_day <- ceiling_date(df1$Date, "week") + 1
df1 %>% group_by(last_week_day) %>% summarize(week_value = sum(value))

Answer 2

使用data.table，创建一个范围start/end，然后在重叠处合并，然后对组求和：

library(data.table)

df1$start <- df1$Date
df1$end <- df1$Date

df2$start <- df2$Date
df2$end <- df2$Date + 6

setDT(df1, key = c("start", "end"))
setDT(df2, key = c("start", "end"))

foverlaps(df1, df2)[, list(mySum = sum(value)), by = Date ]
#          Date mySum
# 1: 2018-01-01   138
# 2: 2018-01-08    96
# 3: 2018-01-15    83
# 4: 2018-01-22   109
# 5: 2018-01-29    39

Answer 3

我们可以使用fuzzyjoin

library(dplyr)
library(fuzzyjoin)

df2$EndDate <- df2$Date+6

fuzzy_left_join(
  df1, df2,
  by = c(
    "Date" = "Date",
    "Date" = "EndDate"
  ), match_fun = list(`>=`, `<=`)) %>% 
  group_by(Date.y) %>% summarise(Sum=sum(value))


# A tibble: 5 x 2
     Date.y       Sum
     <date>     <int>
  1 2018-01-01   138
  2 2018-01-08    96
  3 2018-01-15    83
  4 2018-01-22   109
  5 2018-01-29    39

如何在 R 中做 SUMIFS

How to do SUMIFS in R

r

sumifs