代谢组学结果在线分析:不同组差异代谢物高级韦恩图Venn的绘制——UpSet图

什么是UpSet图?

可以说是Venn图的变体,对于集合数据的可视化,适用于少量组别的数据集,一般用于转录组数据基因交集分析,而我最近在分析不同组别的代谢组数据的时候发现同理,下面以我自己数据为例,效果图如下:

image-20230326154614752

UpSet图在线分析网站

  • 我这里直接用的是联川生物云平台,云工具-搜索-UpSet图
    image-20230326154921286

  • 下载官方示例文件准备数据
    image-20230326155102434

  • 列名是基因名称(那我的示例中就是代谢物名称),行名是样品分组名称,该样品检测到了列名,对应位置就标记为“1”,否则为“0”,具体整理见下方数据准备

image-20230326161820609

数据准备

  • 网站有具体的视频教程,但简而言之就是所有组别鉴定到的物质名称并集作为一列,各组别包含这个物质就记为1,没有就记为0,下面进行示例:我要制作Rumen、Serum和Milk当中鉴定到的差异代谢物的Upset图
  • A列是Rumen、Serum和Milk当中鉴定到的差异代谢物的并集,F/G/H是Rumen、Serum和Milk分别鉴定到的差异代谢物,现在目标是若F列和An列有重合的数据,在Bn列就标记“1”,比如查找A2的(+/-)12(13)-DiHOME这个,物质是否在Rumen中存在,使用公式=IF(COUNTIF(F:F,A2)=0,"1","0"),同列下拉即可(更多求两列之间重复数据的公式可以参考 Excel表格中两列数据对比,找出异同的数据

image-20230326160227179

  • 都查找得到数据后,复制B/C/D后重新粘贴,选择仅粘贴数值,删除F/G/H列,即可保存上传网站进行分析

生成结果图与调整

不过多赘述,左侧参数调整区域可以设置字号、图形大小、坐标轴等,右侧支持导出PNG/PDF/SVG/TIFF等多种格式,可调整图片大小,并可以下载交集数据,效果在题头已经给出,更多可以自行摸索

  • 0
    点赞
  • 7
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
好的,下面是五数据: ``` set1 <- list(a = c("apple", "banana", "orange", "pear"), b = c("apple", "orange", "peach", "watermelon")) set2 <- list(a = c("cat", "dog", "rabbit", "hamster"), b = c("dog", "hamster", "parrot")) set3 <- list(a = c("red", "green", "blue"), b = c("green", "purple", "blue")) set4 <- list(a = c("math", "science", "history", "english"), b = c("science", "english")) set5 <- list(a = c("rain", "sunshine", "clouds", "snow"), b = c("sunshine", "clouds")) library(VennDiagram) # 绘制韦恩图 venn.diagram(list(set1, set2, set3, set4, set5), fill = c("#F8766D", "#00BFC4"), alpha = 0.7, filename = "venn.png", imagetype = "png", output=T, main = "五数据的韦恩图") # 颜色调整 venn.plot <- draw.pairwise.venn( area1 = 10, area2 = 20, cross.area = 5, category = c("Group 1", "Group 2"), fill = c("red", "blue"), lty = "blank", cex = 2, cat.cex = 1.5, cat.fontface = "bold", cat.col = c("red", "blue") ) # 外观调整 venn.plot <- draw.pairwise.venn( area1 = 10, area2 = 20, cross.area = 5, category = c("Group 1", "Group 2"), fill = c("red", "blue"), lwd = c(3, 3), cex = 2, cat.cex = 1.5, cat.fontface = "bold", cat.col = c("red", "blue"), cat.dist = c(0.05, 0.05), cat.pos = c(-30, 30) ) # 保存为片 png("venn.png", width = 800, height = 600) grid.draw(venn.plot) dev.off() ``` 这个代码会生成一个名为 `venn.png` 的韦恩图,其中包含五数据的交集情况。你可以根据自己的需求调整颜色和外观来使形更加美观。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值