| 日期 |
|---|
| 1960Q1 |
| 1960Q2 |
| 1960Q3 |
| 1960年第四季度 |
| 1961Q1 |
| 1961Q2 |
我有以下data.frame。我正在尝试将第一列放入 tsibble。现在我有一个问题。如何切换到日期以便可以将其读取为季度。
我尝试zoo使用
DATA.QTR <- DATA.QTR %>% mutate(QUARTER = as.Date(as.yearqtr(Date, "%Y %Q")))
但它不是在阅读它。
你几乎明白了！格式需要稍微调整。
%YQ%q:%Y代表年份，Q代表初始格式的 Q，%q代表季度。
代码
library(zoo)
DATA.QTR <- DATA.QTR %>% mutate(QUARTER = as.Date(as.yearqtr(format(Date), "%YQ%q")))
输出
> DATA.QTR
# A tibble: 6 x 2
Date QUARTER
<chr> <date>
1 1960Q1 1960-01-01
2 1960Q2 1960-04-01
3 1960Q3 1960-07-01
4 1960Q4 1960-10-01
5 1961Q1 1961-01-01
6 1961Q2 1961-04-01
数据
DATA.QTR <- structure(list(Date = c("1960Q1", "1960Q2", "1960Q3", "1960Q4",
"1961Q1", "1961Q2")), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -6L))
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句