使用R语言绘制棒棒糖图火柴杆图教程

更新时间：2021年11月05日 14:10:59 作者：Kanny广小隶

本篇文章为大家介绍几种利用R语言绘制棒棒糖图（火柴杆图）的方法，有需要的朋友可以借鉴参考下，希望能够有所帮助，祝大家多多进步，早日升职加薪

使用原生ggplot方法

最容易也是最简单想到的方法是直接使用ggplot2包进行更新，这里需要使用ggplot本身的特性，通过图层叠加的方式，进行最终棒棒糖图的展现。（宽度极窄的柱状图配合散点图即可呈现）

1）生成数据

下面我们的展示均以此份数据为例：

library(ggplot2)

# Load data
data("mtcars")
dfm <- mtcars
# Convert the cyl variable to a factor
dfm$cyl <- as.factor(dfm$cyl)
# Add the name colums
dfm$name <- rownames(dfm)

# Calculate the z-score of the mpg data
dfm$mpg_z <- (dfm$mpg -mean(dfm$mpg))/sd(dfm$mpg)
dfm$mpg_grp <- factor(ifelse(dfm$mpg_z < 0, "low", "high"), 
                      levels = c("low", "high"))
# Inspect the data
head(dfm[, c("name", "wt", "mpg", "mpg_z", "mpg_grp", "cyl")])

2）绘制棒棒糖图

ggplot(dfm, aes(x = name, y = mpg)) +
  geom_hline(yintercept = 0, color = "grey", size = 1) + # 添加y=0的辅助线
  geom_point(aes(color = cyl), size = 2) +         # 将点的size设置大一些比较好看
  geom_bar(aes(fill = cyl), stat = "identity", width = 0.2) + # 注意将width宽度设小
  theme_bw(base_family = "Times") +
  theme(panel.grid.minor = element_blank(),
        panel.grid.major.x = element_blank(),      # 消除竖条的背景线
        axis.text.x = element_text(angle = 90),
        legend.position = "None",
        panel.border = element_blank(),
        # text = element_text(family = "STHeiti"), # Mac 电脑上绘图展现中文需要此行命令
        plot.title = element_text(hjust = 0.5)) +  # 标题居中，若无标题可不加
  labs(x = "name", y = "mpg",
       colour = "", linetype = "", fill = "")

结果如下：

下面我们介绍一种更简便且高级的棒棒糖图绘制方法：使用ggpubr包中的ggdotchart()函数。

使用ggpubr包中的ggdotchart()

这里我们直接看官方介绍的几个例子，来理解函数的使用方式，首先载入依赖包：

library(ggpubr)

ggdotchart(dfm, x = "name", y = "mpg",
           color = "cyl",                                # Color by groups
           palette = c("#00AFBB", "#E7B800", "#FC4E07"), # Custom color palette
           sorting = "ascending",                        # Sort value in descending order
           add = "segments",                             # Add segments from y = 0 to dots
           ggtheme = theme_pubr()                        # ggplot2 theme
)

ggdotchart(dfm, x = "name", y = "mpg",
           color = "cyl",                                
           palette = c("#00AFBB", "#E7B800", "#FC4E07"), 
           sorting = "asc", sort.by.groups = TRUE,                      
           add = "segments",                            
           add.params = list(color = "lightgray", size = 2), 
           group = "cyl",                                
           dot.size = 4,                                 
           ggtheme = theme_pubclean()
) + font("x.text", size = 8, vjust = 0.5)

ggdotchart(dfm, x = "name", y = "mpg",
           color = "cyl",                                # Color by groups
           palette = c("#00AFBB", "#E7B800", "#FC4E07"), # Custom color palette
           sorting = "descending",                       # Sort value in descending order
           add = "segments",                             # Add segments from y = 0 to dots
           rotate = TRUE,                                # Rotate vertically
           group = "cyl",                                # Order by groups
           dot.size = 6,                                 # Large dot size
           label = round(dfm$mpg),                        # Add mpg values as dot labels
           font.label = list(color = "white", size = 9,
                             vjust = 0.5),               # Adjust label parameters
           ggtheme = theme_pubr()                        # ggplot2 theme
)

ggdotchart(dfm, x = "name", y = "mpg_z",
           color = "cyl",                                # Color by groups
           palette = c("#00AFBB", "#E7B800", "#FC4E07"), # Custom color palette
           sorting = "descending",                       # Sort value in descending order
           add = "segments",                             # Add segments from y = 0 to dots
           add.params = list(color = "lightgray", size = 2), # Change segment color and size
           group = "cyl",                                # Order by groups
           dot.size = 6,                                 # Large dot size
           label = round(dfm$mpg_z,1),                        # Add mpg values as dot labels
           font.label = list(color = "white", size = 9,
                             vjust = 0.5),               # Adjust label parameters
           ggtheme = theme_pubr()                        # ggplot2 theme
) + geom_hline(yintercept = 0, linetype = 2, color = "lightgray")

参考

Articles - ggpubr: Publication Ready Plots

Articles - R Graphics Essentials

ggpubr: ‘ggplot2' Based Publication Ready Plots

以上就是使用R语言绘制棒棒糖图火柴杆图教程的详细内容，更多关于R语言绘制棒棒糖图火柴杆图的资料请关注脚本之家其它相关文章！

您可能感兴趣的文章:

使用R语言实现自动文摘的方法
本文介绍了如何使用R语言实现自动文摘，我们首先介绍了基于词频-逆文档频率（TF-IDF）的自动文摘方法，包括创建词项文档矩阵，计算TF-IDF值，提取关键词，以及根据关键词生成摘要，需要的朋友一起学习下吧
2023-05-05
R语言绘制Vonoroi图的完整代码
今天来给大家分享一篇教程关于R语言绘制Vonoroi图的完整代码，包括deldir包绘制Voronoi图，ggplot2绘制Voronoi图的实现代码，感兴趣的朋友跟随小编一起看看吧
2021-06-06
R语言绘图如何支持中文
这篇文章主要介绍了R语言绘图如何支持中文，帮助大家更好的理解和学习使用R语言，感兴趣的朋友可以了解下
2021-03-03
R语言实现各种数据可视化的超详细教程
Python语言越来越流行,尤其是在机器学习与深度学习等领域,但是R语言在数据分析与可视化方面仍然具有绝对的优势,下面这篇文章主要给大家介绍了关于R语言实现各种数据可视化的超详细教程,需要的朋友可以参考下
2022-11-11
R语言rhdf5读写hdf5并展示文件组织结构和索引数据
这篇文章主要为大家介绍了R语言rhdf5读写hdf5并展示文件组织结构和索引数据，有需要的朋友可以借鉴参考下，希望能够有所帮助，祝大家多多进步，早日升职加薪
2022-06-06
R语言绘制折线图实例分析
在本篇文章里小编给大家整理了一篇关于R语言绘制折线图实例分析内容，有需要的小伙伴可以跟着学习参考下。
2021-04-04
R语言-实现按日期分组求皮尔森相关系数矩阵
这篇文章主要介绍了R语言-实现按日期分组求皮尔森相关系数矩阵，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧
2021-04-04
Rstudio中安装package出现的问题及解决
这篇文章主要介绍了Rstudio中安装package出现的问题及解决方案，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧
2021-04-04
R语言绘制地图实例讲解
这篇文章主要介绍了R语言绘制地图实例讲解，文中代码实例讲解的很清晰，有需要的可以研究下
2021-03-03
R语言“循环”知识点详解
在本篇文章里小编给大家整理的是一篇关于R语言循环的相关知识点及用法总结，有需要的朋友们可以跟着学习下。
2021-03-03