当前位置: 首页 > news >正文

R 语言科研绘图第 45 期 --- 桑基图-和弦

在发表科研论文的过程中,科研绘图是必不可少的,一张好看的图形会是文章很大的加分项。

为了便于使用,本系列文章介绍的所有绘图都已收录到了 sciRplot 项目中,获取方式:

R 语言科研绘图模板 --- sciRplot https://mp.weixin.qq.com/s/QA_8LVqjkdg4A16zLonw4w?payreadticket=HFXEx_kPj5sa4ZbON6PuBVE6hY4uONpt5fuR5mkt4E3SY1xabQ2teA__zTNdexdQ6rjzi8A

本期绘图预览:

 

1. 导入包

 

我们首先导入本期绘图用到的 R 包:

library(circlize)

2. 准备数据

 

接下来我们导入绘图用到的数据,在 sciRplot 中给大家提供了测试数据:

data <- sciRplot_data

3. 准备配色

 

颜色的选择往往是一件让人特别纠结的事情,这里我们直接使用 sciRcolor 来设置配色:

colors <- sciRcolor::pal_scircolor(37)[1:6]names(colors) <- c(paste0("A", 1:3), paste0("B", 1:3))

sciRcolor 是为了 R 语言科研绘图开发的配色工具,包含了 100 种常用配色,详细信息见:

 

R 语言科研配色工具 --- sciRcolor https://mp.weixin.qq.com/s/XZol4VxvHnJD_49ij3f2mg?payreadticket=HCIggeb6g_gH72WlJ8g663z_umzjXR7nXKHv-x3VHGfDlQ_FUp2CWE-7Vbvo4ujDIUi6COo

4. 绘制图形

 

接下来我们通过下面的代码来绘制图形:

chordDiagram(data, grid.col=colors, annotationTrack = "grid", transparency = 0.2)

5. 保存图形

 

最后我们保存绘制的图形:

## 注意:下面保存图形代码需要在 R Console 中运行,在Rmarkdown中运行会报错png("save/sankey-circlize.png", width = 800, height = 600, res=300, units = 'px')chordDiagram(data, grid.col=colors, annotationTrack = "grid", transparency = 0.2)dev.off()

sciRplot 介绍

 

为了解决 R 语言中科研绘图的问题,我推出了 sciRplot 项目。sciRplot 项目包含了以下内容:

① 100 种绘图代码,按照图形类型进行分类,包含 60 种基础绘图和 40 种进阶绘图

 

 

② 配备一站式 html文档,包含测试数据,代码一键复制交互式阅读提高用户体验

 

 

 

相关文章:

  • 共享会议室|物联网解决方案:打造高效、智能的会议空间!
  • 基于深度学习的图像识别技术:从原理到应用
  • 创建简易个人关系图谱(Neo4j )
  • 神经网络之激活函数:解锁非线性奥秘的关键
  • 第三节:Vben Admin 最新 v5.0 对接后端登录接口(下)
  • 微机控制技术复习【一】
  • 【踩坑记录】项目Bug分析:一次因 `String.isBlank()` 引发的崩溃(No such instance method: ‘isBlank‘)
  • Java项目部署-Springboot+Vue网页部署上线全教程
  • 解释 RESTful API,以及如何使用它构建 web 应用程序。
  • 常见汇编代码及其指定
  • 破局者手册 Ⅱ:测试开发深度攻坚,引爆质量优化新动能!
  • StableDiffusionWebUI的AI绘图AI绘视频详细使用教程+报错排坑
  • Linux Input子系统与驱动开发实战
  • 精益数据分析(44/126):深度解析媒体网站商业模式的关键要点
  • 信息论03:从信息量到信息熵——如何用数学公式“量化“信息的“模糊度“?
  • window 显示驱动开发-线程同步和 TDR
  • el-row el-col
  • GPU架构
  • 1. 视频基础知识
  • tinyrenderer笔记(上)
  • 中方对中美就关税谈判的立场发生变化?外交部:中方立场没有任何改变
  • 商务部:自5月7日起对原产于印度的进口氯氰菊酯征收反倾销税
  • 山东滕州一车辆撞向公交站台撞倒多人,肇事者被控制,案件已移交刑警
  • 超导电路新设计有望提升量子处理器速度
  • 罗马尼亚总理乔拉库宣布辞职
  • 五一车市消费观察:政策赋能、企业发力,汽车消费火热