source | dataset | .html | .RData |
---|---|---|---|
eurostat | nasa_10_nf_tr | 2024-11-22 | 2024-10-08 |
eurostat | nasq_10_nf_tr | 2024-11-22 | 2024-10-09 |
Non-financial transactions
Data - Eurostat
Info
Data on europe
Code
load_data("europe.RData")
%>%
europe arrange(-(dataset == "nasa_10_nf_tr")) %>%
source_dataset_file_updates()
source | dataset | .html | .RData |
---|---|---|---|
eurostat | bop_gdp6_q | 2024-11-23 | 2024-10-09 |
eurostat | nama_10_a10 | 2024-11-23 | 2024-10-08 |
eurostat | nama_10_a10_e | 2024-11-23 | 2024-11-23 |
eurostat | nama_10_gdp | 2024-11-23 | 2024-11-22 |
eurostat | nama_10_lp_ulc | 2024-11-23 | 2024-10-08 |
eurostat | namq_10_a10 | 2024-11-23 | 2024-11-23 |
eurostat | namq_10_a10_e | 2024-11-23 | 2024-11-22 |
eurostat | namq_10_gdp | 2024-11-23 | 2024-11-22 |
eurostat | namq_10_lp_ulc | 2024-11-23 | 2024-11-04 |
eurostat | namq_10_pc | 2024-11-23 | 2024-11-21 |
eurostat | nasa_10_nf_tr | 2024-11-22 | 2024-10-08 |
eurostat | nasq_10_nf_tr | 2024-11-22 | 2024-10-09 |
eurostat | tipsii40 | 2024-11-22 | 2024-11-23 |
Info
Code
include_graphics("https://ec.europa.eu/eurostat/statistics-explained/images/e/e1/Overall_change_in_profit_share_of_non-financial_corporations%2C_2011–2021_%28percentage_points%29_NA2022_II.png")
LAST_COMPILE
LAST_COMPILE |
---|
2024-11-23 |
Last
Code
%>%
nasa_10_nf_tr group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(desc(time)) %>%
head(1) %>%
print_table_conditional()
time | Nobs |
---|---|
2023 | 21913 |
unit
Code
%>%
nasa_10_nf_tr left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
unit | Unit | Nobs |
---|---|---|
CP_MNAC | Current prices, million units of national currency | 986113 |
CP_MEUR | Current prices, million euro | 937692 |
PPS_EU27_2020_HAB | Purchasing power standard (PPS, EU27 from 2020), per inhabitant | 1762 |
sector
Code
%>%
nasa_10_nf_tr left_join(sector, by = "sector") %>%
group_by(sector, Sector) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
sector | Sector | Nobs |
---|---|---|
S1 | Total economy | 313980 |
S14_S15 | Households; non-profit institutions serving households | 256265 |
S13 | General government | 217088 |
S11 | Non-financial corporations | 211904 |
S12 | Financial corporations | 211004 |
S2 | Rest of the world | 199527 |
S14 | Households | 194594 |
S15 | Non-profit institutions serving households | 168607 |
S128_S129 | Insurance corporations and Pension Funds | 42180 |
S121_S122_S123 | Monetary financial institutions | 41758 |
S124_TO_S127 | Other financial institutions (Financial corporations other than MFIs, insurance corporations and pension funds) | 35919 |
S1N | Not Sectorised | 18029 |
S11001 | Public non-financial corporations | 11658 |
S12001 | Public financial corporations | 3054 |
direct
Code
%>%
nasa_10_nf_tr left_join(direct, by = "direct") %>%
group_by(direct, Direct) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
direct | Direct | Nobs |
---|---|---|
PAID | Paid | 1007915 |
RECV | Received | 917652 |
na_item
Code
%>%
nasa_10_nf_tr left_join(na_item, by = "na_item") %>%
group_by(na_item, Na_item) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
geo
Code
%>%
nasa_10_nf_tr left_join(geo, by = "geo") %>%
group_by(geo, Geo) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
Operating surplus and mixed income, gross
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT"),
# B2A3G: Operating surplus and mixed income, gross
== "B2A3G",
na_item # PAID: Paid
== "PAID",
direct # CP_MNAC: Current prices, million units of national currency
== "CP_MNAC",
unit # S1: Total economy
== "S1") %>%
sector %>%
year_to_date + geom_line(aes(x = date, y = values/1000, color = geo, linetype = geo)) +
ggplot scale_color_manual(values = viridis(4)[1:3]) +
theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
labels = date_format("%y")) +
theme(legend.position = c(0.2, 0.85),
legend.title = element_blank()) +
xlab("") + ylab("") +
scale_y_log10(breaks = seq(0, 1000, 100),
labels = dollar_format(suffix = " Bn€", prefix = "", accuracy = 1))
France
France, Germany, Italy, Spain, Europe
B6G_R_HAB
All
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6G_R_HAB",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
%>%
year_to_date filter(date >= as.Date("1995-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5))
1999-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6G_R_HAB",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
%>%
year_to_date filter(date >= as.Date("1999-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(10, 500, 5))
Code
#geom_label(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
1999- (LAbels)
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6G_R_HAB",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
%>%
year_to_date filter(date >= as.Date("1999-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(10, 500, 5)) +
geom_label(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
2000-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6G_R_HAB",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
%>%
year_to_date filter(date >= as.Date("2000-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(10, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
2008-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6G_R_HAB",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
%>%
year_to_date filter(date >= as.Date("2008-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(10, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
B6G
All
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
%>%
year_to_date filter(date >= as.Date("1995-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5))
1999-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
%>%
year_to_date filter(date >= as.Date("1999-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_log10(breaks = seq(100, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
2000-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
%>%
year_to_date filter(date >= as.Date("2000-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
2008-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
%>%
year_to_date filter(date >= as.Date("2008-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
B6G/POP
All
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(POP, by = c("geo", "time")) %>%
mutate(values = values/POP) %>%
%>%
year_to_date filter(date >= as.Date("1995-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5))
1999-
B6G/POP - labels
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(POP, by = c("geo", "time")) %>%
mutate(values = values/POP) %>%
%>%
year_to_date filter(date >= as.Date("1999-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
B6G/POP
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(POP, by = c("geo", "time")) %>%
mutate(values = values/POP) %>%
%>%
year_to_date filter(date >= as.Date("1999-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5))
Code
#geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
D11/POP
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "D11",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(POP, by = c("geo", "time")) %>%
mutate(values = values/POP) %>%
%>%
year_to_date filter(date >= as.Date("1999-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
B7G_R_HAB
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B7G_R_HAB",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
%>%
year_to_date filter(date >= as.Date("1999-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(10, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
D41/POP
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "D41",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(POP, by = c("geo", "time")) %>%
mutate(values = values/POP) %>%
%>%
year_to_date filter(date >= as.Date("1999-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
D4/POP
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "D4",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(POP, by = c("geo", "time")) %>%
mutate(values = values/POP) %>%
%>%
year_to_date filter(date >= as.Date("1999-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
2000-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(POP, by = c("geo", "time")) %>%
mutate(values = values/POP) %>%
%>%
year_to_date filter(date >= as.Date("2000-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
2008-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(POP, by = c("geo", "time")) %>%
mutate(values = values/POP) %>%
%>%
year_to_date filter(date >= as.Date("2008-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
B6N
All
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6N",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
%>%
year_to_date #filter(date >= as.Date("1995-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
1995-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6N",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
%>%
year_to_date filter(date >= as.Date("1995-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
1999-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B6N",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
%>%
year_to_date filter(date >= as.Date("1999-01-01")) %>%
group_by(geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(100, 500, 5)) +
geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = values, label = round(values, 1), color = color))
Saving Rate (B9)
All
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B9",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(gdp, by = c("geo", "time")) %>%
mutate(values = values/gdp) %>%
%>%
year_to_date left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 10), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 100, 1),
labels = percent_format(a = 1))
2000-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B9",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(gdp, by = c("geo", "time")) %>%
mutate(values = values/gdp) %>%
%>%
year_to_date left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
filter(date >= as.Date("2000-01-01")) %>%
+ theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-100, 100, 1),
labels = percent_format(a = 1))
2015-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B9",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(gdp, by = c("geo", "time")) %>%
mutate(values = values/gdp) %>%
%>%
year_to_date left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
filter(date >= as.Date("2015-01-01")) %>%
+ theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 1),
labels = percent_format(a = 1))
Saving Rate (B8G)
All
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B8G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(gdp, by = c("geo", "time")) %>%
mutate(values = values/gdp) %>%
%>%
year_to_date left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 10), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 1),
labels = percent_format(a = 1))
2000-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B8G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(gdp, by = c("geo", "time")) %>%
mutate(values = values/gdp) %>%
%>%
year_to_date left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
filter(date >= as.Date("2000-01-01")) %>%
+ theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 1),
labels = percent_format(a = 1))
2015-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B8G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(gdp, by = c("geo", "time")) %>%
mutate(values = values/gdp) %>%
%>%
year_to_date left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
filter(date >= as.Date("2015-01-01")) %>%
+ theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 1),
labels = percent_format(a = 1))
Operating surplus and mixed income, gross - B2A3G, S14_S15
All
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B2A3G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(gdp, by = c("geo", "time")) %>%
mutate(values = values/gdp) %>%
%>%
year_to_date left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 10), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 1),
labels = percent_format(a = 1))
2000-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B2A3G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(gdp, by = c("geo", "time")) %>%
mutate(values = values/gdp) %>%
%>%
year_to_date left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
filter(date >= as.Date("2000-01-01")) %>%
+ theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 1),
labels = percent_format(a = 1))
2015-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B2A3G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S14_S15") %>%
sector select(geo, time, values, sector) %>%
left_join(gdp, by = c("geo", "time")) %>%
mutate(values = values/gdp) %>%
%>%
year_to_date left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
filter(date >= as.Date("2015-01-01")) %>%
+ theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 1),
labels = percent_format(a = 1))
Operating surplus and mixed income, gross - B2A3G, S11
All
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B2A3G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S11") %>%
sector select(geo, time, values, sector) %>%
left_join(gdp, by = c("geo", "time")) %>%
mutate(values = values/gdp) %>%
%>%
year_to_date left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
%>%
na.omit + theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 10), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 1),
labels = percent_format(a = 1))
2000-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B2A3G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S11") %>%
sector select(geo, time, values, sector) %>%
left_join(gdp, by = c("geo", "time")) %>%
mutate(values = values/gdp) %>%
%>%
year_to_date left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
filter(date >= as.Date("2000-01-01")) %>%
+ theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 1),
labels = percent_format(a = 1))
2015-
Code
%>%
nasa_10_nf_tr filter(geo %in% c("FR", "DE", "IT", "ES", "EA20"),
== "B2A3G",
na_item == "PAID",
direct == "CP_MNAC",
unit == "S11") %>%
sector select(geo, time, values, sector) %>%
left_join(gdp, by = c("geo", "time")) %>%
mutate(values = values/gdp) %>%
%>%
year_to_date left_join(geo, by = "geo") %>%
mutate(Geo = ifelse(geo == "EA20", "Europe", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
filter(date >= as.Date("2015-01-01")) %>%
+ theme_minimal() + xlab("") + ylab("") +
ggplot geom_line(aes(x = date, y = values, color = color)) +
scale_color_identity() + add_5flags +
scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(0, 100, 1),
labels = percent_format(a = 1))