Emissions - citepa - emissions

Données - Citepa

Auteur·rice

François Geerolf

Valeur

Code 
emissions |>
  gather(variable, value, -date) |>
  left_join(emissions_variable, by = "variable") |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  theme_minimal() + xlab("") + ylab("Emissions") +
  scale_x_date(breaks = seq(1940, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 500, 20),
                labels = dollar_format(accuracy = 1, su = " Mt")) +
  #
  theme(legend.position = c(0.65, 0.9),
        legend.title = element_blank())

Log

New

Code 
emissions |>
  gather(variable, value, -date) |>
  left_join(emissions_variable, by = "variable") |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  theme_minimal() + xlab("") + ylab("Emissions") +
  scale_x_date(breaks = seq(1940, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 500, 20),
                labels = dollar_format(accuracy = 1, su = " Mt")) +
  theme(legend.position = c(0.25, 0.4),
        legend.title = element_blank())

Base 100

Code 
emissions |>
  gather(variable, value, -date) |>
  left_join(emissions_variable, by = "variable") |>
  group_by(variable) |>
  mutate(value = 100*value/value[date == as.Date("1990-01-01")]) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  theme_minimal() + xlab("") + ylab("Emissions (100 = 1990)") +
  scale_x_date(breaks = seq(1940, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 500, 10)) +
  theme(legend.position = c(0.25, 0.25),
        legend.title = element_blank())

53 = 2030, 16 = 2050

Total

Code 
emissions |>
  gather(variable, value, -date) |>
  filter(variable == "manuf_construction") |>
  select(-variable) |>
  add_row(date = as.Date("2030-01-01"), value = 53) |>
  add_row(date = as.Date("2050-01-01"), value = 16) |>
  #mutate(value = 100*value/value[date == as.Date("1990-01-01")]) %>%
  ggplot() + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("Emissions dans l'industrie Manuf + Construction") +
  scale_x_date(breaks = seq(1940, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 500, 10),
                labels = dollar_format(pre = "", su = " Mt", acc = 1)) +
  #
  theme(legend.position = c(0.25, 0.25),
        legend.title = element_blank()) +
  geom_point(aes(x = as.Date("2030-01-01"), y = 53)) +
  geom_point(aes(x = as.Date("2050-01-01"), y = 16))

Base-100

Code 
emissions |>
  gather(variable, value, -date) |>
  filter(variable == "manuf_construction") |>
  select(-variable) |>
  filter(date >= as.Date("2015-01-01"),
         date != as.Date("2020-01-01")) |>
  add_row(date = as.Date("2030-01-01"), value = 53) |>
  add_row(date = as.Date("2050-01-01"), value = 16) |>
  mutate(value = 100*value/value[date == as.Date("2015-01-01")]) |>
  ggplot() + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("Emissions dans l'industrie Manuf + Construction") +
  scale_x_date(breaks = seq(1940, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 500, 10),
                labels = dollar_format(pre = "", su = "", acc = 1)) +
  
  geom_point(aes(x = as.Date("2030-01-01"), y = 60.3)) +
  theme(legend.position = c(0.25, 0.25),
        legend.title = element_blank())

Industrie manuf.

Base 100

Code 
emissions_manuf |>
  gather(variable, value, -date) |>
  filter(variable != "total_manuf") |>
  left_join(emissions_manuf_variable, by = "variable") |>
  group_by(variable) |>
  mutate(value = 100*value/value[date == as.Date("1990-01-01")]) |>
  ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
  theme_minimal() + xlab("") + ylab("Emissions (100 = 1990)") +
  scale_x_date(breaks = seq(1940, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 500, 10)) +
  scale_color_manual(values = viridis(10)[1:9]) +
  theme(legend.position = c(0.25, 0.3),
        legend.title = element_blank())

Last data update: 04 sept. 2026, 00:57

Last compile: 04 sept. 2026, 00:57

Diminution

Code 
i_g("bib/citepa/2021_06_a09_secten1.png")