Funded Pension Statistics - PNN_NEW

Data - OECD

Author

VAR

Code

PNN_NEW %>%
  left_join(PNN_NEW_var$VAR %>%
              setNames(c("VAR", "Var")), by = "VAR") %>%
  group_by(VAR, Var) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

PPTYP

Code

PNN_NEW %>%
  left_join(PNN_NEW_var$PPTYP %>%
              setNames(c("PPTYP", "Pptyp")), by = "PPTYP") %>%
  group_by(PPTYP, Pptyp) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

PPTYP	Pptyp	Nobs
APLANS	Total, by pension plan type	501743
OCC	Occupational pension plans	473570
PER	Personal pension plans	298168
PER_NOT_EMPLYMT_LINKED	Personal pension plans, to which access is not linked to employment or professional activity	33371
PER_EMPLYMT_LINKED	Personal pension plans, to which access can be linked to employment or professional activity	32342

DTYP

Code

PNN_NEW %>%
  left_join(PNN_NEW_var$DTYP %>%
              setNames(c("DTYP", "Dtyp")), by = "DTYP") %>%
  group_by(DTYP, Dtyp) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

DTYP	Dtyp	Nobs
ADEF	Total, by definition type	381640
DCU	Defined contribution (unprotected)	320721
DCP	Defined contribution (protected)	318401
DBH	Defined benefit (hybrid/mixed)	161096
DB	Defined benefit (traditional)	157336

UNI

Code

PNN_NEW %>%
  left_join(PNN_NEW_var$UNI %>%
              setNames(c("UNI", "Uni")), by = "UNI") %>%
  group_by(UNI, Uni) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

CTYP

Code

PNN_NEW %>%
  left_join(PNN_NEW_var$CTYP %>%
              setNames(c("CTYP", "Ctyp")), by = "CTYP") %>%
  group_by(CTYP, Ctyp) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

CTYP	Ctyp	Nobs
PF	Pension funds (autonomous)	262425
PIC	Pension insurance contracts	258737
ACONT	Total all funds	254255
INV	Investment companies managed funds	218691
BANK	Banks managed funds	218655
BR	Book reserve (non-autonomous)	106398
OTHER	Other	20033

COU

Code

PNN_NEW %>%
  left_join(PNN_NEW_var$COU %>%
              setNames(c("COU", "Cou")), by = "COU") %>%
  group_by(COU, Cou) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Netherlands

Code

PNN_NEW %>%
  filter(COU == "NLD") %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Table 1

Code

PNN_NEW %>%
  filter(PPTYP == "APLANS",
         DTYP == "ADEF",
         CTYP == "PF",
         VAR == "1000",
         UNI == "USD",
         obsTime %in% c("2000", "2005", "2010", "2015")) %>%
  left_join(PNN_NEW_var$COU %>%
              setNames(c("COU", "Cou")), by = "COU") %>%
  select(COU, Cou, obsTime, obsValue) %>%
  mutate(obsValue = round(obsValue/1000, 1)) %>%
  spread(obsTime, obsValue) %>%
  arrange(-`2010`) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}