Table 1.1.2. Contributions to Percent Change in Real Gross Domestic Product (A) (Q) - T10102

Data - BEA

~/data/bea/NIPA.html

Info

LAST_DOWNLOAD

file	LAST_DOWNLOAD
T10102_Q	2022-10-09
T10102_A	2022-10-09

LAST_COMPILE

LAST_COMPILE
2024-02-11

Last

date	Nobs
2022-06-30	26

Layout

• NIPA Website. html

Ex 2: 1938, 1958, 1978, 1998, 2018 Table

T10102_A %>%
  year_to_date %>%
  mutate(year = year(date)) %>%
  filter(year %in% c(1938, 1958, 1978, 1998, 2018)) %>%
  group_by(year) %>%
  mutate(value = round(DataValue, 2)) %>%
  ungroup %>%
  select(2, 3, 6, 7) %>%
  spread(year, value) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}