high res figures for pub

bmaitner · May 5, 2023 · 74ad338 · 74ad338
1 parent e8ee586
commit 74ad338
Show file tree

Hide file tree

Showing 5 changed files with 17 additions and 8 deletions.
diff --git a/R_scripts/3_maps.R b/R_scripts/3_maps.R
@@ -112,6 +112,9 @@ ggsave(plot = overall_trait_completeness,
 ggsave(plot = overall_trait_completeness,
        filename = "plots/focal_completeness.jpg",width = 10,height = 4.5, bg = "white")
 
+ggsave(plot = overall_trait_completeness,
+       filename = "plots/fig1_high_res.pdf",width = 10,height = 4.5, bg = "white",dpi = 600)
+
 
 #######################################################
 
@@ -359,11 +362,15 @@ library(ggpubr)
             widths = c(2,1),
             labels = "AUTO")
 
-  ggsave(filename = "plots/phylo_and_dist_completeness.svg",width = 10,height = 4.5)
-  ggsave(filename = "plots/phylo_and_dist_completeness_tall.svg",width = 10,height = 4.5)
-  ggsave(filename = "plots/phylo_and_dist_completeness.jpg",width = 10,height = 4.5, bg = "white")
-  ggsave(filename = "plots/phylo_and_dist_completeness_tall.jpg",width = 10,height = 10, bg = "white")
-  ggsave(filename = "plots/phylo_and_dist_completeness_med.jpg",width = 10,height = 7, bg = "white")
+  ggsave(plot = phylo_and_dist, filename = "plots/phylo_and_dist_completeness.svg",width = 10,height = 4.5)
+  ggsave(plot = phylo_and_dist,filename = "plots/phylo_and_dist_completeness_tall.svg",width = 10,height = 4.5)
+  ggsave(plot = phylo_and_dist,filename = "plots/phylo_and_dist_completeness.jpg",width = 10,height = 4.5, bg = "white")
+  ggsave(plot = phylo_and_dist,filename = "plots/phylo_and_dist_completeness_tall.jpg",width = 10,height = 10, bg = "white")
+  ggsave(plot = phylo_and_dist,filename = "plots/phylo_and_dist_completeness_med.jpg",width = 10,height = 7, bg = "white")
+
+  ggsave(plot = phylo_and_dist,filename = "plots/fig2_high_res.pdf",width = 10,height = 7, bg = "white",dpi = 600)
+
+
 
   # Distrbutional data
     max(tdwg$DISRIBUTIONAL_COMPLETENESS) #100%

diff --git a/R_scripts/4_austraits_comparison.R b/R_scripts/4_austraits_comparison.R
@@ -132,9 +132,9 @@
 
     length(unique(all_data$AccSpeciesName))/length(unique(wcvp$taxon_name))#89%
 
-    trait_coverage_w_austraits <-
-      get_trait_coverage(wcvp = wcvp,
-                         trait_summary = all_data)
+    # trait_coverage_w_austraits <-
+    #   get_trait_coverage(wcvp = wcvp,
+    #                      trait_summary = all_data)
 
     # saveRDS(object = trait_coverage_w_austraits,
     #         file = "data/cleaning_raw_names/focal_trait_coverage_australia_w_austraits.rds")
@@ -246,6 +246,8 @@ ggsave(plot = austry_plot,
        filename = "plots/austraits_plus_try.jpg",width = 10,height = 4.5, bg = "white")
 
 
+ggsave(plot = austry_plot,
+       filename = "plots/fig3_high_res.pdf",width = 10,height = 4.5, bg = "white",dpi = 600)
 
 
 

diff --git a/plots/fig1_high_res.pdf b/plots/fig1_high_res.pdf
diff --git a/plots/fig2_high_res.pdf b/plots/fig2_high_res.pdf
diff --git a/plots/fig3_high_res.pdf b/plots/fig3_high_res.pdf