updated final figures

gabezuckerman · Mar 17, 2023 · 4108ee7 · 4108ee7
1 parent d41e62c
commit 4108ee7
Show file tree

Hide file tree

Showing 11 changed files with 10 additions and 8 deletions.
diff --git a/.DS_Store b/.DS_Store
diff --git a/.gitignore b/.gitignore
@@ -72,6 +72,8 @@ mapFigs
 Final Submission/Final Figures
 magnitude.jpeg
 illustrator files
+Final Submission/Final Submission 2/updated_figure_1.tif
+
 
 
 
diff --git a/Final Submission/.DS_Store b/Final Submission/.DS_Store
diff --git a/Final Submission/Final Submission 2/.DS_Store b/Final Submission/Final Submission 2/.DS_Store
diff --git a/Final Submission/Final Submission 2/Appendix_S1.pdf b/Final Submission/Final Submission 2/Appendix_S1.pdf
diff --git a/Final Submission/Final Submission 2/Appendix_S2.pdf b/Final Submission/Final Submission 2/Appendix_S2.pdf
diff --git a/Final Submission/Final Submission 2/Appendix_S3.pdf b/Final Submission/Final Submission 2/Appendix_S3.pdf
diff --git a/Final Submission/Final Submission 2/Zuckerman_etal_FINAL.docx b/Final Submission/Final Submission 2/Zuckerman_etal_FINAL.docx
diff --git a/...on/~$nuary resubmission with changes.docx → ...al Submission 2/~$ckerman_etal_FINAL.docx b/...on/~$nuary resubmission with changes.docx → ...al Submission 2/~$ckerman_etal_FINAL.docx
diff --git a/Final Submission/~$nuary resubmission.docx b/Final Submission/~$nuary resubmission.docx
diff --git a/plasticity2.Rmd b/plasticity2.Rmd
@@ -98,17 +98,17 @@ allIndYears <- rbind(allIndYears %>% filter(class == "R"), nonRes)
 library(extrafont)
 font_import()
 loadfonts()
-ggplot(allIndYears) + geom_point(aes(dists, absElev, color = class), alpha = .3) +
-  ylab("Abosulte elevation change (m)") +   xlab("Geographic distance (m)") + 
-  geom_text(x=25000, y=1100, label="EM (21.9%)", color = "#1b9e77", size = 9, family = "Century Gothic") +
-  geom_text(x=25000, y=400, label="SDM (53.7%)", color = "#e7298a", size = 9, family = "Century Gothic") +
-  geom_text(x = 75000, y = 1000, label = "LDM (19.6%)", color = "#d95f02", size = 9, family = "Century Gothic") + 
-  geom_text(x = 18000, y = 0, label = "R (4.8%)", color = "#7570b3", size = 9, family = "Century Gothic") +
-  theme_bw() + theme(legend.position = "none", text=element_text(size=16, family = "Century Gothic"), 
+p <- ggplot(allIndYears) + geom_point(aes(dists, absElev, color = class), alpha = .3) +
+  ylab("Abosolute elevation change (m)") +   xlab("Geographic distance (m)") + 
+  geom_text(x=25000, y=1100, label="EM (21.9%)", color = "#1b9e77", size = 4, family = "Century Gothic") +
+  geom_text(x=50000, y=150, label="SDM (53.7%)", color = "#e7298a", size = 4, family = "Century Gothic") +
+  geom_text(x = 75000, y = 1000, label = "LDM (19.6%)", color = "#d95f02", size = 4, family = "Century Gothic") + 
+  geom_text(x = 18000, y = 0, label = "R (4.8%)", color = "#7570b3", size = 4, family = "Century Gothic") +
+  theme_bw() + theme(legend.position = "none", text=element_text(size=12, family = "Century Gothic"), 
                      plot.title = element_text(hjust = 0.5)) + 
   scale_color_manual(values = c("#1b9e77", "#d95f02", "#7570b3", "#e7298a")) + ggtitle("Migratory Portfolio")
   
-
+ggsave("/Users/gzuckerman/Desktop/test.jpg", p, dpi=600, height=9.7, width = 8.2, units = "cm")
 
 ```