Блог

Привет, я пытаюсь научиться использовать данные FRED для преобразования ежемесячных и квартальных данных в годовые. Мои данные выглядят так:

    Date FEDFUNDS
7/1/2000    6.54
8/1/2000    6.5
9/1/2000    6.52
10/1/2000   6.51
11/1/2000   6.51
12/1/2000   6.4
 

Ранее, просматривая другие сообщения, я пытался использовать следующее для преобразования ежемесячных данных в ежеквартальные.

 library(tidyverse)
data<- read_csv(file.choose())
head(data)
data$Date=as.Date(data$Date, formate="$m/$d/%y")
data<-arrange(data,Date)
library(zoo)
data$qdate<-as.yearqtr(data$Date)
library(date)
data_qrtly<-data %>%
  group_by(qdate) %>%
  summarise_all(mean)
 

Но мне трудно использовать «DF» для преобразования ежемесячных или квартальных данных в годовые. Любая помощь будет очень признательна.

Как вы хотите обобщить полученные данные? Я предполагаю, что вам нужно mean количество федеральных фондов по годам. Это легко сделать в tidyverse :

 library(tidyverse)
library(lubridate)

test_data <- tribble(~Date, ~FEDFUNDS,
                     "7/1/2000", 6.54,
                     "8/1/2000", 6.5,
                     "9/1/2000", 6.52,
                     "10/1/2000", 6.51,
                     "11/1/2000", 6.51,
                     "12/1/2000", 6.4)

#convert the date into a date type column
#create a new "year" column
test_data %>% 
  mutate(Date = lubridate::mdy(Date),
         year = lubridate::year(Date)) %>% 
  group_by(year) %>% 
  summarize(fedfunds_mean = mean(FEDFUNDS))

# A tibble: 1 x 2
year fedfunds_mean
<dbl>         <dbl>
2000          6.50