欢迎关注R语言数据分析指南
❝本节来绘制npj biofilms and microbiomes上的一张图表，渐变色填充韦恩图，数据为随意构建无意义，整个过程仅参考。希望对各位观众老爷能有所帮助。「数据代码已经整合上传到会员交流群」，购买过小编VIP的朋友可在所加的会员群内获取下载，有需要的朋友可关注文中介绍加入VIP交流群。
❞
论文
https://www.nature.com/articles/s41522-023-00395-3
原图
仿图
❝更新ggplot2 3.5版之后即可实现渐变填充功能，需要注意的是Windows系统需要做额外的一些设置
❞
加载R包
library(ggvenn)
install.packages("ggplot2")
library(tidyverse)
导入数据
A <- read_tsv("diff.txt",col_names = F)
B <- read_tsv("OS.txt",col_names = F)
C <- read_tsv("WGCNA.txt",col_names = F)
定义渐变色
patterns <- list(
radialGradient(c("white","#1E90FF"), group = F),
radialGradient(c("white","#FF8C00"), group = FALSE),
radialGradient(c("white","#4DAF4A"), group = FALSE))
数据可视化
list(A=A$X1,B=B$X1,C=C$X1) %>%
ggvenn(show_percentage = T,show_elements = F,label_sep = ",",
digits = 1,stroke_color =NA)+
scale_fill_manual(values = patterns)
❝可以看到实现起来非常的简单，真是非常的方便。本节介绍到此结束，有需要学习数据可视化的朋友欢迎加入小编的VIP会员群，购买小编VIP会员文档的读者，「将自动获得2024年及以后更新的绘图文档代码，无需额外付费」。目前会员文档(2023+2024)「已经更新上传了140+案例文档」，每个案例都附有相应的数据和代码，并配有对应的注释文档，方便大家学习和参考。「有需要者可加小编微信进行咨询，无需求请勿扰」
❞
「2024更新的绘图内容同时包含数据+代码+markdown注释文档+文档清单」
小编微信
淘宝店铺
