~/data/bea/FixedAssets.html
Layout
- Fixed Assets Website. html

Ex 1: Equipment
Decomposition of Equipment (% of GDP)
FAAt302E %>%
filter(Line %in% c(4, 11, 18, 26)) %>%
rename(variable = LineDescription) %>%
left_join(gdp_adjustment, by = "date") %>%
mutate(value = 1000 * `Real GDP / Real GDP Trend (Log Linear)` * value / GDP) %>%
ggplot + geom_line(aes(x = date, y = value, color = variable, linetype = variable)) +
ylab("% of GDP") + xlab("") +
theme_minimal()+
geom_rect(data = nber_recessions %>%
filter(Peak > as.Date("1927-01-01")),
aes(xmin = Peak, xmax = Trough, ymin = -Inf, ymax = +Inf),
fill = 'grey', alpha = 0.5) +
scale_x_date(breaks = nber_recessions$Peak,
minor_breaks = "5 years",
labels = date_format("%y")) +
scale_color_manual(values = viridis(5)[1:4]) +
scale_y_continuous(breaks = 0.01*seq(0, 160, 2),
labels = scales::percent_format(accuracy = 1)) +
theme(legend.position = c(0.25, 0.85),
legend.title = element_blank(),
legend.text = element_text(size = 8),
legend.key.size = unit(0.9, 'lines'))

Decomposition of Structures
FAAt302E %>%
filter(Line %in% c(36, 67, 68, 74)) %>%
rename(variable = LineDescription) %>%
left_join(gdp_adjustment, by = "date") %>%
mutate(value = 1000 * `Real GDP / Real GDP Trend (Log Linear)` * value / GDP) %>%
ggplot + geom_line(aes(x = date, y = value, color = variable, linetype = variable)) +
ylab("% of GDP") + xlab("") +
theme_minimal()+
geom_rect(data = nber_recessions %>%
filter(Peak > as.Date("1927-01-01")),
aes(xmin = Peak, xmax = Trough, ymin = -Inf, ymax = +Inf),
fill = 'grey', alpha = 0.5) +
scale_x_date(breaks = nber_recessions$Peak,
minor_breaks = "5 years",
labels = date_format("%y")) +
scale_color_manual(values = viridis(5)[1:4]) +
scale_y_continuous(breaks = 0.01*seq(0, 160, 1),
labels = scales::percent_format(accuracy = 1)) +
theme(legend.position = c(0.25, 0.35),
legend.title = element_blank(),
legend.text = element_text(size = 8),
legend.key.size = unit(0.9, 'lines'))

Ex 2: 1938, 1958, 1978, 1998, 2018 Table
Percent
FAAt302E %>%
mutate(year = year(date)) %>%
filter(year %in% c(1938, 1958, 1978, 1998, 2018)) %>%
group_by(year) %>%
mutate(value = round(100*value/value[1], 1)) %>%
ungroup %>%
select(Line, LineDescription, year, value) %>%
spread(year, value) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}
Billions
FAAt302E %>%
mutate(year = year(date)) %>%
filter(year %in% c(1938, 1958, 1978, 1998, 2018)) %>%
group_by(year) %>%
mutate(value = round(value)) %>%
ungroup %>%
select(Line, LineDescription, year, value) %>%
spread(year, value) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}