R语言-ggplot自定义点的形状、线条的类型
2019-07-12 本文已影响253人
Whuer_deng
library(ggplot2)
library(ggpubr)
show_point_shapes() #显示点的形状(ggpubr包内的函数）
image.png
p1 <- ggplot(mpg, aes(x = displ, y = hwy, color = drv, shape = drv)) +
geom_point() +
theme_bw() #绘制基本图形，不自定义点的形状
p1
image.png
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
image.png
cowplot::plot_grid(p1, p2, labels = c('p1', 'p2')) #组合修改前后两幅图
image.png
show_line_types() #显示线条类型(ggpubr包内的函数）
image.png
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
image.png
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
image.png
cowplot::plot_grid(p3, p4, labels = c('p3', 'p4'))#组合修改前后两幅图
image.png
