Non-consolidated financial transactions by economic sector (Quarterly table 0620) - SNA 2008 - QASA_TABLE620R

Data - OECD

Author

Nobs - Javascript

Head

LOCATION	TRANSACTION	SECTOR	MEASURE	ADJUSTED	TIME_FORMAT	UNIT	POWERCODE	obsTime	obsValue	OBS_STATUS
USA	FB9FNC	RS1	CQR	NSA	P3M	USD	6	1960-Q1	103036	NA
USA	FB9FNC	RS1	CQR	NSA	P3M	USD	6	1960-Q2	-34262	NA
USA	FB9FNC	RS1	CQR	NSA	P3M	USD	6	1960-Q3	113133	NA
USA	FB9FNC	RS1	CQR	NSA	P3M	USD	6	1960-Q4	-176105	NA
USA	FB9FNC	RS1	CQR	NSA	P3M	USD	6	1961-Q1	-185654	NA
USA	FB9FNC	RS1	CQR	NSA	P3M	USD	6	1961-Q2	18765	NA

Data Structure

id	description
LOCATION	Country
TRANSACTION	Transaction
SECTOR	Sector
MEASURE	Measure
ADJUSTED	Adjusted
TIME	Time
OBS_VALUE	Observation Value
TIME_FORMAT	Time Format
OBS_STATUS	Observation Status
UNIT	Unit
POWERCODE	Unit multiplier
REFERENCEPERIOD	Reference period

TRANSACTION

SECTOR

MEASURE

id	label
CQR	Current prices, quarterly levels
CXCQR	US $, current prices, current exchange rates, quarterly levels

ADJUSTED

id	label
NSA	Not seasonally adjusted

Ex 1: Pension Funds

Code

QASA_TABLE620R %>%
  filter(LOCATION == "DEU",
         # RS14_S15: Household Sector
         SECTOR == "RS14_S15",
         # CQR: Current prices, annual levels
         MEASURE == "CQR") %>%
  right_join(QASA_TABLE620R_var$TRANSACTION %>% 
               filter(grepl("pension", label) | grepl("Pension", label)) %>%
               select(TRANSACTION = id, TRANSACTION_desc = label), 
             by = "TRANSACTION") %>%
  filter(obsValue != 0) %>%
  arrange(-obsValue) %>%
  quarter_to_date %>%
  mutate(obsValue = obsValue / 1000) %>%
  mutate(TRANSACTION_desc = paste0(TRANSACTION, ": ", TRANSACTION_desc)) %>%
  ggplot() + 
  geom_line(aes(x = date, y = obsValue, color = TRANSACTION_desc, linetype = TRANSACTION_desc)) +
  theme_minimal()  +
  scale_color_manual(values = viridis(4)[1:3]) +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2020, 1), "-01-01")),
               labels = date_format("%y")) +
  theme(legend.position = c(0.45, 0.9),
        legend.title = element_blank()) +
  xlab("") + ylab("Euros Managed") +
  scale_y_continuous(breaks = seq(-100, 100, 2),
                     labels = dollar_format(suffix = " Bn€", prefix = "", accuracy = 1))