Code
include_graphics("https://ec.europa.eu/eurostat/statistics-explained/images/9/97/Service_Producer_Prices_%28as_requested_by_the_EBS-Regulation%29_EU_and_euro_area_%282015%3D100%29_F1_August_2021%29.png")
Data - Eurostat
include_graphics("https://ec.europa.eu/eurostat/statistics-explained/images/9/97/Service_Producer_Prices_%28as_requested_by_the_EBS-Regulation%29_EU_and_euro_area_%282015%3D100%29_F1_August_2021%29.png")
tibble(LAST_DOWNLOAD = as.Date(file.info("~/Library/Mobile\ Documents/com~apple~CloudDocs/website/data/eurostat/sts_sepp_q.RData")$mtime)) %>%
print_table_conditional()
LAST_DOWNLOAD |
---|
2024-06-23 |
LAST_COMPILE |
---|
2024-06-24 |
%>%
sts_sepp_q group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(desc(time)) %>%
head(1) %>%
print_table_conditional()
time | Nobs |
---|---|
2024Q1 | 1776 |
%>%
sts_sepp_q left_join(nace_r2, by = "nace_r2") %>%
group_by(nace_r2, Nace_r2) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
sts_sepp_q left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
unit | Unit | Nobs |
---|---|---|
PCH_PRE | Percentage change on previous period | 86312 |
PCH_SM | Percentage change compared to same period in previous year | 81465 |
I15 | Index, 2015=100 | 81066 |
I21 | Index, 2021=100 | 56803 |
I10 | Index, 2010=100 | 47564 |
%>%
sts_sepp_q left_join(indic_bt, by = "indic_bt") %>%
group_by(indic_bt, Indic_bt) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
indic_bt | Indic_bt | Nobs |
---|---|---|
PRON | Total output price index - in national currency | 241317 |
PRBB | Service producer prices for businesses | 111893 |
%>%
sts_sepp_q left_join(geo, by = "geo") %>%
group_by(geo, Geo) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
mutate(Flag = gsub(" ", "-", str_to_lower(Geo)),
Flag = paste0('<img src="../../bib/flags/vsmall/', Flag, '.png" alt="Flag">')) %>%
select(Flag, everything()) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .} {
%>%
sts_sepp_q group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(desc(time)) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
sts_sepp_q filter(nace_r2 == "H494",
%in% c("FR", "DE", "ES", "IT", "EA19"),
geo == "I15",
unit == "PRBB") %>%
indic_bt quarter_to_date() %>%
print_table_conditional