¿Cómo puedo leer una serie de fechas de datos trimestrales en R?

Question

Tengo un conjunto de datos, la primera columna de los cuales es la fecha en el formato año-cuartos, como el siguiente

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

He importado el conjunto de datos en R, pero no saben cómo convertir este a Date formato utilizando la función as.Date, ya there doesn't appear to be a conversion specification for quarters y acabo de empezar a aprender R.

lo mejor que puedo pensar es algo así como

#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 " 

pero esta no puede ser la mejor manera de hacerlo, y todavía me deja el problema de cómo tratar mi serie quarters. Para empeorar las cosas, hay un personaje en blanco al final de cada personaje que no sé cómo tratar porque hay 3 "longitudes" diferentes para las cadenas de trimestres.

Otra opción, por supuesto, sería para fabricar mi serie propia habitación, con algo como

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

(estoy bastante orgulloso de mí mismo por haber escrito esta última línea!).

Así que mi pregunta: ¿existe una forma integrada de importar datos trimestrales en el formato que tengo en R, y si no, cualquier otro formato (aún para datos trimestrales)? ¿Alguna sugerencia sobre la mejor manera de proceder?

Answer 1

Supongamos que tenemos datos 1: 8 que corresponden a los 8 trimestres que menciona. Entonces podemos hacer esto:

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

también el paquete zoológico cuenta la clase "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 

Si realmente tuvimos un vector de dichos cuartos que no son necesariamente consecutivos:

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

podríamos convertirlos usando 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"