R 使用季度数据创建年度 dataframe

Question

我有一个像这样的 dataframe：

date    value
"2010Q1"  1.200
"2010Q2"  1.203
"2010Q3"  2.111
"2010Q4"  2.165
"2011Q1"  1.455
"2011Q2"  1.356
"2011Q3"  2.056
"2011Q4"  2.134

我想对给定年份的每个季度求和以获得当年的总价值。 我正在寻找 function 返回：

date   value 
2010   6679
2011   7001

提前致谢 ！

Answer 1

您可以取date列的前 4 个字母，然后聚合：

dat[,"year"] <- substr(dat[,"date"], 1, 4))
aggregate(value ~ year, data=dat, FUN=sum)

Answer 2

我可能会使用dplyr ，然后使用tsibble和lubridate来获取季度格式和年份格式。 但是您也可以通过减去年份字符串来实现。

library(dplyr)
library(tsibble)
library(lubridate)

df <- tibble::tribble(
  ~date   , ~value,
  "2010Q1",  1.200,
  "2010Q2",  1.203,
  "2010Q3",  2.111,
  "2010Q4",  2.165,
  "2011Q1",  1.455,
  "2011Q2",  1.356,
  "2011Q3",  2.056,
  "2011Q4",  2.134
)

df <- df %>% 
  mutate(yearquarter = yearquarter(date),
         year = year(yearquarter))

df %>% 
  group_by(year) %>% 
  summarise(sum_value = sum(value))
#> `summarise()` ungrouping output (override with `.groups` argument)
#> # A tibble: 2 x 2
#>    year sum_value
#>   <dbl>     <dbl>
#> 1  2010      6.68
#> 2  2011      7.00

^{由reprex package (v0.3.0) 创建于 2020-09-01}