R可视化——基于ggbump包绘制凹凸图（Bump chart）

凹凸图（bump chart）是折线图的变形形式，这种图常用于展示一组数据随时间产生的排名而非绝对值的变化。下面，小编就基于ggbump包给大家展示如何绘制凹凸图。

安装、加载R包

#安装R包
install.packages("ggbump")
install.packages("ggplot2")
install.packages("ggprism")
#加载R包
library(ggbump)
library(ggplot2)
library(ggprism)

数据

这里我们使用代码生成作图所需的数据，同理大家也可以导入自己准备好的数据：

df<-data.frame(
  x=rep(1:6,4),
  y=c(10,12,14,12,14,16, 12,14,12,10,12,12, 14,16,10,14,16,10, 16,10,16,16,10,14),
  z=c(rep('g1',6),rep('g2',6),rep('g3',6),rep('g4',6)))

注：前两列数据保证为数值型数据，否则后续绘图可能会报错！

image.png

绘图

1、基础绘图

ggplot(df, aes(x = x, y = y, color = z)) +#数据
  geom_bump(size = 1.2)

image.png

2、添加节点

ggplot(df, aes(x = x, y = y, color = z)) +#数据
  geom_bump(size = 1.2)+#基本凹凸图绘制
  geom_point(size = 10)

image.png

3、调整整体主题并添加标签:

ggplot(df, aes(x = x, y = y, color = z)) +#数据
  geom_bump(size = 1.2)+#基本凹凸图绘制
  geom_point(size = 10)+#添加节点
  scale_color_prism(palette = 'candy_bright')+#自定义颜色
  theme_void() +#主题
  geom_text(data = df,
            aes(x = x, label = z),
            size = 4, color='white')+#添加标签
  theme(legend.position = "none")#去除图例

image.png

参考：https://r-charts.com/ranking/ggbump/