R可视化——ggplot2包绘制哑铃图和棒棒糖图

哑铃图（Dumbbell Chart），顾名思义，形似哑铃，每个数据由最低和最高值及一条连线组成，是展示数据差异的可视化图表之一。

棒棒糖图（Lollipop Chart），也称为火柴杆图，与条形图作用类似，是柱状图与散点图的结合图形，常用于比较多个类别的值之间的差异。

1、设置工作环境、加载R包

rm(list = ls())
setwd("D:\\棒棒糖图&哑铃图")#设置工作环境

# 加载R包
library(ggplot2)
library(ggprism)

2、加载数据

df <- read.table(file="data.txt",sep="\t",header=T,check.names=FALSE)

image.png

3、绘制哑铃图

#竖向排布
p1 <- ggplot(df) +
  geom_segment(aes(x=group, xend=group, y=value1, yend=value2), color="grey",size=1) +#数据点之间的连线
  geom_point( aes(x=group, y=value1), color='#ff9900', size=4 ) +#数据点1
  geom_point( aes(x=group, y=value2), color='#146eb4', size=4 ) +#数据点2
  theme_prism(palette = "pearl",  #利用ggprism包调整主题
              base_fontface = "plain",
              base_family = "serif", 
              base_size = 14, 
              base_line_size = 0.8,
              axis_text_angle = 45) +
  theme(legend.position = "none") + #去除图例
  xlab("XXXX") +#X轴标题
  ylab("XXXX") +#Y轴标题
  ggtitle("Dumbbell Chart")#标题

p1

image.png

#横向排布
p2 <- p1+  coord_flip()
p2

image.png

4、绘制棒棒糖图

# 棒棒糖图
p3 <- ggplot(df) +
  geom_segment(aes(x=group, xend=group, y=85, yend=value1), color="grey",size=1) +
  geom_point( aes(x=group, y=value1), size=4,color='red' ) +
  geom_hline(yintercept = 85, lty=2,color = 'grey', lwd=0.8) + #辅助线
  theme_prism(palette = "pearl",
              base_fontface = "plain", 
              base_family = "serif", 
              base_size = 14, 
              base_line_size = 0.8, 
              axis_text_angle = 45) +
  theme(legend.position = "none") +
  xlab("XXXX") +
  ylab("XXXX") +
  ggtitle("Lollipop Chart")

p3

image.png

p4 <- ggplot(df) +
  geom_segment(aes(x=group, xend=group, y=120, yend=value2), color="grey",size=1) +
  geom_point( aes(x=group, y=value2,color=group), size=4 ) +
  geom_hline(yintercept = 120, lty=2,color = 'grey', lwd=0.8) + #辅助线
  theme_prism(palette = "pearl",
              base_fontface = "plain", 
              base_family = "serif",
              base_size = 14,
              base_line_size = 0.8, 
              axis_text_angle = 45) +
  theme(legend.position = "none") +
  xlab("XXXX") +
  ylab("XXXX") +
  ggtitle("Lollipop Chart")

p4

image.png

5、拼图

#拼图
cowplot::plot_grid(p1, p2, p3, p4, ncol = 2)

image.png

更多精彩欢迎大家关注微信公众号【科研后花园】！！！