R语言-ggplot自定义颜色、点的形状、线条的类型
2021-04-07 本文已影响0人
Seurat_Satija
library(ggplot2)
library(ggpubr)
一、绘制原始图
ggplot(mpg, aes(x = displ, y = hwy, color = drv, shape = drv)) +
geom_point() +
geom_smooth(se = F, method = 'loess') +
theme_bw()
![](https://img.haomeiwen.com/i15305451/c7612b977852be3f.png)
二、自定义颜色
scale_color_manual(values = c("#0073C2FF", "#EFC000FF", "#868686FF")) #自定义颜色
ggplot(mpg, aes(x = displ, y = hwy, color = drv, shape = drv, linetype = drv)) +
geom_smooth(se = F, method = 'loess') +
geom_point() +
scale_linetype_manual(values = c('twodash', 'longdash', 'dashed')) +
theme_bw() +
scale_color_manual(values = c("#0073C2FF", "#EFC000FF", "#868686FF")) #自定义颜色
![](https://img.haomeiwen.com/i15305451/3b0eb4c7726bb017.png)
三、自定义点的形状
show_point_shapes() +
theme_classic()#显示点的形状(ggpubr包内的函数)
![](https://img.haomeiwen.com/i15305451/0c378660b14e6c3f.png)
ggplot(mpg, aes(x = displ, y = hwy, color = drv, shape = drv)) +
geom_point() +
geom_smooth(se = F, method = 'loess') +
theme_bw() +
scale_color_manual(values = c("#0073C2FF", "#EFC000FF", "#868686FF")) +
scale_shape_manual(values = c(15, 19, 17)) #自定义点的形状,分别为15, 19, 17。
![](https://img.haomeiwen.com/i15305451/7f1f985889eecd86.png)
四、自定义线条的类型
show_line_types() #显示线条类型(ggpubr包内的函数)
![](https://img.haomeiwen.com/i15305451/3d03aaa3622169f9.png)
ggplot(mpg, aes(x = displ, y = hwy, color = drv, shape = drv, linetype = drv)) +
geom_point() +
geom_smooth(se = F, method = 'loess') +
theme_bw() +
scale_color_manual(values = c("#0073C2FF", "#EFC000FF", "#868686FF")) +
scale_shape_manual(values = c(15, 19, 17)) +
scale_linetype_manual(values = c('twodash', 'longdash', 'dashed')) #自定义线条的类型
![](https://img.haomeiwen.com/i15305451/1635503de5bc3a9e.png)