New package: GetQuandlData

Example 01 - Inflation in the US

Let’s download and plot information about inflation in the US:

library(GetQuandlData)
library(tidyverse)

my_id <- c('Inflation USA' = 'YALE/SP_CPI')
my_api <- readLines('~/GDrive/98-pass-and-bash/.quandl_api.txt') # you need your own API (get it at https://www.quandl.com/sign-up-modal?defaultModal=showSignUp>)
first_date <- '2005-01-01'
last_date <- Sys.Date()

df <- get_Quandl_series(id_in = my_id, 
                        api_key = my_api, 
                        first_date = first_date,
                        last_date = last_date, 
                        cache_folder = tempdir())

glimpse(df)

## Rows: 11
## Columns: 4
## $ Year        <chr> "2005-12-31", "2006-12-31", "2007-12-31", "2008-12-31", "2…
## $ series_name <chr> "Inflation USA", "Inflation USA", "Inflation USA", "Inflat…
## $ value       <dbl> 190.700, 198.300, 202.416, 211.180, 211.143, 216.687, 220.…
## $ id_quandl   <chr> "YALE/SP_CPI", "YALE/SP_CPI", "YALE/SP_CPI", "YALE/SP_CPI"…

As you can see, the data is in the long format. Let’s plot it:

library(tidyverse)

p <- ggplot(df, aes(x = Year, y = value/100)) + 
  geom_col() + 
  labs(y = 'Inflation (%)', 
       x = '',
       title = 'Inflation in the US') + 
  scale_y_continuous(labels = scales::percent)

p

Beautiful!

Example 02 - Inflation for many countries

Next, lets have a look into a more realistic case, where we need inflation data for several countries:

First, we need to see what are the available datasets from database RATEINF:

library(GetQuandlData)
library(tidyverse)

db_id <- 'RATEINF'
my_api <- readLines('~/GDrive/98-pass-and-bash/.quandl_api.txt') # you need your own API

df <- get_database_info(db_id, my_api)

knitr::kable(df)

Nice. Now we only need to filter the series with YOY inflation:

idx <- stringr::str_detect(df$name, 'Inflation YOY')
df_series <- df[idx, ]

and grab the data:

my_id <- df_series$quandl_code
names(my_id) <- df_series$name
first_date <- '2010-01-01'
last_date <- Sys.Date()

df_inflation <- get_Quandl_series(id_in = my_id, 
                                  api_key = my_api,
                                  first_date = first_date,
                                  last_date = last_date)

glimpse(df_inflation)

## Rows: 1,721
## Columns: 4
## $ series_name <chr> "Inflation YOY - Argentina", "Inflation YOY - Argentina", …
## $ ref_date    <date> 2010-01-31, 2010-02-28, 2010-03-31, 2010-04-30, 2010-05-3…
## $ value       <dbl> 8.24, 9.12, 9.66, 10.21, 10.66, 11.00, 11.20, 11.10, 11.09…
## $ id_quandl   <chr> "RATEINF/INFLATION_ARG", "RATEINF/INFLATION_ARG", "RATEINF…

And, finally, an elegant plot:

p <- ggplot(df_inflation, aes(x = ref_date, y = value/100)) + 
  geom_col() + 
  labs(y = 'Inflation (%)', 
       x = '',
       title = 'Inflation in the World',
       subtitle = paste0(first_date, ' to ', last_date)) + 
  scale_y_continuous(labels = scales::percent) + 
  facet_wrap(~series_name)

p