Gross domestic expenditure on R&D by sector of performance and source of funds - GERD_SOF

Data - OECD

~/data/oecd/

COUNTRY

GERD_SOF %>%
  left_join(GERD_SOF_var$COUNTRY, by = "COUNTRY") %>%
  group_by(COUNTRY, Country) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Country)),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

SECTPERF

GERD_SOF %>%
  left_join(GERD_SOF_var$SECTPERF, by = "SECTPERF") %>%
  group_by(SECTPERF, Sectperf) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

SECTFUND

GERD_SOF %>%
  left_join(GERD_SOF_var$SECTFUND, by = "SECTFUND") %>%
  group_by(SECTFUND, Sectfund) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

SECTFUND	Sectfund	Nobs
_T	Total funding	19928
GOV	Government sector	17922
BES	Business enterprise sector	17733
ROW	Rest of the world (ROW)	17572
PNP	Private non-profit sector	16656
HES	Higher education sector	15633
GOV_DIR	Government - Direct government	13191
ROW_EC	ROW - European Commission	6570
ROW_BES	ROW - Business enterprises	5907
ROW_IOXEC	ROW - Other international organisations	4998
ROW_IO	ROW - International organisations	4899
ROW_O	ROW - Other sources	3381
ROW_O_NEC	ROW - Not elsewhere classified	3090
ROW_GOV	ROW - Governments	2916
GOV_GUF	Government - General university funds	2721
ROW_PNP	ROW - Private non profit institutions	2526
ROW_HES	ROW - Higher education institutions	2457
ROW_BES_GROUP	ROW - Enterprises in the same group	1026
ROW_BES_UNAF	ROW - Unaffiliated enterprises	1020
ROW_FB_CAMP	ROW - Foreign Branch campuses	9
ROW_OHE	ROW - Other higher education institutions	3

MEASURE

GERD_SOF %>%
  left_join(GERD_SOF_var$MEASURE, by = "MEASURE") %>%
  group_by(MEASURE, Measure) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

MEASURE	Measure	Nobs
MIO_NAC	National Currency	53465
DF6	2015 Dollars - Constant prices and PPPs	53349
DC6	PPP Dollars - Current prices	53344

obsTime

GERD_SOF %>%
  group_by(obsTime) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}