Question

我有一个数据集，第一列是Year-Quarter格式的日期，如下所示

 1959-I   
 1959-II   
 1959-III   
 1959-IV    
 1960-I   
 1960-II   
 1960-III   
 1960-IV

我已将数据集导入R，但我不知道如何使用Date函数将其转换为as.Date格式，因为there doesn't appear to be a conversion specification for quarters我刚刚开始学习R

我能想到的最好的就是

#extract the year
> dates <- substring(data$X,1,4)
> dates[1:8]
[1] "1959" "1959" "1959" "1959" "1960" "1960" "1960" "1960"
> dates <- as.numeric(dates)

#extract the quarter
> quarters <- substring(data$X,6)
> quarters[1:10]
[1] "I "   "II "  "III " "IV "  "I "   "II "  "III " "IV "

但这不可能是这样做的最佳方式，它仍然让我遇到如何处理我的系列quarters的问题。更糟糕的是，每个角色的末尾都有一个空白字符，我不知道如何处理，因为季度字符串有3种不同的“长度”。

当然，另一个选择是制作我自己的宿舍系列，例如

quarters <- rep(c(1,2,3,4),dates[length(dates)]-dates[1])

（我为自己编写最后一行感到自豪！）。

所以我的问题：是否有一种内置的方式来导入我在R中的格式的季度数据，如果没有，还有其他任何格式（仍然用于季度数据）？关于最佳进行方式的任何建议？

Answer 1

假设我们有数据1：8，它对应于你提到的8个季度。然后我们可以这样做：

ts(1:8, start = c(1959, 1), frequency = 4)
##      Qtr1 Qtr2 Qtr3 Qtr4
## 1959    1    2    3    4
## 1960    5    6    7    8

此外，zoo包还有"yearqtr"类：

 library(zoo)

 z <- zooreg(1:8, start = as.yearqtr("1959-1"), frequency = 4)
 z
 ## 1959 Q1 1959 Q2 1959 Q3 1959 Q4 1960 Q1 1960 Q2 1960 Q3 1960 Q4 
 ##       1       2       3       4       5       6       7       8

如果我们确实有这样一个不一定是连续的宿舍的载体：

dt <- c("1959-I", "1959-II", "1959-III", "1959-IV", "1960-I", "1960-II", 
      "1960-III", "1960-IV")

我们可以使用gsubfn转换它们：

library(gsubfn)

g <- gsubfn("I.*", list(`I` = 1, `II` = 2, `III` = 3, `IV` = 4), dt)
g
## [1] "1959-1" "1959-2" "1959-3" "1959-4" "1960-1" "1960-2" "1960-3" "1960-4"

as.yearqtr(g)
## [1] "1959 Q1" "1959 Q2" "1959 Q3" "1959 Q4" "1960 Q1" "1960 Q2" "1960 Q3"
## [8] "1960 Q4"

如何将每日季度数据的日期系列读入R？

1 个答案: