Skip to content
Snippets Groups Projects
Commit 3d2fc7da authored by Ingram Jaccard's avatar Ingram Jaccard
Browse files

edit si

parent 72c0f062
Branches
No related tags found
No related merge requests found
Showing
with 11 additions and 10 deletions
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
No preview for this file type
File deleted
File added
File deleted
File added
File deleted
File added
File deleted
File added
,jaccard,jaccard-Latitude-E6440,29.01.2021 17:34,file:///home/jaccard/.config/libreoffice/4;
\ No newline at end of file
......@@ -292,7 +292,7 @@ a = p_top / p_bottom + plot_annotation(tag_levels = 'a') +
axis.text.y = element_text(size = 12),
legend.text = element_text(size=12),
legend.title = element_text(size=13))
library(Cairo)
ggsave(here("analysis", "figures", "figure1.pdf"), device=cairo_pdf)
```
......@@ -437,7 +437,7 @@ pdat_int_energy = get_sector_summary_by_eu_ntile_direct(eu_q_count) %>%
ungroup() %>%
filter(year==2015) %>%
left_join(read_csv(here("analysis/data/derived/sectors_agg_method1_ixi.csv")), by="sector_agg_id") %>%
mutate(value = (total_energy_use_tj)/(total_fd_me*1000)) %>%
mutate(value = (total_energy_use_tj)/(total_fd_me)) %>%
select(five_sectors, eu_q_rank,
value) %>%
mutate(indicator = "Energy intensity (MJ/€)")
......@@ -447,6 +447,8 @@ pdat = pdat_int_co2eq %>%
bind_rows(pdat_int_energy) %>%
bind_rows(pdat_basket)
pdat$facet = factor(pdat$indicator, levels = c("Expenditure share (%)", "Energy intensity (MJ/€)", "Carbon intensity (kgCO2eq/€)"))
a = ggplot(pdat, aes(x=value, y=five_sectors, color=eu_q_rank)) +
#geom_point(shape=18, alpha=0.75) +
geom_text(label="I", alpha=0.75, fontface="bold") +
......@@ -454,16 +456,16 @@ a = ggplot(pdat, aes(x=value, y=five_sectors, color=eu_q_rank)) +
direction = -1,
breaks = c(1, 5, 10),
name="European decile") +
facet_wrap(~indicator, scales="free_x") +
facet_wrap(~facet, scales="free_x") +
theme_minimal() +
labs(x="", y="")+
theme(text=element_text(size=13, family="Liberation Sans Narrow"))
ggsave(here("analysis", "figures", "figure2-test.pdf"))
ggsave(here("analysis", "figures", "figure2.pdf"), device=cairo_pdf)
```
```{r figure2, out.width="100%", fig.cap="Sectoral expenditure shares and carbon intensities of European expenditure deciles. Share of expenditure per final demand sector of total spending per decile in percent (a) and carbon intensity per final demand sector in kgCO2eq/€."}
knitr::include_graphics(here::here("analysis", "figures", "figure2-test.pdf"))
knitr::include_graphics(here::here("analysis", "figures", "figure2.pdf"))
```
```{r values-in-text2}
......
No preview for this file type
......@@ -1066,7 +1066,7 @@ a = p_top / p_bottom + plot_annotation(tag_levels = 'a') +
legend.title = element_text(size=13))
a
ggsave(here("analysis", "figures", "figureS1-test.pdf"))
ggsave(here("analysis", "figures", "figureS1.pdf"), device=cairo_pdf)
```
......@@ -1300,7 +1300,7 @@ a = p_top / p_bottom + plot_annotation(tag_levels = 'a') +
a
ggsave(here("analysis", "figures", "figureS2-test.pdf"))
ggsave(here("analysis", "figures", "figureS2.pdf"), device=cairo_pdf)
```
......@@ -1572,7 +1572,7 @@ a = p_top / p_bottom + plot_annotation(tag_levels = 'a') +
a
ggsave(here("analysis", "figures", "figureS3-test.pdf"))
ggsave(here("analysis", "figures", "figureS3.pdf"), device=cairo_pdf)
```
......@@ -1730,7 +1730,7 @@ a = p_top / p_bottom + plot_annotation(tag_levels = 'a') +
a
ggsave(here("analysis", "figures", "figureS4-test.pdf"))
ggsave(here("analysis", "figures", "figureS4.pdf"), device=cairo_pdf)
```
......
No preview for this file type
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment