如何用R讀取季度數據？

Question

我正在嘗試使用貝葉斯 VAR，但我什至無法正確獲取數據。 我從https://sdw.ecb.europa.eu/獲取它們，但由於其中很多是季度數據，因此我在合並變量時遇到問題，因為我無法將例如“2020-Q1”從字符轉換為日期與 as.Date。

例如，我使用 sub 函數獲取 2020-1，然后嘗試as.Date(, format="%Y-%q)但它不起作用，所以我被卡住了。

textData <- "yearQuarter,Amount
2019-Q1,1000
2019-Q2,2000
2019-Q3,3000"

df <- read.csv(text=textData,header = TRUE,stringsAsFactors = FALSE)

as.Date(df$yearQuarter,format="%Y-%q")

...產生：

> as.Date(df$yearQuarter,format="%Y-%q")
[1] NA NA NA

感謝您的幫助 ！

Answer 1

library(lubridate)

d = yq("2020-Q1")
d
# [1] "2020-01-01"
year(d)
# [1] 2020
quarter(d)
# [1] 1