Update Fig 1 and S1 y axis scaling

rsh249 · Aug 11, 2020 · bd0c2cf · bd0c2cf
1 parent d40651b
commit bd0c2cf
Show file tree

Hide file tree

Showing 5 changed files with 6 additions and 6 deletions.
diff --git a/Figure1.pdf b/Figure1.pdf
diff --git a/Figure1.png b/Figure1.png
diff --git a/Figure2.pdf b/Figure2.pdf
diff --git a/FigureS1.pdf b/FigureS1.pdf
diff --git a/R/nyt_county.R b/R/nyt_county.R
@@ -260,7 +260,7 @@ bb1 = ggplot(cv_ex %>% filter(date == last_day) %>% filter(!is.na(pop))) +
   geom_density(aes(x=wc2.1_2.5m_tmax_03, weight=(cases/pop)/sum(cases/pop)), colour='darkred', fill='darkred', alpha=0.1)+
   geom_density(data=all_ex2, aes(x=wc2.1_2.5m_tmax_03, weight=pop/sum(pop)), colour='darkblue', fill='darkblue', alpha=0.1) +
   theme_minimal() + 
-  ylim(c(0, 0.09)) +
+  ylim(c(0, 0.11)) +
   xlab('Max Temparature (C)') +
   ylab('Density')
 
@@ -270,15 +270,15 @@ bb2 = ggplot(cv_ex %>% filter(date == last_day - 14) %>% filter(!is.na(pop))) +
   geom_density(aes(x=wc2.1_2.5m_tmax_03, weight=(cases/pop)/sum(cases/pop)), colour='darkred', fill='darkred', alpha=0.1)+
   geom_density(data=all_ex2, aes(x=wc2.1_2.5m_tmax_03, weight=pop/sum(pop)), colour='darkblue', fill='darkblue', alpha=0.1) +
   theme_minimal() + 
-  ylim(c(0, 0.09)) +
+  ylim(c(0, 0.11)) +
   xlab('Max Temperature (C)') +
   ylab('Density')
 
 bb3 = ggplot(cv_ex %>% filter(date == last_day - 28) %>% filter(!is.na(pop))) +
   geom_density(aes(x=wc2.1_2.5m_tmax_03, weight=(cases/pop)/sum(cases/pop)), colour='darkred', fill='darkred', alpha=0.1)+
   geom_density(data=all_ex2, aes(x=wc2.1_2.5m_tmax_03, weight=pop/sum(pop)), colour='darkblue', fill='darkblue', alpha=0.1) +
   theme_minimal() +
-  ylim(c(0, 0.09)) +
+  ylim(c(0, 0.11)) +
   xlab('Max Temperature (C)') +
   ylab('Density')
 
@@ -367,7 +367,7 @@ d1 = ggplot(cv_ex %>% filter(date == last_day) %>% filter(!is.na(pop))) +
   geom_density(aes(x=wc2.1_2.5m_vapr_03, weight=(cases/pop)/sum(cases/pop)), colour='darkred', fill='darkred', alpha=0.1)+
   geom_density(data=all_ex2, aes(x=wc2.1_2.5m_vapr_03, weight=pop/sum(pop)), colour='darkblue', fill='darkblue', alpha=0.1) +
   theme_minimal() + 
-  ylim(c(0, 2.5)) +
+  ylim(c(0, 2.75)) +
   xlab('Water Vapor Pressure (kPa)') +
   ylab('Density')
 
@@ -377,15 +377,15 @@ d2 = ggplot(cv_ex %>% filter(date == last_day - 14) %>% filter(!is.na(pop))) +
   geom_density(aes(x=wc2.1_2.5m_vapr_03, weight=(cases/pop)/sum(cases/pop)), colour='darkred', fill='darkred', alpha=0.1)+
   geom_density(data=all_ex2, aes(x=wc2.1_2.5m_vapr_03, weight=pop/sum(pop)), colour='darkblue', fill='darkblue', alpha=0.1) +
   theme_minimal() + 
-  ylim(c(0, 2.5)) +
+  ylim(c(0, 2.75)) +
   xlab('Water Vapor Pressure (kPa)') +
   ylab('Density')
 
 d3 = ggplot(cv_ex %>% filter(date == last_day - 28) %>% filter(!is.na(pop))) +
   geom_density(aes(x=wc2.1_2.5m_vapr_03, weight=(cases/pop)/sum(cases/pop)), colour='darkred', fill='darkred', alpha=0.1)+
   geom_density(data=all_ex2, aes(x=wc2.1_2.5m_vapr_03, weight=pop/sum(pop)), colour='darkblue', fill='darkblue', alpha=0.1) +
   theme_minimal() + 
-  ylim(c(0, 2.5)) +
+  ylim(c(0, 2.75)) +
   xlab('Water Vapor Pressure (kPa)') +
   ylab('Density')