R语言-ggplot自定义点的形状、线条的类型

library(ggplot2)
library(ggpubr)

show_point_shapes() #显示点的形状(ggpubr包内的函数）

p1 <- ggplot(mpg, aes(x = displ, y = hwy, color = drv, shape = drv)) + 
  geom_point() + 
  theme_bw() #绘制基本图形，不自定义点的形状
p1

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

cowplot::plot_grid(p1, p2, labels = c('p1', 'p2')) #