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')) #