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/
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容