提交: e66d846e811c751a5af1a73b0802ff5fcb7b56e4 - myprojects-hg-reborn (hg)

Commit MetaInfo

• 修訂: e66d846e811c751a5af1a73b0802ff5fcb7b56e4 (tree)
• 時間: 2024-12-19 19:47:37
• 作者: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I added a new theme which does not require legend positioning.

Change Summary

• modified: R-codes/stat_lib.R

差異

diff -r c57a57167e78 -r e66d846e811c R-codes/stat_lib.R
--- a/R-codes/stat_lib.R	Wed Dec 18 13:02:11 2024 +0100
+++ b/R-codes/stat_lib.R	Thu Dec 19 11:47:37 2024 +0100
@@ -1453,6 +1453,40 @@
 
 
 
+my_ggplot_theme_new <- function(){
+    theme_bw()+
+
+    theme(## legend.title = element_text(vjust=1,lineheight=1, size=14 ),
+
+        legend.title = element_text(vjust = 1,lineheight=1,
+                                    size=14, margin = margin(t = 4.5)),
+        legend.spacing.y = grid::unit(3, "pt"),
+        ## legend.text.align = 0.5,
+          ## legend.text = element_text(hjust=0.5),
+          panel.grid.minor = element_blank(),
+          plot.title = element_text(lineheight=.8, size=24, face="bold",
+                                    vjust=1),
+        legend.text = element_text(vjust=.4, hjust=0.5, lineheight=1,size = 14 ),
+          axis.title.x = element_text(size = 20, vjust=1),
+                axis.title.y = element_text(size = 20, angle=90, vjust=1),
+                axis.text.x = element_text(size=15, colour="black", vjust=1),
+          axis.text.y = element_text(size=15, colour="black", hjust=1),
+        ## legend.position.inside = legend_coord,
+        ## legend.position = legend_coord,
+           strip.background = element_rect(colour = 'blue',
+                           fill = 'white', linewidth = 1, linetype=1),
+                strip.text.x = element_text(colour = 'red', angle = 0,
+                                     size = 12, hjust = 0.5,
+                    vjust = 0.5, face = 'bold'),
+                   strip.text.y = element_text(colour = 'red', angle = 0,
+                    size = 12, hjust = 0.5,
+                    vjust = 0.5, face = 'bold'),
+     
+          )
+}
+
+
+
 
 
 my_ggplot_theme3 <- function(legend_coord){