哑铃图(Dumbbell Chart),顾名思义,形似哑铃,每个数据由最低和最高值及一条连线组成,是展示数据差异的可视化图表之一。
棒棒糖图(Lollipop Chart),也称为火柴杆图,与条形图作用类似,是柱状图与散点图的结合图形,常用于比较多个类别的值之间的差异。
1、设置工作环境、加载R包
rm(list = ls())
setwd("D:\\棒棒糖图&哑铃图")#设置工作环境
# 加载R包
library(ggplot2)
library(ggprism)
df <- read.table(file="data.txt",sep="\t",header=T,check.names=FALSE)
#竖向排布
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
#横向排布
p2 <- p1 coord_flip()
p2
# 棒棒糖图
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
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
#拼图
cowplot::plot_grid(p1, p2, p3, p4, ncol = 2)
欢迎大家点赞、转发并点亮在看,让更多朋友看到!!!
更多精彩欢迎大家关注微信公众号【科研后花园】!!!
,