lollipop

本质是条形图（柱状图）和气泡图（点图）的组合。条形的长度、气泡的大小和气泡的颜色可表示三个变量，例如展示通路富集结果时，可分别表示 log2FoldChange、包含的基因数和 p 值大小。

library(dplyr)
library(ggplot2)
library(cols4all)

# plot
ggplot(tmp, aes(x = fold_enrichment, y = Description, fill = `-log10pvalue`)) +
  # geom_col() + # 添加条形图
  geom_col(width = 0.1,) + # 调整宽度，使柱子变成一根细细的'棍子' 
  geom_point(aes(size = Count, color = `-log10pvalue`)) +
  # scale_size_continuous(range = c(2, 7)) # 气泡大小/范围调整
  scale_color_continuous_c4a_div('sunset', mid = 0, reverse = T) +
  scale_fill_continuous_c4a_div('sunset', mid = 0, reverse = T) +
  theme_classic() 

# save plot
if(F) {
  ggplot2::ggsave(
    filename = '_.pdf',
    plot = last_plot(),
    width = 150,
    height = 100,
    units = "mm",
    # dpi = 300
  )
}