r语言怎么画出卡方的密度函数曲线（R可视化ggplot2包绘制哑铃图和棒棒糖图）

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

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

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)

欢迎大家点赞、转发并点亮在看，让更多朋友看到！！！

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

,