# Download from http://research.stlouisfed.org
library(readr)
library(dplyr)
library(purrr)
library(tidyr)
library(dplyr)
series <- c("PCE", "POP", "PSAVERT", "UEMPMED", "UNEMPLOY")
url <- paste0("http://research.stlouisfed.org/fred2/series/", series, "/downloaddata/", series, ".csv")
fields <- lapply(url, read_csv)
economics <- fields %>%
map2(tolower(series), function(x, series) setNames(x, c("date", series))) %>%
reduce(inner_join, by = "date") %>%
mutate(date = structure(date, class = "Date")) # Not sure why this is lost
write.csv(economics, "data-raw/economics.csv", row.names = FALSE, quote = FALSE)
devtools::use_data(economics, overwrite = TRUE)
rescale01 <- function(x) (x - min(x)) / diff(range(x))
economics_long <- economics %>%
gather(variable, value, -date) %>%
group_by(variable) %>%
mutate(value01 = rescale01(value)) %>%
ungroup()
devtools::use_data(economics_long, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.