source | dataset | .html | .RData |
---|---|---|---|
eurostat | namq_10_a10 | 2024-11-01 | 2024-11-05 |
Gross value added and income A*10 industry breakdowns
Data - Eurostat
Info
Data on macro
source | dataset | .html | .RData |
---|---|---|---|
eurostat | nama_10_a10 | 2024-11-05 | 2024-10-08 |
eurostat | nama_10_a10_e | 2024-11-05 | 2024-11-05 |
eurostat | nama_10_gdp | 2024-11-05 | 2024-10-08 |
eurostat | nama_10_lp_ulc | 2024-11-05 | 2024-10-08 |
eurostat | namq_10_a10 | 2024-11-01 | 2024-11-05 |
eurostat | namq_10_a10_e | 2024-11-05 | 2024-10-08 |
eurostat | namq_10_gdp | 2024-11-01 | 2024-10-08 |
eurostat | namq_10_lp_ulc | 2024-11-04 | 2024-11-04 |
eurostat | namq_10_pc | 2024-11-01 | 2024-10-08 |
eurostat | nasa_10_nf_tr | 2024-11-01 | 2024-10-08 |
eurostat | nasq_10_nf_tr | 2024-11-01 | 2024-10-09 |
fred | gdp | 2024-11-01 | 2024-11-01 |
oecd | QNA | 2024-06-06 | 2024-06-30 |
oecd | SNA_TABLE1 | 2024-09-15 | 2024-06-30 |
oecd | SNA_TABLE14A | 2024-09-15 | 2024-06-30 |
oecd | SNA_TABLE2 | 2024-07-01 | 2024-04-11 |
oecd | SNA_TABLE6A | 2024-07-01 | 2024-06-30 |
wdi | NE.RSB.GNFS.ZS | 2024-09-18 | 2024-09-18 |
wdi | NY.GDP.MKTP.CD | 2024-09-18 | 2024-09-26 |
wdi | NY.GDP.MKTP.PP.CD | 2024-09-18 | 2024-09-18 |
wdi | NY.GDP.PCAP.CD | 2024-10-15 | 2024-10-15 |
wdi | NY.GDP.PCAP.KD | 2024-09-18 | 2024-09-18 |
wdi | NY.GDP.PCAP.PP.CD | 2024-10-15 | 2024-10-15 |
wdi | NY.GDP.PCAP.PP.KD | 2024-09-18 | 2024-09-18 |
LAST_COMPILE
LAST_COMPILE |
---|
2024-11-05 |
Last
Code
%>%
namq_10_a10 group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(desc(time)) %>%
head(1) %>%
print_table_conditional()
time | Nobs |
---|---|
2024Q3 | 2260 |
na_item
Code
%>%
namq_10_a10 left_join(na_item, by = "na_item") %>%
group_by(na_item, Na_item) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
na_item | Na_item | Nobs |
---|---|---|
B1G | Value added, gross | 4079736 |
D1 | Compensation of employees | 482632 |
D11 | Wages and salaries | 466176 |
D12 | Employers' social contributions | 466172 |
nace_r2
Code
%>%
namq_10_a10 left_join(nace_r2, by = "nace_r2") %>%
group_by(nace_r2, Nace_r2) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
nace_r2 | Nace_r2 | Nobs |
---|---|---|
TOTAL | Total - all NACE activities | 467586 |
B-E | Industry (except construction) | 458491 |
C | Manufacturing | 458491 |
A | Agriculture, forestry and fishing | 457916 |
F | Construction | 457916 |
K | Financial and insurance activities | 457916 |
O-Q | Public administration, defence, education, human health and social work activities | 457916 |
R-U | Arts, entertainment and recreation; other service activities; activities of household and extra-territorial organizations and bodies | 457916 |
L | Real estate activities | 455492 |
M_N | Professional, scientific and technical activities; administrative and support service activities | 455492 |
G-I | Wholesale and retail trade, transport, accommodation and food service activities | 454804 |
J | Information and communication | 454780 |
s_adj
Code
%>%
namq_10_a10 left_join(s_adj, by = "s_adj") %>%
group_by(s_adj, S_adj) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
s_adj | S_adj | Nobs |
---|---|---|
SCA | Seasonally and calendar adjusted data | 2363261 |
NSA | Unadjusted data (i.e. neither seasonally adjusted nor calendar adjusted data) | 2358280 |
CA | Calendar adjusted data, not seasonally adjusted data | 473791 |
SA | Seasonally adjusted data, not calendar adjusted data | 299384 |
unit
Code
%>%
namq_10_a10 left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
geo
Code
%>%
namq_10_a10 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 .} {
time
Code
%>%
namq_10_a10 group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(desc(time)) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
Tables
B-E, C, TOTAL
Code
%>%
namq_10_a10 filter(nace_r2 %in% c("C", "TOTAL"),
== "B1G",
na_item # SCA: Seasonally and calendar adjusted data
== "SCA",
s_adj # CLV10_MEUR: Chain linked volumes (2010), million euro
== "CP_MNAC",
unit %in% c("2021Q4", "2016Q4", "2011Q4")) %>%
time left_join(nace_r2, by = "nace_r2") %>%
left_join(geo, by = "geo") %>%
select(nace_r2, geo, Geo, values, time) %>%
spread(nace_r2, values) %>%
mutate(C_TOTAL = 100*C/TOTAL) %>%
select(-C, -TOTAL) %>%
spread(time, C_TOTAL) %>%
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()) %>%
arrange(`2021Q4`) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .} {
B-E, TOTAL
Code
%>%
namq_10_a10 filter(nace_r2 %in% c("B-E", "TOTAL"),
== "B1G",
na_item # SCA: Seasonally and calendar adjusted data
== "SCA",
s_adj # CLV10_MEUR: Chain linked volumes (2010), million euro
== "CP_MNAC",
unit %in% c("2021Q4", "2001Q4", "2011Q4")) %>%
time left_join(nace_r2, by = "nace_r2") %>%
left_join(geo, by = "geo") %>%
select(nace_r2, geo, Geo, values, time) %>%
spread(nace_r2, values) %>%
mutate(C_TOTAL = 100*`B-E`/TOTAL) %>%
select(-`B-E`, -TOTAL) %>%
spread(time, C_TOTAL) %>%
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()) %>%
arrange(`2021Q4`) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .} {
B-E, C, TOTAL
Code
load_data("eurostat/geo_fr.RData")
<- geo
geo_fr load_data("eurostat/geo.RData")
%>%
namq_10_a10 filter(nace_r2 %in% c("B-E", "TOTAL", "C"),
== "B1G",
na_item # SCA: Seasonally and calendar adjusted data
== "SCA",
s_adj # CLV10_MEUR: Chain linked volumes (2010), million euro
== "CP_MNAC",
unit %in% c("2021Q4")) %>%
time left_join(geo, by = "geo") %>%
select(nace_r2, geo, Geo, values) %>%
spread(nace_r2, values) %>%
mutate(`Industrie Manufacturière` = round(100*`C`/TOTAL, 1),
`Industrie Manufacturière + Energie` = round(100*`B-E`/TOTAL, 1)) %>%
select(-`B-E`, -TOTAL, -`C`) %>%
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()) %>%
select(-Geo) %>%
left_join(geo_fr, by = "geo") %>%
select(-geo) %>%
select(Flag, Geo, everything()) %>%
arrange(`Industrie Manufacturière + Energie`) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .} {
PD_PCH_SM_EUR - Price index
France, Germany, Italy
TOTAL
1995-
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "TOTAL",
nace_r2 == "SCA",
s_adj == "PD_PCH_SM_EUR") %>%
unit %>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/100) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(-10, 1000, 1),
labels = percent_format(accuracy = 1))
2015-
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "TOTAL",
nace_r2 == "SCA",
s_adj == "PD_PCH_SM_EUR") %>%
unit %>%
quarter_to_date filter(date >= as.Date("2015-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/100) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 1), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(-10, 1000, 1),
labels = percent_format(accuracy = 1))
A
1995-
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "A",
nace_r2 == "SCA",
s_adj == "PD_PCH_SM_EUR") %>%
unit %>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/100) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(-100, 1000, 10),
labels = percent_format(accuracy = 1))
2015-
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "A",
nace_r2 == "SCA",
s_adj == "PD_PCH_SM_EUR") %>%
unit %>%
quarter_to_date filter(date >= as.Date("2015-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/100) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 1), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(-100, 1000, 5),
labels = percent_format(accuracy = 1))
F
1995-
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "F",
nace_r2 == "SCA",
s_adj == "PD_PCH_SM_EUR") %>%
unit %>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/100) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(-10, 1000, 1),
labels = percent_format(accuracy = 1))
2015-
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "F",
nace_r2 == "SCA",
s_adj == "PD_PCH_SM_EUR") %>%
unit %>%
quarter_to_date filter(date >= as.Date("2015-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/100) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 1), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(-10, 1000, 1),
labels = percent_format(accuracy = 1))
C
1995-
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "C",
nace_r2 == "SCA",
s_adj == "PD_PCH_SM_EUR") %>%
unit %>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/100) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(-10, 1000, 1),
labels = percent_format(accuracy = 1))
2015-
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "C",
nace_r2 == "SCA",
s_adj == "PD_PCH_SM_EUR") %>%
unit %>%
quarter_to_date filter(date >= as.Date("2015-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/100) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 1), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(-10, 1000, 1),
labels = percent_format(accuracy = 1))
B-E
1995-
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "B-E",
nace_r2 == "SCA",
s_adj == "PD_PCH_SM_EUR") %>%
unit %>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/100) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(-10, 1000, 1),
labels = percent_format(accuracy = 1))
2015-
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "B-E",
nace_r2 == "SCA",
s_adj == "PD_PCH_SM_EUR") %>%
unit %>%
quarter_to_date filter(date >= as.Date("2015-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/100) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2025, 1), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(-10, 1000, 1),
labels = percent_format(accuracy = 1))
Manufacturing Value (Bn €)
Italy, France, Germany
Value
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "C",
nace_r2 # B1GQ: Gross domestic product at market prices
== "B1G",
na_item # SCA: Seasonally and calendar adjusted data
== "SCA",
s_adj # CLV10_MEUR: Chain linked volumes (2010), million euro
== "CP_MNAC") %>%
unit %>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("Production Manufacturière Trimestrielle") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(0, 1000, 10),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Manufacturing Value (Bn €)
Italy, France, Germany
Value
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "F",
nace_r2 # B1GQ: Gross domestic product at market prices
== "B1G",
na_item # SCA: Seasonally and calendar adjusted data
== "SCA",
s_adj # CLV10_MEUR: Chain linked volumes (2010), million euro
== "CP_MNAC") %>%
unit %>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("Construction en logements") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(0, 1000, 10),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Volume
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "F",
nace_r2 # B1GQ: Gross domestic product at market prices
== "B1G",
na_item # SCA: Seasonally and calendar adjusted data
== "SCA",
s_adj # CLV10_MEUR: Chain linked volumes (2010), million euro
== "CLV15_MEUR") %>%
unit %>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("Construction en logements") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(0, 1000, 10),
labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))
Indice
1990-
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "C",
nace_r2 # B1GQ: Gross domestic product at market prices
== "B1G",
na_item # SCA: Seasonally and calendar adjusted data
== "SCA",
s_adj # CLV10_MEUR: Chain linked volumes (2010), million euro
== "CP_MNAC") %>%
unit %>%
quarter_to_date filter(date >= as.Date("1990-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
group_by(Geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("Production Manufacturière Trimestrielle") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(0, 1000, 5))
1995-
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "C",
nace_r2 # B1GQ: Gross domestic product at market prices
== "B1G",
na_item # SCA: Seasonally and calendar adjusted data
== "SCA",
s_adj # CLV10_MEUR: Chain linked volumes (2010), million euro
== "CP_MNAC") %>%
unit %>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
group_by(Geo) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("Production Manufacturière Trimestrielle") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(0, 1000, 5))
Code
%>%
namq_10_a10 filter(geo %in% c("FR", "DE", "IT"),
== "C",
nace_r2 # B1GQ: Gross domestic product at market prices
== "B1G",
na_item # SCA: Seasonally and calendar adjusted data
== "SCA",
s_adj # CLV10_MEUR: Chain linked volumes (2010), million euro
== "CLV10_MEUR") %>%
unit %>%
quarter_to_date filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(values = values/1000) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot scale_color_identity() + theme_minimal() + xlab("") + ylab("") + add_3flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.35, 0.85),
legend.title = element_blank()) +
scale_y_log10(breaks = seq(0, 1000, 10),
labels = dollar_format(suffix = " Bn€", prefix = "", accuracy = 1))
Netherlands, Germany, Spain, France, Italy
Table (% du PIB)
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("NL", "DE", "ES", "FR", "IT"),
geo == "CP_MNAC",
unit == "SCA",
s_adj == "2021Q3") %>%
time select_if(~ n_distinct(.) > 1) %>%
left_join(geo, by = "geo") %>%
left_join(nace_r2, by = "nace_r2") %>%
select(-geo) %>%
group_by(Geo) %>%
mutate(values = round(100* values/ values[nace_r2 == "TOTAL"], 2)) %>%
mutate(Geo = gsub(" ", "-", str_to_lower(Geo)),
Geo = paste0('<img src="../../bib/flags/vsmall/', Geo, '.png" alt="Flag">')) %>%
spread(Geo, values) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .} {
Table (€)
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("NL", "DE", "ES", "FR", "IT"),
geo == "CP_MNAC",
unit == "SCA",
s_adj == "2021Q3") %>%
time select_if(~ n_distinct(.) > 1) %>%
left_join(geo, by = "geo") %>%
left_join(nace_r2, by = "nace_r2") %>%
select(-geo) %>%
mutate(Geo = gsub(" ", "-", str_to_lower(Geo)),
Geo = paste0('<img src="../../bib/flags/vsmall/', Geo, '.png" alt="Flag">')) %>%
spread(Geo, values) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .} {
A - Agriculture, forestry and fishing
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("A", "TOTAL"),
nace_r2 %in% c("NL", "DE", "ES", "FR", "IT"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(color = ifelse(geo == "NL", color2, color)) %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_identity() + add_5flags +
scale_x_date(breaks = seq(1960, 2026, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1))
B-E - Industry (except construction)
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("B-E", "TOTAL"),
nace_r2 %in% c("NL", "DE", "ES", "FR", "IT"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_identity() + add_5flags +
scale_x_date(breaks = seq(1960, 2026, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1))
F - Construction
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("F", "TOTAL"),
nace_r2 %in% c("NL", "DE", "ES", "FR", "IT"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(color = ifelse(geo == "NL", color2, color)) %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_identity() + add_5flags +
scale_x_date(breaks = seq(1960, 2026, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1))
G-I - Wholesale and retail trade, transport, accommodation and food service activities
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("G-I", "TOTAL"),
nace_r2 %in% c("NL", "DE", "ES", "FR", "IT"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(color = ifelse(geo == "NL", color2, color)) %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_identity() + add_5flags +
scale_x_date(breaks = seq(1960, 2026, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1))
J - Information and communication
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("J", "TOTAL"),
nace_r2 %in% c("NL", "DE", "ES", "FR", "IT"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(color = ifelse(geo == "NL", color2, color)) %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_identity() + add_5flags +
scale_x_date(breaks = seq(1960, 2026, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, .5),
labels = percent_format(accuracy = .1))
K - Financial and insurance activities
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("K", "TOTAL"),
nace_r2 %in% c("NL", "DE", "ES", "FR", "IT"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(color = ifelse(geo == "NL", color2, color)) %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_identity() + add_5flags +
scale_x_date(breaks = seq(1960, 2026, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1))
L - Real estate activities
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("L", "TOTAL"),
nace_r2 %in% c("NL", "DE", "ES", "FR", "IT"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(color = ifelse(geo == "NL", color2, color)) %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_identity() + add_5flags +
scale_x_date(breaks = seq(1960, 2026, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1))
M_N - Professional, scientific and technical activities; administrative and support service activities
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("M_N", "TOTAL"),
nace_r2 %in% c("NL", "DE", "ES", "FR", "IT"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(color = ifelse(geo == "NL", color2, color)) %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_identity() + add_5flags +
scale_x_date(breaks = seq(1960, 2026, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1))
R-U - Arts, entertainment and recreation; other service activities; activities of household and extra-territorial organizations and bodies
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("R-U", "TOTAL"),
nace_r2 %in% c("NL", "DE", "ES", "FR", "IT"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(geo, by = "geo") %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(color = ifelse(geo == "NL", color2, color)) %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_identity() + add_5flags +
scale_x_date(breaks = seq(1960, 2026, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1))
% of GDP
France
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("C", "TOTAL", "L", "F"),
nace_r2 %in% c("FR"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, Nace_r2, date, values) %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.85),
legend.title = element_blank())
France (1995-)
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("C", "TOTAL", "L", "Q", "F"),
nace_r2 %in% c("FR"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
filter(date >= as.Date("1995-01-01")) %>%
left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, Nace_r2, date, values) %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(0, 30, 2),
labels = percent_format(accuracy = 1),
limits = c(0, 0.3)) +
theme(legend.position = c(0.75, 0.85),
legend.title = element_blank())
Germany
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("C", "TOTAL", "L", "Q", "F"),
nace_r2 %in% c("DE"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, Nace_r2, date, values) %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(0, 30, 2),
labels = percent_format(accuracy = 1),
limits = c(0, 0.3)) +
theme(legend.position = c(0.75, 0.85),
legend.title = element_blank())
Italy
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("C", "TOTAL", "L", "Q", "F"),
nace_r2 %in% c("IT"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, Nace_r2, date, values) %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.85),
legend.title = element_blank())
Spain
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("C", "TOTAL", "L", "Q", "F"),
nace_r2 %in% c("ES"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, Nace_r2, date, values) %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.85),
legend.title = element_blank())
Greece
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("C", "TOTAL", "L", "Q", "F"),
nace_r2 %in% c("EL"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, Nace_r2, date, values) %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.25, 0.85),
legend.title = element_blank())
Netherlands
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("C", "TOTAL", "L", "Q", "F"),
nace_r2 %in% c("NL"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, Nace_r2, date, values) %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.85),
legend.title = element_blank())
Danemark
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("C", "TOTAL", "L", "Q", "F"),
nace_r2 %in% c("DK"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, Nace_r2, date, values) %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.85),
legend.title = element_blank())
Belgium
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("C", "TOTAL", "L", "Q", "F"),
nace_r2 %in% c("BE"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, Nace_r2, date, values) %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.85),
legend.title = element_blank())
Finland
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("C", "TOTAL", "L", "Q", "F"),
nace_r2 %in% c("FI"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, Nace_r2, date, values) %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.85),
legend.title = element_blank())
Portugal
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("C", "TOTAL", "L", "Q", "F"),
nace_r2 %in% c("PT"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, Nace_r2, date, values) %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.85),
legend.title = element_blank())
Austria
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("C", "TOTAL", "L", "Q", "F"),
nace_r2 %in% c("AT"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, Nace_r2, date, values) %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.85),
legend.title = element_blank())
Sweden
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("C", "TOTAL", "L", "Q", "F"),
nace_r2 %in% c("SE"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, Nace_r2, date, values) %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.85),
legend.title = element_blank())
United Kingdom
Code
%>%
namq_10_a10 filter(na_item == "B1G",
%in% c("C", "TOTAL", "L", "Q", "F"),
nace_r2 %in% c("UK"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
left_join(nace_r2, by = "nace_r2") %>%
select(nace_r2, Nace_r2, date, values) %>%
group_by(date) %>%
mutate(values = values/ values[nace_r2 == "TOTAL"]) %>%
filter(nace_r2 != "TOTAL") %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = Nace_r2)) +
theme_minimal() + xlab("") + ylab("% of GDP") +
scale_color_manual(values = viridis(4)[1:3]) +
scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 1),
labels = percent_format(accuracy = 1)) +
theme(legend.position = c(0.75, 0.85),
legend.title = element_blank())
Relative to EA Manufacturing Value Added
1995-
NSA
Code
%>%
namq_10_a10 filter(na_item == "B1G",
== "C",
nace_r2 %in% c("EA", "FR", "DE", "IT", "ES", "NL", "AT", "FI"),
geo == "CP_MNAC",
unit == "NSA") %>%
s_adj quarter_to_date() %>%
filter(date >= as.Date("1995-01-01")) %>%
#filter(date <= as.Date("2019-01-01")) %>%
left_join(geo, by = "geo") %>%
group_by(date) %>%
filter(n() == 8) %>%
mutate(values = values /values[geo == "EA"]) %>%
filter(geo != "EA") %>%
group_by(geo) %>%
mutate(values = 100*values / values[date == as.Date("1995-01-01")]) %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(color = ifelse(geo == "FR", color2, color)) %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("Valeur ajoutée manuf. par rapport à la Zone €") +
scale_color_identity() + add_7flags +
scale_x_date(breaks = seq(1960, 2023, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0, 200, 5)) +
theme(legend.position = "none")
SCA
Code
%>%
namq_10_a10 filter(na_item == "B1G",
== "C",
nace_r2 %in% c("EA", "FR", "DE", "IT", "ES", "NL", "AT", "FI"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
filter(date >= as.Date("1995-01-01")) %>%
#filter(date <= as.Date("2019-01-01")) %>%
left_join(geo, by = "geo") %>%
group_by(date) %>%
filter(n() == 8) %>%
mutate(values = values /values[geo == "EA"]) %>%
filter(geo != "EA") %>%
group_by(geo) %>%
mutate(values = 100*values / values[date == as.Date("1995-01-01")]) %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(color = ifelse(geo == "FR", color2, color)) %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("Valeur ajoutée manuf. par rapport à la Zone €") +
scale_color_identity() + add_7flags +
scale_x_date(breaks = seq(1960, 2023, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0, 200, 5)) +
theme(legend.position = "none")
SCA
Code
%>%
namq_10_a10 filter(na_item == "B1G",
== "C",
nace_r2 %in% c("EA", "FR", "DE", "IT", "ES", "NL"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
filter(date >= as.Date("1995-01-01")) %>%
#filter(date <= as.Date("2019-01-01")) %>%
left_join(geo, by = "geo") %>%
group_by(date) %>%
filter(n() == 6) %>%
mutate(values = values /values[geo == "EA"]) %>%
filter(geo != "EA") %>%
group_by(geo) %>%
mutate(values = 100*values / values[date == as.Date("1995-01-01")]) %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(color = ifelse(geo == "FR", color2, color)) %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("Valeur ajoutée manuf. par rapport à la Zone €") +
scale_color_identity() + add_5flags +
scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0, 200, 5)) +
theme(legend.position = "none")
2000-
Code
%>%
namq_10_a10 filter(na_item == "B1G",
== "C",
nace_r2 %in% c("EA", "FR", "DE", "IT", "ES", "NL", "AT", "FI"),
geo == "CP_MNAC",
unit == "SCA") %>%
s_adj quarter_to_date() %>%
filter(date >= as.Date("2000-01-01")) %>%
#filter(date <= as.Date("2019-01-01")) %>%
left_join(geo, by = "geo") %>%
group_by(date) %>%
filter(n() == 8) %>%
mutate(values = values /values[geo == "EA"]) %>%
filter(geo != "EA") %>%
group_by(geo) %>%
mutate(values = 100*values / values[date == as.Date("2000-01-01")]) %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(color = ifelse(geo == "FR", color2, color)) %>%
ggplot(.) + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("Valeur ajoutée manuf. par rapport à la Zone €") +
scale_color_identity() + add_7flags +
scale_x_date(breaks = seq(1960, 2026, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0, 200, 5)) +
theme(legend.position = "none")