library(ggplot2)
library(ggpubr)
show_point_shapes() #显示点的形状(ggpubr包内的函数)
![R语言-ggplot自定义点的形状、线条的类型_第1张图片](http://img.e-com-net.com/image/info8/f9ed4c9d8a324f4f887f788ad9521750.jpg)
p1 <- ggplot(mpg, aes(x = displ, y = hwy, color = drv, shape = drv)) +
geom_point() +
theme_bw() #绘制基本图形,不自定义点的形状
p1
![R语言-ggplot自定义点的形状、线条的类型_第2张图片](http://img.e-com-net.com/image/info8/408d23aaa5a14cd1823a2e9cadb52b4b.jpg)
p2 <- ggplot(mpg, aes(x = displ, y = hwy, color = drv, shape = drv)) +
geom_point() +
scale_shape_manual(values = c(15, 19, 17)) + #自定义点的形状,分别为15, 19, 17。
theme_bw()
p2
![R语言-ggplot自定义点的形状、线条的类型_第3张图片](http://img.e-com-net.com/image/info8/f4b55ac4e2454fe5baa3caefcac21311.jpg)
cowplot::plot_grid(p1, p2, labels = c('p1', 'p2')) #组合修改前后两幅图
![R语言-ggplot自定义点的形状、线条的类型_第4张图片](http://img.e-com-net.com/image/info8/3e35a552aa0946198922c0458dbecc41.jpg)
show_line_types() #显示线条类型(ggpubr包内的函数)
![R语言-ggplot自定义点的形状、线条的类型_第5张图片](http://img.e-com-net.com/image/info8/453486cb015541e5929abedc9dc0a3f1.jpg)
p3 <- ggplot(mpg, aes(x = displ, y = hwy, color = drv, shape = drv, linetype = drv)) + #设置线条类型根据drv分类
geom_smooth(se = F, method = 'loess') + #绘制拟合曲线
geom_point() +
theme_bw()
p3
![R语言-ggplot自定义点的形状、线条的类型_第6张图片](http://img.e-com-net.com/image/info8/5ad4a3da4c364450a17a9d6c2f7306c2.jpg)
p4 <- ggplot(mpg, aes(x = displ, y = hwy, color = drv, shape = drv, linetype = drv)) + #设置线条类型根据drv分类
geom_smooth(se = F, method = 'loess') + #绘制拟合曲线
geom_point() +
scale_linetype_manual(values = c('twodash', 'longdash', 'dashed')) + #自定义线条的类型
theme_bw()
p4
![R语言-ggplot自定义点的形状、线条的类型_第7张图片](http://img.e-com-net.com/image/info8/21f0ed8fcaed4c7b87412b0335d4c5b0.jpg)
cowplot::plot_grid(p3, p4, labels = c('p3', 'p4'))#组合修改前后两幅图
![R语言-ggplot自定义点的形状、线条的类型_第8张图片](http://img.e-com-net.com/image/info8/708cc0024d694cd68d2bb2e4d6af9dbf.jpg)