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

Data - OECD

Author

COUNTRY

Code

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

Code

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

Code

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

Code

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

Code

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