theme_bw()
library(tidyverse)
library(ggsci)
library(gghalves)
ggplot(data = iris)+
geom_half_violin(aes(x = Species,y = Sepal.Width,fill = Species,color = Species),side = "r",alpha = 0.8,trim = F,adjust = 1.5,position = position_nudge(x = 0.1))+
geom_boxplot(aes(x = Species,y = Sepal.Width,fill = Species),width = 0.1,alpha = 0.75,size = 0.8,position = position_dodge(0.75))+
geom_point(aes(x = as.numeric(Species)-0.2,y = Sepal.Width,fill = Species),shape = 21,size = 3,alpha = 0.75,position = position_jitter(width = 0.1))+
theme_bw()+
theme(plot.margin = unit(x = c(0.3,0.3,0.2,0.2),units = "cm"))+
theme(legend.text = element_text(size = 14, colour = "black"))+
theme(plot.title = element_text(size = 25,hjust = 0.5, angle = 0))+
theme(axis.title.x = element_text(size = 16, face = "bold", colour = "black"),
axis.title.y = element_text(size = 16, face = "bold", colour = "black"),
axis.text.x = element_text(size = 12, face = "bold", colour = "black",hjust = 0.5),
axis.text.y = element_text(size = 12, face = "bold",colour = "black"))+
theme(legend.position = 'none')
theme_classic()
library(tidyverse)
library(ggsci)
library(gghalves)
ggplot(data = iris)+
geom_half_violin(aes(x = Species,y = Sepal.Width,fill = Species,color = Species),side = "r",alpha = 0.8,trim = F,adjust = 1.5,position = position_nudge(x = 0.1))+
geom_boxplot(aes(x = Species,y = Sepal.Width,fill = Species),width = 0.1,alpha = 0.75,size = 0.8,position = position_dodge(0.75))+
geom_point(aes(x = as.numeric(Species)-0.2,y = Sepal.Width,fill = Species),shape = 21,size = 3,alpha = 0.75,position = position_jitter(width = 0.1))+
theme_classic()+
theme(plot.margin = unit(x = c(0.3,0.3,0.2,0.2),units = "cm"))+
theme(legend.text = element_text(size = 14, colour = "black"))+
theme(plot.title = element_text(size = 25,hjust = 0.5, angle = 0))+
theme(axis.title.x = element_text(size = 16, face = "bold", colour = "black"),
axis.title.y = element_text(size = 16, face = "bold", colour = "black"),
axis.text.x = element_text(size = 12, face = "bold", colour = "black",hjust = 0.5),
axis.text.y = element_text(size = 12, face = "bold",colour = "black"))+
theme(legend.position = 'none')
theme_dark()
library(tidyverse)
library(ggsci)
library(gghalves)
ggplot(data = iris)+
geom_half_violin(aes(x = Species,y = Sepal.Width,fill = Species,color = Species),side = "r",alpha = 0.8,trim = F,adjust = 1.5,position = position_nudge(x = 0.1))+
geom_boxplot(aes(x = Species,y = Sepal.Width,fill = Species),width = 0.1,alpha = 0.75,size = 0.8,position = position_dodge(0.75))+
geom_point(aes(x = as.numeric(Species)-0.2,y = Sepal.Width,fill = Species),shape = 21,size = 3,alpha = 0.75,position = position_jitter(width = 0.1))+
theme_dark()+
theme(plot.margin = unit(x = c(0.3,0.3,0.2,0.2),units = "cm"))+
theme(legend.text = element_text(size = 14, colour = "black"))+
theme(plot.title = element_text(size = 25,hjust = 0.5, angle = 0))+
theme(axis.title.x = element_text(size = 16, face = "bold", colour = "black"),
axis.title.y = element_text(size = 16, face = "bold", colour = "black"),
axis.text.x = element_text(size = 12, face = "bold", colour = "black",hjust = 0.5),
axis.text.y = element_text(size = 12, face = "bold",colour = "black"))+
theme(legend.position = 'none')
theme_get()
library(tidyverse)
library(ggsci)
library(gghalves)
ggplot(data = iris)+
geom_half_violin(aes(x = Species,y = Sepal.Width,fill = Species,color = Species),side = "r",alpha = 0.8,trim = F,adjust = 1.5,position = position_nudge(x = 0.1))+
geom_boxplot(aes(x = Species,y = Sepal.Width,fill = Species),width = 0.1,alpha = 0.75,size = 0.8,position = position_dodge(0.75))+
geom_point(aes(x = as.numeric(Species)-0.2,y = Sepal.Width,fill = Species),shape = 21,size = 3,alpha = 0.75,position = position_jitter(width = 0.1))+
theme_get()+
theme(plot.margin = unit(x = c(0.3,0.3,0.2,0.2),units = "cm"))+
theme(legend.text = element_text(size = 14, colour = "black"))+
theme(plot.title = element_text(size = 25,hjust = 0.5, angle = 0))+
theme(axis.title.x = element_text(size = 16, face = "bold", colour = "black"),
axis.title.y = element_text(size = 16, face = "bold", colour = "black"),
axis.text.x = element_text(size = 12, face = "bold", colour = "black",hjust = 0.5),
axis.text.y = element_text(size = 12, face = "bold",colour = "black"))+
theme(legend.position = 'none')
theme_gray()
library(tidyverse)
library(ggsci)
library(gghalves)
ggplot(data = iris)+
geom_half_violin(aes(x = Species,y = Sepal.Width,fill = Species,color = Species),side = "r",alpha = 0.8,trim = F,adjust = 1.5,position = position_nudge(x = 0.1))+
geom_boxplot(aes(x = Species,y = Sepal.Width,fill = Species),width = 0.1,alpha = 0.75,size = 0.8,position = position_dodge(0.75))+
geom_point(aes(x = as.numeric(Species)-0.2,y = Sepal.Width,fill = Species),shape = 21,size = 3,alpha = 0.75,position = position_jitter(width = 0.1))+
theme_gray()+
theme(plot.margin = unit(x = c(0.3,0.3,0.2,0.2),units = "cm"))+
theme(legend.text = element_text(size = 14, colour = "black"))+
theme(plot.title = element_text(size = 25,hjust = 0.5, angle = 0))+
theme(axis.title.x = element_text(size = 16, face = "bold", colour = "black"),
axis.title.y = element_text(size = 16, face = "bold", colour = "black"),
axis.text.x = element_text(size = 12, face = "bold", colour = "black",hjust = 0.5),
axis.text.y = element_text(size = 12, face = "bold",colour = "black"))+
theme(legend.position = 'none')
theme_grey()
library(tidyverse)
library(ggsci)
library(gghalves)
ggplot(data = iris)+
geom_half_violin(aes(x = Species,y = Sepal.Width,fill = Species,color = Species),side = "r",alpha = 0.8,trim = F,adjust = 1.5,position = position_nudge(x = 0.1))+
geom_boxplot(aes(x = Species,y = Sepal.Width,fill = Species),width = 0.1,alpha = 0.75,size = 0.8,position = position_dodge(0.75))+
geom_point(aes(x = as.numeric(Species)-0.2,y = Sepal.Width,fill = Species),shape = 21,size = 3,alpha = 0.75,position = position_jitter(width = 0.1))+
theme_grey()+
theme(plot.margin = unit(x = c(0.3,0.3,0.2,0.2),units = "cm"))+
theme(legend.text = element_text(size = 14, colour = "black"))+
theme(plot.title = element_text(size = 25,hjust = 0.5, angle = 0))+
theme(axis.title.x = element_text(size = 16, face = "bold", colour = "black"),
axis.title.y = element_text(size = 16, face = "bold", colour = "black"),
axis.text.x = element_text(size = 12, face = "bold", colour = "black",hjust = 0.5),
axis.text.y = element_text(size = 12, face = "bold",colour = "black"))+
theme(legend.position = 'none')
theme_light()
library(tidyverse)
library(ggsci)
library(gghalves)
ggplot(data = iris)+
geom_half_violin(aes(x = Species,y = Sepal.Width,fill = Species,color = Species),side = "r",alpha = 0.8,trim = F,adjust = 1.5,position = position_nudge(x = 0.1))+
geom_boxplot(aes(x = Species,y = Sepal.Width,fill = Species),width = 0.1,alpha = 0.75,size = 0.8,position = position_dodge(0.75))+
geom_point(aes(x = as.numeric(Species)-0.2,y = Sepal.Width,fill = Species),shape = 21,size = 3,alpha = 0.75,position = position_jitter(width = 0.1))+
theme_light()+
theme(plot.margin = unit(x = c(0.3,0.3,0.2,0.2),units = "cm"))+
theme(legend.text = element_text(size = 14, colour = "black"))+
theme(plot.title = element_text(size = 25,hjust = 0.5, angle = 0))+
theme(axis.title.x = element_text(size = 16, face = "bold", colour = "black"),
axis.title.y = element_text(size = 16, face = "bold", colour = "black"),
axis.text.x = element_text(size = 12, face = "bold", colour = "black",hjust = 0.5),
axis.text.y = element_text(size = 12, face = "bold",colour = "black"))+
theme(legend.position = 'none')
theme_linedraw()
library(tidyverse)
library(ggsci)
library(gghalves)
ggplot(data = iris)+
geom_half_violin(aes(x = Species,y = Sepal.Width,fill = Species,color = Species),side = "r",alpha = 0.8,trim = F,adjust = 1.5,position = position_nudge(x = 0.1))+
geom_boxplot(aes(x = Species,y = Sepal.Width,fill = Species),width = 0.1,alpha = 0.75,size = 0.8,position = position_dodge(0.75))+
geom_point(aes(x = as.numeric(Species)-0.2,y = Sepal.Width,fill = Species),shape = 21,size = 3,alpha = 0.75,position = position_jitter(width = 0.1))+
theme_linedraw()+
theme(plot.margin = unit(x = c(0.3,0.3,0.2,0.2),units = "cm"))+
theme(legend.text = element_text(size = 14, colour = "black"))+
theme(plot.title = element_text(size = 25,hjust = 0.5, angle = 0))+
theme(axis.title.x = element_text(size = 16, face = "bold", colour = "black"),
axis.title.y = element_text(size = 16, face = "bold", colour = "black"),
axis.text.x = element_text(size = 12, face = "bold", colour = "black",hjust = 0.5),
axis.text.y = element_text(size = 12, face = "bold",colour = "black"))+
theme(legend.position = 'none')
theme_minimal()
library(tidyverse)
library(ggsci)
library(gghalves)
ggplot(data = iris)+
geom_half_violin(aes(x = Species,y = Sepal.Width,fill = Species,color = Species),side = "r",alpha = 0.8,trim = F,adjust = 1.5,position = position_nudge(x = 0.1))+
geom_boxplot(aes(x = Species,y = Sepal.Width,fill = Species),width = 0.1,alpha = 0.75,size = 0.8,position = position_dodge(0.75))+
geom_point(aes(x = as.numeric(Species)-0.2,y = Sepal.Width,fill = Species),shape = 21,size = 3,alpha = 0.75,position = position_jitter(width = 0.1))+
theme_minimal()+
theme(plot.margin = unit(x = c(0.3,0.3,0.2,0.2),units = "cm"))+
theme(legend.text = element_text(size = 14, colour = "black"))+
theme(plot.title = element_text(size = 25,hjust = 0.5, angle = 0))+
theme(axis.title.x = element_text(size = 16, face = "bold", colour = "black"),
axis.title.y = element_text(size = 16, face = "bold", colour = "black"),
axis.text.x = element_text(size = 12, face = "bold", colour = "black",hjust = 0.5),
axis.text.y = element_text(size = 12, face = "bold",colour = "black"))+
theme(legend.position = 'none')
theme_replace()
library(tidyverse)
library(ggsci)
library(gghalves)
ggplot(data = iris)+
geom_half_violin(aes(x = Species,y = Sepal.Width,fill = Species,color = Species),side = "r",alpha = 0.8,trim = F,adjust = 1.5,position = position_nudge(x = 0.1))+
geom_boxplot(aes(x = Species,y = Sepal.Width,fill = Species),width = 0.1,alpha = 0.75,size = 0.8,position = position_dodge(0.75))+
geom_point(aes(x = as.numeric(Species)-0.2,y = Sepal.Width,fill = Species),shape = 21,size = 3,alpha = 0.75,position = position_jitter(width = 0.1))+
theme_replace()+
theme(plot.margin = unit(x = c(0.3,0.3,0.2,0.2),units = "cm"))+
theme(legend.text = element_text(size = 14, colour = "black"))+
theme(plot.title = element_text(size = 25,hjust = 0.5, angle = 0))+
theme(axis.title.x = element_text(size = 16, face = "bold", colour = "black"),
axis.title.y = element_text(size = 16, face = "bold", colour = "black"),
axis.text.x = element_text(size = 12, face = "bold", colour = "black",hjust = 0.5),
axis.text.y = element_text(size = 12, face = "bold",colour = "black"))+
theme(legend.position = 'none')
theme_test()
library(tidyverse)
library(ggsci)
library(gghalves)
ggplot(data = iris)+
geom_half_violin(aes(x = Species,y = Sepal.Width,fill = Species,color = Species),side = "r",alpha = 0.8,trim = F,adjust = 1.5,position = position_nudge(x = 0.1))+
geom_boxplot(aes(x = Species,y = Sepal.Width,fill = Species),width = 0.1,alpha = 0.75,size = 0.8,position = position_dodge(0.75))+
geom_point(aes(x = as.numeric(Species)-0.2,y = Sepal.Width,fill = Species),shape = 21,size = 3,alpha = 0.75,position = position_jitter(width = 0.1))+
theme_test()+
theme(plot.margin = unit(x = c(0.3,0.3,0.2,0.2),units = "cm"))+
theme(legend.text = element_text(size = 14, colour = "black"))+
theme(plot.title = element_text(size = 25,hjust = 0.5, angle = 0))+
theme(axis.title.x = element_text(size = 16, face = "bold", colour = "black"),
axis.title.y = element_text(size = 16, face = "bold", colour = "black"),
axis.text.x = element_text(size = 12, face = "bold", colour = "black",hjust = 0.5),
axis.text.y = element_text(size = 12, face = "bold",colour = "black"))+
theme(legend.position = 'none')
theme_void()
library(tidyverse)
library(ggsci)
library(gghalves)
ggplot(data = iris)+
geom_half_violin(aes(x = Species,y = Sepal.Width,fill = Species,color = Species),side = "r",alpha = 0.8,trim = F,adjust = 1.5,position = position_nudge(x = 0.1))+
geom_boxplot(aes(x = Species,y = Sepal.Width,fill = Species),width = 0.1,alpha = 0.75,size = 0.8,position = position_dodge(0.75))+
geom_point(aes(x = as.numeric(Species)-0.2,y = Sepal.Width,fill = Species),shape = 21,size = 3,alpha = 0.75,position = position_jitter(width = 0.1))+
theme_void()+
theme(plot.margin = unit(x = c(0.3,0.3,0.2,0.2),units = "cm"))+
theme(legend.text = element_text(size = 14, colour = "black"))+
theme(plot.title = element_text(size = 25,hjust = 0.5, angle = 0))+
theme(axis.title.x = element_text(size = 16, face = "bold", colour = "black"),
axis.title.y = element_text(size = 16, face = "bold", colour = "black"),
axis.text.x = element_text(size = 12, face = "bold", colour = "black",hjust = 0.5),
axis.text.y = element_text(size = 12, face = "bold",colour = "black"))+
theme(legend.position = 'none')