color, lable changes

codes/stasitic.Rmd

@@ -234,9 +234,9 @@ scale_color_manual(values = c("#66C2A5", "#FC8D62"))+
 scale_y_continuous(breaks = seq(0, 7, by = 1))+
 labs(x = "positions", y = "foraging score") + theme_classic() + facet_wrap(~age, ncol=2)
 
-Fig1a_1b <- ggarrange(Fig1a, Fig1b, ncols=2,labels=c('A','B'), common.legend=TRUE,legend="right", widths=c(1,2))
+Fig1a_1b <- ggarrange(Fig1a, Fig1b, ncols=2,labels=c('A','B'), common.legend=TRUE,legend="bottom", widths=c(1,2))
 Fig1a_1b
-ggsave('C:/Users/xiamen/Desktop/modified robogator/result figs/Fig1a_1b.svg', plot = Fig1a_1b, device = 'svg',dpi = 300, width = 176, height = 140, units = "mm")
+ggsave('C:/Users/xiamen/Desktop/modified robogator/result figs/Fig1a_1b.svg', plot = Fig1a_1b, device = 'svg',dpi = 300, width = 116, height = 140, units = "mm")
 ```
 
 ## SD rat, success rate
@@ -385,9 +385,9 @@ scale_color_manual(values = c("#8DA0CB", "#E78AC3"))+
 scale_y_continuous(breaks = seq(0, 7, by = 1))+
 labs(x = "positions", y = "foraging score") + theme_classic() + facet_wrap(~restriction, ncol=2,labeller = labeller(group = c("45" = "45%", "60" = "60%")))
 
-Fig2a_2b <- ggarrange(Fig2a, Fig2b, ncols=2,labels=c('A','B'), common.legend=TRUE,legend="right", widths=c(1,2))
+Fig2a_2b <- ggarrange(Fig2a, Fig2b, ncols=2,labels=c('A','B'), common.legend=TRUE,legend="bottom", widths=c(1,2))
 Fig2a_2b
-ggsave('C:/Users/xiamen/Desktop/modified robogator/result figs/Fig2a_2b.svg', plot = Fig2a_2b, device = 'svg',dpi = 300, width = 176, height = 140, units = "mm")
+ggsave('C:/Users/xiamen/Desktop/modified robogator/result figs/Fig2a_2b.svg', plot = Fig2a_2b, device = 'svg',dpi = 300, width = 116, height = 140, units = "mm")
 ```
 ##plot_sex effect
 #PND70
@@ -483,7 +483,7 @@ ggsave('C:/Users/xiamen/Desktop/modified robogator/result figs/Fig_LE_sex_blined
 ```{r}
 Fig3 <- ggarrange(Fig_SD_sex_age_70,Fig_SD_sex_age_140,Fig_LE_sex_restriction_45,Fig_LE_sex_restriction_60,Fig_LE_sex_general,Fig_LE_sex_blineday6_general,ncol=2, nrow=3,labels=c('A','B','C','D','E','F'),common.legend=TRUE,legend="none")
 Fig3
-ggsave('C:/Users/xiamen/Desktop/modified robogator/result figs/Fig3.svg', plot = Fig3, device = 'svg',dpi = 300, width = 176, height = 190, units = "mm")
+ggsave('C:/Users/xiamen/Desktop/modified robogator/result figs/Fig3.svg', plot = Fig3, device = 'svg',dpi = 300, width = 176, height = 160, units = "mm")
 ```
 
 
@@ -546,7 +546,7 @@ Fig_LE_leaving <- ggplot(df.LE_Rday1, aes(x=trials, y=leaving.score, group=rat_I
 geom_line(color="gray", alpha=0.2)+
 stat_summary(fun = "mean", size = 1, aes(group = restriction, color= restriction), geom = "line", fun.min = 'sd', fun.max = 'sd')+
 stat_summary(fun.data = mean_se, aes(group = restriction, color= restriction), geom = "errorbar", alpha=1, width=0.05) + 
-scale_color_manual(values = c("#beaed4", "#ffff99"))+ 
+scale_color_manual(values = c("#8DA0CB", "#E78AC3"))+ 
 scale_y_continuous(breaks = seq(0, 7, by = 1))+
 labs(x = "positions", y = "leaving score") + theme_classic() + facet_wrap(~restriction, ncol = 2)
 Fig_LE_leaving
@@ -584,15 +584,16 @@ Fig_LE_approaching <- ggplot(df.LE_Rday1, aes(x=trials, y=approaching.score, gro
 geom_line(color="gray", alpha=0.2)+
 stat_summary(fun = "mean", size = 1, aes(group = restriction, color= restriction), geom = "line", fun.min = 'sd', fun.max = 'sd')+
 stat_summary(fun.data = mean_se, aes(group = restriction, color= restriction), geom = "errorbar", alpha=1, width=0.05)+
-scale_color_manual(values = c("#beaed4", "#ffff99"))+
+scale_color_manual(values = c("#8DA0CB", "#E78AC3"))+
 scale_y_continuous(breaks = seq(0, 7, by = 1))+
+labs(x = "positions", y = "approaching score")+
 theme_classic() + facet_wrap(~ restriction, ncol = 2)
 Fig_LE_approaching
 ggsave('C:/Users/xiamen/Desktop/modified robogator/result figs/Fig_LE_approaching.svg', plot = Fig_LE_approaching, device = 'svg',dpi = 300)
 ```
 ## Fig4
 ```{r}
-Fig4 <- ggarrange(Fig_LE_leaving, Fig_LE_approaching, ncols=2,labels=c('A','B'), common.legend=TRUE,legend="right")
+Fig4 <- ggarrange(Fig_LE_leaving, Fig_LE_approaching, ncols=2,labels=c('A','B'), common.legend=TRUE,legend="none")
 Fig4
 ggsave('C:/Users/xiamen/Desktop/modified robogator/result figs/Fig4.svg', plot = Fig4, device = 'svg',dpi = 300, width = 176, height = 140, units = "mm")