Support for FRED Maps about fredr HOT 3 CLOSED

library(fredr)
library(tidyverse)

# Release table for "Per Capita Personal Income by State, Annual"
# https://fred.stlouisfed.org/release/tables?rid=110&eid=257197

# Note the `rid` and `eid` from the URL!
release <- fredr_release_tables(
  release_id = 110, 
  element_id = 257197
)

series <- release %>%
  hoist(value, "series_id", state = "name") %>%
  select(series_id, state)

series
#> # A tibble: 51 × 2
#>    series_id state               
#>    <chr>     <chr>               
#>  1 ALPCPI    Alabama             
#>  2 AKPCPI    Alaska              
#>  3 AZPCPI    Arizona             
#>  4 ARPCPI    Arkansas            
#>  5 CAPCPI    California          
#>  6 COPCPI    Colorado            
#>  7 CTPCPI    Connecticut         
#>  8 DEPCPI    Delaware            
#>  9 DCPCPI    District of Columbia
#> 10 FLPCPI    Florida             
#> # … with 41 more rows
#> # ℹ Use `print(n = ...)` to see more rows

series <- series %>%
  mutate(obs = map(series_id, fredr_series_observations))

obs <- series %>%
  select(-series_id) %>%
  unnest(obs)

obs  
#> # A tibble: 4,701 × 6
#>    state   date       series_id value realtime_start realtime_end
#>    <chr>   <date>     <chr>     <dbl> <date>         <date>      
#>  1 Alabama 1929-01-01 ALPCPI      319 2022-07-21     2022-07-21  
#>  2 Alabama 1930-01-01 ALPCPI      263 2022-07-21     2022-07-21  
#>  3 Alabama 1931-01-01 ALPCPI      220 2022-07-21     2022-07-21  
#>  4 Alabama 1932-01-01 ALPCPI      159 2022-07-21     2022-07-21  
#>  5 Alabama 1933-01-01 ALPCPI      164 2022-07-21     2022-07-21  
#>  6 Alabama 1934-01-01 ALPCPI      207 2022-07-21     2022-07-21  
#>  7 Alabama 1935-01-01 ALPCPI      216 2022-07-21     2022-07-21  
#>  8 Alabama 1936-01-01 ALPCPI      249 2022-07-21     2022-07-21  
#>  9 Alabama 1937-01-01 ALPCPI      266 2022-07-21     2022-07-21  
#> 10 Alabama 1938-01-01 ALPCPI      242 2022-07-21     2022-07-21  
#> # … with 4,691 more rows
#> # ℹ Use `print(n = ...)` to see more rows

obs %>%
  filter(state == "Alabama") %>%
  ggplot(aes(x = date, y = value)) +
  geom_line() +
  labs(title = "Per Capita Personal Income in Alabama")