Merge pull request #7 from JGCRI/3-reproducing-temp-projection-figure

3 reproducing temp projection figure

Author: jk-brown

ECS-evidence-analysis.Rproj

@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: 3f3f4a97-b16d-4a20-89c2-b67cb71312c2
 
 RestoreWorkspace: Default
 SaveWorkspace: Default

workflows/05_running_ks_test.Rmd

@@ -57,8 +57,7 @@ combined_data <- rbind(Baseline, IPCC, No_Process, No_Historical, No_Paleoclimat
 # recoding scenario names for the plot
 cdf_df <- recode_scenarios(combined_data)
 
-# Order factor levels for plot 
-scenario_order <- scenario_order
+cdf_df$scenario <- factor(cdf_df$scenario, levels = names(ECS_COLORS))
 
 # Plot CDFs
 CDF_temp <- ggplot(cdf_df, 
@@ -67,6 +66,7 @@ CDF_temp <- ggplot(cdf_df,
                        linetype = scenario)) +
   geom_line(stat = "ecdf", 
             linewidth = 1,) +
+  scale_x_continuous(limits = c(0, 4.5), expand = c(0, 0)) +
   scale_color_manual(values = ECS_COLORS, name = "ECS configurations") +
   scale_linetype_manual(values = LINE_TYPE, guide = "none") +
   labs(x = expression(paste("Future Warming (GSAT) relative to 1995-2014 (", degree, "C)")),