Money Stock Measures - H.6

Data - FRB

Author

Nobs - Javascript

Code

H6 %>%
  group_by(SERIES_NAME, CURRENCY, UNIT) %>%
  summarise(Nobs = n()) %>%
  left_join(H6_var$CURRENCY %>% rename(CURRENCY = id), by = "CURRENCY") %>%
  select(-description.default) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

Concepts

Code

H6_struct_concepts %>%
  {if (is_html_output()) print_table(.) else .}

id	Name.default
FREQ	Frequency
OBS_STATUS	Observation status
SERIES_NAME	Series Name
OBS_VALUE	Observation value
UNIT	Units
ADJUSTED	Seasonal Adjustment
CURRENCY	Currency
UNIT_MULT	Unit multiplier
TIME_PERIOD	Time

UNIT_MULT

Code

H6_var$UNIT_MULT %>%
  print_table_conditional()

id	label.default	description.default
.01	Hundredths	Hundredths
.1	Tenths	Tenths
1	One	One
1000	Thousands	Thousands
1000000	Millions	Millions
100000000	Hundred millions	Hundred millions
1000000000	Billions	Billions
1000000000000	Trillions	Trillions
1000000000000000	Quadrillions	Quadrillions

CURRENCY

Code

H6 %>%
  group_by(CURRENCY) %>%
  summarise(Nobs = n()) %>%
  left_join(H6_var$CURRENCY %>% rename(CURRENCY = id), by = "CURRENCY") %>%
  select(-description.default) %>%
  print_table_conditional()

CURRENCY	Nobs	label.default
USD	44354	United States / United States Dollar

M1 in the United States

Code

H6 %>%
  filter(SERIES_NAME == "M1.WM") %>%
  arrange(TIME_PERIOD) %>%
  ggplot() + geom_line(aes(x = TIME_PERIOD, y = OBS_VALUE)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2020, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) + 
  scale_y_log10()