科研绘图模板之棒棒糖图

R语言中的"棒棒糖图"通常指的是棒棒糖图（Lollipop Chart），它是一种数据可视化方式，用于显示项目之间的比较或者展示某个特定维度上的数据分布。棒棒糖图类似于柱状图，但是在柱形的顶端附加了一个圆圈，形状有点像糖果棒。

创建棒棒糖图可以使用R中的不同绘图包，比如基础的base绘图包、ggplot2包等。

以下是使用ggplot2包创建棒棒糖图的一个简单例子：

library(tidyverse)
library(ggsci)
library(ggplot2)
data("mtcars")
mtcars_tbl <- rownames_to_column(mtcars, var = 'car') %>%
  mutate(cyl = factor(cyl))

# mpg 降序排列
mtcars_tbl <- arrange(mtcars_tbl, cyl, mpg)
# 设置 car 的因子顺序为表中顺序
mtcars_tbl <- mutate(mtcars_tbl, car = factor(car, levels = car))
# 画图的代码不需要任何修改
ggplot(mtcars_tbl, aes(x = car, y = mpg, color = cyl)) +
  geom_segment(aes(x = car, 
                   xend = car, 
                   y = 0, 
                   yend = mpg)) +
  geom_point(aes(x = car, y = mpg, ), size = 4) +
  scale_color_npg() +
  labs(color = 'cyl') +
  theme_classic() +
  theme(axis.title.x = element_blank(),
        axis.text.x = element_text(angle = 90, 
                                   hjust = 1, 
                                   vjust = 0.3),
        legend.position = c(0.5, 0.9),
        legend.direction = "horizontal")