WGCNA分析 | 全流程代码分享 | 代码三

关于WGCNA的分析,共有3期教程,今天是的第三期。前面两期是使用代码进行分析的,也是我们的平时最常用的分析方法,对我个人来说也是最简洁的方法。(PS:对于使用代码分析,个人有个人的看法。如果你看得懂代码,那么是非常方便的;但是,一旦你遇到超出你能力范围的代码,那么这就是你噩梦


WGCNA分析教程一

[WGCNA分析教程二]((https://mp.weixin.qq.com/s/Ln9TP74nzWhtvt7obaMp1A)

我们的前面两个教程是付费教程,对于这个价格是否值得,就是仁者见仁,智者见智

上面的教程,所有代码都原封不动的附上,只需改动几个参数就可以;如果,你连需要改那几个参数都不知道,那么请看我每个教程的视频解析;那么,仍然不知道,那么你就付费咨询解决吧!!


今天的教程是来自TBtools | 零基础掌握WGCNA共表达网络分析 - 「WGCNAshiny by Warlock」,作者已经提供了详细的使用教程,也是非常方便的。直接按照作者的操作分析即可。你考虑的问题,作者大佬都给你考虑到了!!
具体请自己详细看一下。

**作者代码存放位置:**在GitHub中(https://github.com/ShawnWx2019/WGCNA-shinyApp


自己使用作者教程安装时遇到的问题

我们在TBtools使用WGCNA shiny插件,启动后会进行安装相关的包,但是也许我的环境问题,一直安装不上,出现报错的情况。

当你遇到这样的情况,我们最好的解决办法就是直接使用作者的代码在Rstudio中的运行即可,运行成功后直接跳出可视化操作框。

运行成功后的界面


那么后的操作就按作者的教程进行即可TBtools | 零基础掌握WGCNA共表达网络分析 - 「WGCNAshiny by Warlock」但是,很多的操作还是需要自己来摸索。


前面WGNCA的教程:

WGCNA分析 | 全流程分析代码 | 代码一

WGCNA分析 | 全流程分析代码 | 代码二


ENDING

这就是本次WGNCA的系列教程,如果你感新兴趣的话,直接跳到相关的链接上。

小杜的生信筆記 ,主要发表或收录生物信息学的教程,以及基于R的分析和可视化(包括数据分析,图形绘制等);分享感兴趣的文献和学习资料!

  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
以下是WGCNA的R代码示例: 安装依赖包 ``` install.packages("WGCNA") library(WGCNA) ``` 读取表达数据 ``` dataExpr = read.csv("表达矩阵.csv", header = TRUE, row.names = 1) ``` 创建表达数据对象 ``` datExpr = as.data.frame(t(dataExpr)) ``` 创建基因注释对象 ``` geneAnnot = read.csv("基因注释.csv", header = TRUE, row.names = 1) ``` 创建样本信息对象 ``` sampleInfo = read.csv("样本信息.csv", header = TRUE, row.names = 1) ``` 创建WGCNA网络对象 ``` networkType = "unsigned" power = 6 sft = pickSoftThreshold(datExpr, powerVector = 1:20, verbose = 5) power = sft$powerEstimate net = blockwiseModules(datExpr, power = power, TOMType = networkType, verbose = 3, saveTOMs = TRUE, mergeCutHeight = 0.25, minModuleSize = 30, reassignThreshold = 0, pamRespectsDendro = FALSE, geneModuleMembershipThreshold = 0.5) ``` WGCNA网络模块可视化 ``` moduleColors = net$colors labels = as.character(sampleInfo$Group) pdf("moduleColors.pdf") par(mar = c(0, 4, 2, 0) + 0.1, cex.lab = 1.5, cex.axis = 1.5, cex.main = 2) plotDendroAndColors(net$dendrograms[[1]], moduleColors[net$blockGenes[[1]]], "Module colors", dendroLabels = FALSE, hang = 0.03, addGuide = TRUE, guideHang = 0.05, main = "") dev.off() ``` WGCNA模块注释和功能富集分析 ``` moduleLabels = net$colors moduleTraitCor = cor(datExpr, sampleInfo$Group, use = "p") moduleTraitPvalue = corPvalueStudent(moduleTraitCor, nSamples) MEs = net$MEs MEDissThres = 0.25 pdf("moduleTrait.pdf") par(mar = c(6, 8, 3, 3)) plotHeatmap(MEs, cexRow = 1, main = "Module eigengenes") plotDendroAndColors(net$dendrograms[[1]], moduleColors[net$blockGenes[[1]]], "Module colors", dendroLabels = FALSE, hang = 0.03, addGuide = TRUE, guideHang = 0.05, main = "") plotModuleTraitCor(net$colors, moduleTraitCor, moduleTraitPvalue, "Module-trait relationships", showLabel = FALSE, autoOrder = FALSE, legendHeight = 1, method = "average", dendrocutHeight = 0.5, fontSize = 12) dev.off() ``` 以上只是WGCNA的部分代码示例,具体实现还需结合具体数据进行调整和优化。

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

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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

小杜的生信筆記

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值