Wrong color for a second corporate economy

[Antoine-Lalechere]

@MonikaFu ,
As discussed last week, I created you an issue for the color of second corporate economy. The blue line is not really visible when we try to plot 2 corporate economy. Tell me if you need more input from my sde.

library(readxl)
library(r2dii.data)
library(r2dii.match)
library(r2dii.plot)
library(r2dii.analysis)
#> Warning: le package 'r2dii.analysis' a été compilé avec la version R 4.1.1
library(tidyverse)
library(ggplot2)

matched<-match_name(loanbook_demo, ald_demo)%>% prioritize()
out<-target_market_share(matched, ald_demo, scenario_demo_2020, region_isos_demo)

ald_demo_fr<-ald_demo%>%
  filter(plant_location=="DM")

out_fr<-target_market_share(matched, ald_demo_fr, scenario_demo_2020, region_isos_demo)%>%
  filter(metric=="corporate_economy")%>%
  mutate(metric="corporate_economy_fr")

out<-rbind(out,out_fr)

out%>%
  subset(technology == "oilcap" & region == "global") %>%
  qplot_trajectory()
#> Removing data before 2020 -- the start year of 'projected'.
#> Normalizing `production` values to 2020 -- the start year.
#> Warning in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)): famille de
#> police introuvable dans la base de données des polices Windows
#> Warning in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)): famille de
#> police introuvable dans la base de données des polices Windows

#> Warning in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)): famille de
#> police introuvable dans la base de données des polices Windows
#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
#> famille de police introuvable dans la base de données des polices Windows

#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
#> famille de police introuvable dans la base de données des polices Windows

#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
#> famille de police introuvable dans la base de données des polices Windows

#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
#> famille de police introuvable dans la base de données des polices Windows

#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
#> famille de police introuvable dans la base de données des polices Windows

#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
#> famille de police introuvable dans la base de données des polices Windows

#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
#> famille de police introuvable dans la base de données des polices Windows

#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
#> famille de police introuvable dans la base de données des polices Windows

#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
#> famille de police introuvable dans la base de données des polices Windows

#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
#> famille de police introuvable dans la base de données des polices Windows

#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
#> famille de police introuvable dans la base de données des polices Windows
#> Warning in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y, :
#> famille de police introuvable dans la base de données des polices Windows
#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
#> famille de police introuvable dans la base de données des polices Windows

#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
#> famille de police introuvable dans la base de données des polices Windows

Created on 2021-08-30 by the reprex package (v2.0.0)