ggplot2小提琴图以及主题设置

生信喵

一、小提琴图

1. #小提琴图
   
2. ggplot(data = ToothGrowth,aes(x=supp,y=len,fill=supp))+geom_violin()
   
3. ToothGrowth$dose <- as.factor(ToothGrowth$dose)
   
4. ggplot(data = ToothGrowth,aes(x=supp:dose,y=len,fill=supp))+geom_violin()
   
5. #小提琴图+箱线图
   
6. ggplot(data = ToothGrowth,aes(x=supp:dose,y=len,fill=supp))+geom_violin()+
   
7.   geom_boxplot(width=0.1,fill="white")
   
8. #两组小提琴图
   
9. ggplot(data = ToothGrowth,aes(x=dose,y=len,group=supp:dose,fill=supp:dose))+
   
10.   geom_violin()

复制代码

      
       利用 ggplot2 绘制小提琴图

二、修改主题

1. mtcars$cyl <- as.factor(mtcars$cyl)
   
2. p <- ggplot(mtcars, aes(x=wt, y=mpg, color=cyl)) +geom_point(size=3)
   
3. p
   
4. p + theme(legend.position = 'top')
   
5. p + theme(legend.position = 'top',legend.background = element_rect(fill = 'red'))
   
6. p + theme(legend.position = 'top',legend.background = element_rect(color = 'red'))
   
7. #去除图例
   
8. # p+guides(fill='none')
   
9. p+theme(legend.position = "none")
   
10. # p+scale_fill_discrete(guide='none')
    
11. #改图例标题文本
    
12. p +theme(legend.title = element_blank())
    
13. p +theme(legend.title = element_text(size = 2))
    
14. p +theme(legend.title = element_text(size = 22))
    
15. p +theme(legend.title = element_text(size = 22,colour = 'red'))
    
16. #改坐标轴
    
17. p+theme(axis.title = element_blank())
    
18. p+theme(axis.title.x = element_blank())
    
19. p+theme(axis.title.x = element_text(size = 22,angle = 90))
    
20. p+theme(axis.title.x = element_text(size = 22,colour = 'red'))
    
21. p+theme(axis.title = element_text(size = 22,colour = 'red'))
    
22. #改图例类目文本
    
23. p+theme(legend.text = element_blank())
    
24. p+theme(legend.text = element_text(colour = 'red'))
    
25. #画方格线
    
26. p+theme(panel.grid = element_line(colour = "red"))
    
27. p+theme(panel.grid.major = element_line(colour = "red"))
    
28. p+theme(panel.grid.minor = element_line(colour = "red"))
    
29. p+theme(panel.grid.minor.x = element_line(colour = "red"))

复制代码