update top7_barplot_sum figure

nmfs-fish-tools · Jul 1, 2024 · f0a239b · f0a239b
1 parent 5501818
commit f0a239b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/TextAnalysis/top7_analysis.R b/TextAnalysis/top7_analysis.R
@@ -233,7 +233,7 @@ sum_by_group <- aggregate(value ~ keyword+keyword_id+group+Region, data = data_m
 sum_by_group <- sum_by_group[order(sum_by_group$keyword_id),]
 group <- unique(sum_by_group$group)
 sum_by_group$group <- factor(sum_by_group$group, levels = group)
-# jpeg(filename = here::here("TextAnalysis", "top7_barplot_sum.jpg"), width=200, height=150, units="mm", res=1200)
+jpeg(filename = here::here("TextAnalysis", "top7_barplot_sum.jpg"), width=200, height=300, units="mm", res=1200)
 ggplot(sum_by_group, aes(fill=Region, y=value, x=keyword_id)) + 
   geom_bar(position="dodge", stat="identity") +
   facet_wrap(~group, scales = "free_x", ncol = 1) +
@@ -246,8 +246,8 @@ ggplot(sum_by_group, aes(fill=Region, y=value, x=keyword_id)) +
     panel.background = NULL,
     panel.grid.major.x = element_blank(), 
     panel.grid.major.y = element_blank()) 
-ggsave(here::here("TextAnalysis", "top7_barplot_sum.jpg"))
-# dev.off()
+# ggsave(here::here("TextAnalysis", "top7_barplot_sum.jpg"))
+dev.off()
 
 mean_by_group <- aggregate(value ~ keyword+keyword_id+group+Region, data = data_merge, mean)
 mean_by_group <- mean_by_group[order(mean_by_group$keyword_id),]

diff --git a/TextAnalysis/top7_barplot_sum.jpg b/TextAnalysis/top7_barplot_sum.jpg