应用ggdotchart绘制棒棒糖图

首先看下函数整体用法

ggdotchart(data, x, y, group = NULL, combine = FALSE, color = "black", palette = NULL, shape = 19, size = NULL, dot.size = size, sorting = c("ascending", "descending"), add = c("none", "segment"), add.params = list(), x.text.col = TRUE, rotate = FALSE, title = NULL, xlab = NULL, ylab = NULL, facet.by = NULL, panel.labs = NULL, short.panel.labs = TRUE, select = NULL, remove = NULL, order = NULL, label = NULL, font.label = list(size = 11, color = "black"), label.select = NULL, repel = FALSE, label.rectangle = FALSE, ggtheme = theme_pubr(), ...) theme_cleveland(rotate = TRUE)

以下为各参数定义

data 所需的数据框 dataframe
x，y 进行作图所需的数据
group 分组变量（x轴方向上）
combine 对于多个变量的数据是否分面
color, size 设置点的颜色和大小
palette 自定义颜色画板
shape 设置点的形状
dot.size 点的大小
sorting 设定升序还是降序排列，默认是升序
add 是否添加棒棒糖的棍子
rotate 设置坐标轴水平还是垂直放置
title 设置标题
xlab 设置x轴标题
ylab 设置y轴标题
x.text.col 逻辑值，设置x轴标签颜色
y.text.col 逻辑值，设置y轴标签颜色
facet.by 设置分组分面
panel.labs 设置分面各组的标题
short.panel.labs 是否缩写分面标题，逻辑值，默认是TRUE。
select 选择需要展示的变量
remove 移除不需要展示的变量
order 选定变量的排列顺序
size 设置点和轮廓的大小
binwidth bin（区间）的宽度
label 设置列标签
font.label 设置标签字体
repel 逻辑值，是否使用ggrepel避免字体重叠
label.rectangle 是否给标签添加方框
ggtheme 设置画图主题

library(ggpubr)
df <- mtcars
str(df)

数据集结果

#初步棒棒糖
df$fl <- row.names(df)
df$cyl <- as.character(df$cyl)
ggdotchart(df, #数据集
           x="fl", #x轴向量
           y="mpg", #y轴向量
           color = "cyl", #点得颜色分组依据
           palette = "npg", #色板
           sorting = "descending",#根据y轴从大到小排序
           add = "segments")#添加棒棒糖的棍子

初步棒棒图

#分组排序
ggdotchart(df, 
           x="fl", 
           y="mpg", 
           color = "cyl",
           group = "cyl", #横坐标依据此分组，同类的放在一起    
           palette = "jco", 
           sorting = "ascending", #升序只在一个组内有效
           add = "segments", 
           ggtheme = theme_pubr())#设置画板，一般不用设，默认就好

分组棒棒糖

#旋转棒棒糖图
ggdotchart(df, 
           x="fl", 
           y="mpg",
           color = "cyl", 
           palette ="aaas", #又换了个ggsci的色板
           sorting = "descending", 
           add = "segments", 
           rotate = TRUE,#旋转的逻辑值选T
           group = "cyl", 
           ggtheme = theme_minimal())#换个画板

旋转后的棒棒糖图