Code
%>%
nama_10_nfa_st left_join(asset10, by = "asset10") %>%
group_by(asset10, Asset10) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
Data - Eurostat
%>%
nama_10_nfa_st left_join(asset10, by = "asset10") %>%
group_by(asset10, Asset10) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
nama_10_nfa_st 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 .} {
%>%
nama_10_nfa_st left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
unit | Unit | Nobs |
---|---|---|
CRC_MEUR | Current replacement costs, million euro | 1177023 |
CRC_MNAC | Current replacement costs, million units of national currency | 1177023 |
PYR_MEUR | Previous year replacement costs, million euro | 1161477 |
PYR_MNAC | Previous year replacement costs, million units of national currency | 1161477 |
CLV15_MEUR | Chain linked volumes (2015), million euro | 908473 |
CLV15_MNAC | Chain linked volumes (2015), million units of national currency | 908473 |
CLV20_MEUR | NA | 887463 |
CLV20_MNAC | NA | 887463 |
%>%
nama_10_nfa_st left_join(geo, by = "geo") %>%
group_by(geo, Geo) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
nama_10_nfa_st filter(geo %in% c("FR"),
== "2019",
time == "CRC_MEUR") %>%
unit left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, asset10, Nace_r2, values) %>%
spread(asset10, values) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
nama_10_nfa_st filter(geo %in% c("DE"),
== "2018",
time == "CRC_MEUR") %>%
unit left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, asset10, Nace_r2, values) %>%
spread(asset10, values) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {