Survey of Professional Forecasters - SPF

Data

Author


 Currently Loading: FREQ
 Currently Loading: FCT_TOPIC
 Currently Loading: FCT_BREAKDOWN
 Currently Loading: FCT_HORIZON
 Currently Loading: FCT_SOURCE
 Currently Loading: UNIT

FREQ

Code

SPF %>%
  left_join(FREQ, by = "FREQ") %>%
  group_by(FREQ, Freq) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

FREQ	Freq	Nobs
A	Annual	2502592
Q	Quarterly	1700333
M	Monthly	966397

REF_AREA

Code

SPF %>%
  group_by(REF_AREA) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

REF_AREA	Nobs
U2	5169322

FCT_TOPIC

Code

SPF %>%
  left_join(FCT_TOPIC, by = "FCT_TOPIC") %>%
  group_by(FCT_TOPIC, Fct_topic) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

FCT_TOPIC	Fct_topic	Nobs
UNEM	Unemployment	1744659
RGDP	Real GDP	1348395
HICP	Harmonised ICP	1299437
CORE	Harmonised ICP excluding energy and food	528152
ASSU	Assumptions	248679

FCT_SOURCE

Code

SPF %>%
  left_join(FCT_SOURCE, by = "FCT_SOURCE") %>%
  group_by(FCT_SOURCE, Fct_source) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

FCT_BREAKDOWN

Code

SPF %>%
  left_join(FCT_BREAKDOWN, by = "FCT_BREAKDOWN") %>%
  group_by(FCT_BREAKDOWN, Fct_breakdown) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

FCT_HORIZON

Code

SPF %>%
  left_join(FCT_HORIZON, by = "FCT_HORIZON") %>%
  group_by(FCT_HORIZON, Fct_horizon) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

SURVEY_FREQ

Code

SPF %>%
  group_by(SURVEY_FREQ) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

SURVEY_FREQ	Nobs
Q	5169322

UNIT

Code

SPF %>%
  left_join(UNIT, by = "UNIT") %>%
  group_by(UNIT, Unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

UNIT	Unit	Nobs
PC	Percent	4694227
PCPA	Percent per annum	340541
USD	US dollar	132328
PS	Persons	2226

SOURCE_AGENCY

Code

SPF %>%
  group_by(SOURCE_AGENCY) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

SOURCE_AGENCY	Nobs
4F0	5169322