![[会员专享] circlize自定义绘制多组和弦图](https://cdn.10100.com/user/4d45ef863a29683762b456df77cad6ea.png?x-oss-process=style/180x)
欢迎关注R语言数据分析指南
❝最近VIP群内有观众老爷问circos图的绘制方法，原图如下所示用circos工具绘制，本节来介绍如何使用「circlize」绘制此图；绘图过程倒也简单，但就是细节调整比较麻烦；下面就来仔细写一下绘图过程，「数据及代码已经上传VIP群，加群的观众老爷请自行下载」，细节还算有一些，请细细品味；图形仅供参考可根据自己实际需求修改细节
❞
(图形会随着画布大小自行变化，需要调整部分细节)
❝❞
有需要学习数据可视化的朋友欢迎加入小编2022年度VIP群，目前群内已经上传公众号文档「数据+代码约200篇」，VIP交流群(1)已经500人满员,随着内容不断增多，为了更好的创做内容现在进群需「付费149元」,若转发此文档到朋友圈集赞20个可优惠20元，早进早享受；「一定让你感受到物超所值」
加载R包
library(circlize)
library(tidyverse)
导入数据
dt <- read_tsv("data.txt") %>%
# column_to_rownames(var="Drug")
pivot_longer(-c("Organ","Drug")) %>% select(3,1,4)
定义因子
dt$Drug <- factor(dt$Drug,levels = read_tsv("data.txt") %>% select(1) %>% pull())
设置画布尺寸
circos.clear()
circos.par(canvas.xlim=c(-0.5,1.3),canvas.ylim=c(-1.4,1.4),start.degree = -90)
# circos.par(gap.after = c(rep(1,3),10,5))
自定义颜色
grid.col = c(Network="#0073C2FF",GSEA="#4DBBD5FF",
Vivo="#00A087FF",Vitro="#973CB6",clinical="#75C500",FDA="#F5A300")
❝如果需要高度自定义还可以将其转化成ggplot2格式来添加更多细节，最近小编开通了「淘宝店」有需要做个性化数据可视化的观众老爷欢迎咨询，「与公众号同名」，淘宝搜索「R语言数据数据分析指南」即可
❞
小编微信
关注下方公众号下回更新不迷路
往期推荐
数据可视化