Venture capital investments - VC_INVEST

Data - OECD

Author

SUBJECT

Code

VC_INVEST %>%
  left_join(VC_INVEST_var$SUBJECT, by = "SUBJECT") %>%
  group_by(SUBJECT, Subject) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

SUBJECT	Subject	Nobs
VC_INV	Venture capital investments	3874

STAGES

Code

VC_INVEST %>%
  left_join(VC_INVEST_var$STAGES, by = "STAGES") %>%
  group_by(STAGES, Stages) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

STAGES	Stages	Nobs
LATER	Later stage venture	914
SEED	Seed	868
START	Start-up and other early stage	964
VC_T	Total	1128

MEASURE

Code

VC_INVEST %>%
  left_join(VC_INVEST_var$MEASURE, by = "MEASURE") %>%
  group_by(MEASURE, Measure) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

MEASURE	Measure	Nobs
SH_GDP	Percentage share of GDP	1933
USD_V	USD, current prices	1941

LOCATION

Code

VC_INVEST %>%
  left_join(VC_INVEST_var$LOCATION, by = "LOCATION") %>%
  group_by(LOCATION, Location) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Location)),
         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 .}