1932.html 149 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714
  1. <!DOCTYPE html>
  2. <html lang="en" data-default-color-scheme=auto>
  3. <head><!-- hexo injector head_begin start -->
  4. <script async src="https://analytics.umami.is/script.js" data-website-id="e59ec28a-c9a7-4104-9e62-a9f7eb3fac0b"></script>
  5. <!-- hexo injector head_begin end -->
  6. <meta charset="UTF-8">
  7. <link rel="apple-touch-icon" sizes="76x76" href="https://img.limour.top/2023/08/29/64ee07361815a.webp">
  8. <link rel="icon" href="https://img.limour.top/2023/08/29/64ee07361815a.webp">
  9. <meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=5.0, shrink-to-fit=no">
  10. <meta http-equiv="x-ua-compatible" content="ie=edge">
  11. <meta name="theme-color" content="#2f4154">
  12. <meta name="author" content="Limour">
  13. <meta name="keywords" content="">
  14. <meta name="description" content="数据清洗123library(WGCNA) #加载WGCNA包enableWGCNAThreads() #开启多线程options(stringsAsFactors &#x3D; FALSE) #避免某些错误匹配 1234567#Read in the female liver data setfemData &#x3D; read.csv(&quot;LiverFemale3600.csv&quot;);#">
  15. <meta property="og:type" content="article">
  16. <meta property="og:title" content="WGCNA:官方教程学习之共识分析">
  17. <meta property="og:url" content="https://b.limour.top/1932.html">
  18. <meta property="og:site_name" content="Limour&#39;s Blog">
  19. <meta property="og:description" content="数据清洗123library(WGCNA) #加载WGCNA包enableWGCNAThreads() #开启多线程options(stringsAsFactors &#x3D; FALSE) #避免某些错误匹配 1234567#Read in the female liver data setfemData &#x3D; read.csv(&quot;LiverFemale3600.csv&quot;);#">
  20. <meta property="og:locale" content="en_US">
  21. <meta property="og:image" content="https://img-cdn.limour.top/2022/07/24/62dd26613e05f.png">
  22. <meta property="article:published_time" content="2022-07-24T03:04:25.000Z">
  23. <meta property="article:modified_time" content="2023-09-01T13:32:00.881Z">
  24. <meta property="article:author" content="Limour">
  25. <meta name="twitter:card" content="summary_large_image">
  26. <meta name="twitter:image" content="https://img-cdn.limour.top/2022/07/24/62dd26613e05f.png">
  27. <title>WGCNA:官方教程学习之共识分析 - Limour&#39;s Blog</title>
  28. <link rel="stylesheet" href="https://jscdn.limour.top/npm/bootstrap@4.6.1/dist/css/bootstrap.min.css" />
  29. <link rel="stylesheet" href="https://jscdn.limour.top/npm/github-markdown-css@4.0.0/github-markdown.min.css" />
  30. <link rel="stylesheet" href="https://jscdn.limour.top/npm/hint.css@2.7.0/hint.min.css" />
  31. <link rel="stylesheet" href="https://lib.baomitu.com/fancybox/3.5.7/jquery.fancybox.min.css" />
  32. <!-- 主题依赖的图标库,不要自行修改 -->
  33. <!-- Do not modify the link that theme dependent icons -->
  34. <link rel="stylesheet" href="//at.alicdn.com/t/font_1749284_hj8rtnfg7um.css">
  35. <link rel="stylesheet" href="//at.alicdn.com/t/font_1736178_lbnruvf0jn.css">
  36. <link rel="stylesheet" href="/css/main.css" />
  37. <link id="highlight-css" rel="stylesheet" href="/css/highlight.css" />
  38. <link id="highlight-css-dark" rel="stylesheet" href="/css/highlight-dark.css" />
  39. <link rel="stylesheet" href="/theme-inject/custom.css">
  40. <script id="fluid-configs">
  41. var Fluid = window.Fluid || {};
  42. Fluid.ctx = Object.assign({}, Fluid.ctx)
  43. var CONFIG = {"hostname":"b.limour.top","root":"/","version":"1.9.5-a","typing":{"enable":true,"typeSpeed":70,"cursorChar":"_","loop":false,"scope":[]},"anchorjs":{"enable":true,"element":"h1,h2,h3,h4,h5,h6","placement":"left","visible":"hover","icon":"§"},"progressbar":{"enable":true,"height_px":3,"color":"#29d","options":{"showSpinner":false,"trickleSpeed":100}},"code_language":{"enable":true,"default":"TEXT"},"copy_btn":true,"image_caption":{"enable":true},"image_zoom":{"enable":true,"img_url_replace":["",""]},"toc":{"enable":true,"placement":"right","headingSelector":"h1,h2,h3,h4,h5,h6","collapseDepth":0},"lazyload":{"enable":true,"loading_img":"https://jscdn.limour.top/gh/Limour-dev/Sakurairo_Vision/load_svg/inload.svg","onlypost":false,"offset_factor":2},"web_analytics":{"enable":false,"follow_dnt":true,"baidu":null,"google":{"measurement_id":null},"tencent":{"sid":null,"cid":null},"woyaola":null,"cnzz":null,"leancloud":{"app_id":null,"app_key":null,"server_url":null,"path":"window.location.pathname","ignore_local":false}},"search_path":"/local-search.xml","include_content_in_search":true};
  44. if (CONFIG.web_analytics.follow_dnt) {
  45. var dntVal = navigator.doNotTrack || window.doNotTrack || navigator.msDoNotTrack;
  46. Fluid.ctx.dnt = dntVal && (dntVal.startsWith('1') || dntVal.startsWith('yes') || dntVal.startsWith('on'));
  47. }
  48. </script>
  49. <script src="/js/utils.js" ></script>
  50. <script src="/js/color-schema.js" ></script>
  51. <meta name="generator" content="Hexo 6.3.0"></head>
  52. <body>
  53. <header>
  54. <div class="header-inner" style="height: 70vh;">
  55. <nav id="navbar" class="navbar fixed-top navbar-expand-lg navbar-dark scrolling-navbar">
  56. <div class="container">
  57. <a class="navbar-brand" href="/">
  58. <strong>Limour&#39;s Blog</strong>
  59. </a>
  60. <button id="navbar-toggler-btn" class="navbar-toggler" type="button" data-toggle="collapse"
  61. data-target="#navbarSupportedContent"
  62. aria-controls="navbarSupportedContent" aria-expanded="false" aria-label="Toggle navigation">
  63. <div class="animated-icon"><span></span><span></span><span></span></div>
  64. </button>
  65. <!-- Collapsible content -->
  66. <div class="collapse navbar-collapse" id="navbarSupportedContent">
  67. <ul class="navbar-nav ml-auto text-center">
  68. <li class="nav-item">
  69. <a class="nav-link" href="/">
  70. <i class="iconfont icon-home-fill"></i>
  71. <span>Home</span>
  72. </a>
  73. </li>
  74. <li class="nav-item">
  75. <a class="nav-link" href="/archives/">
  76. <i class="iconfont icon-archive-fill"></i>
  77. <span>Archives</span>
  78. </a>
  79. </li>
  80. <li class="nav-item" id="search-btn">
  81. <a class="nav-link" target="_self" href="javascript:;" data-toggle="modal" data-target="#modalSearch" aria-label="Search">
  82. <i class="iconfont icon-search"></i>
  83. </a>
  84. </li>
  85. <li class="nav-item" id="color-toggle-btn">
  86. <a class="nav-link" target="_self" href="javascript:;" aria-label="Color Toggle">
  87. <i class="iconfont icon-dark" id="color-toggle-icon"></i>
  88. </a>
  89. </li>
  90. </ul>
  91. </div>
  92. </div>
  93. </nav>
  94. <div id="banner" class="banner" parallax=true
  95. style="background: url('https://img.limour.top/2023/08/29/64ee08e108638.webp') no-repeat center center; background-size: cover;">
  96. <div class="full-bg-img">
  97. <div class="mask flex-center" style="background-color: rgba(0, 0, 0, 0.3)">
  98. <div class="banner-text text-center fade-in-up">
  99. <div class="h2">
  100. <span id="subtitle" data-typed-text="WGCNA:官方教程学习之共识分析"></span>
  101. </div>
  102. <div class="mt-3">
  103. <span class="post-meta">
  104. <i class="iconfont icon-date-fill" aria-hidden="true"></i>
  105. <time datetime="2022-07-24 11:04" pubdate>
  106. July 24, 2022 am
  107. </time>
  108. </span>
  109. </div>
  110. <div class="mt-1">
  111. <span class="post-meta mr-2">
  112. <i class="iconfont icon-chart"></i>
  113. 16k words
  114. </span>
  115. <span class="post-meta mr-2">
  116. <i class="iconfont icon-clock-fill"></i>
  117. 136 mins
  118. </span>
  119. </div>
  120. </div>
  121. </div>
  122. </div>
  123. </div>
  124. </div>
  125. </header>
  126. <main>
  127. <div class="container-fluid nopadding-x">
  128. <div class="row nomargin-x">
  129. <div class="side-col d-none d-lg-block col-lg-2">
  130. </div>
  131. <div class="col-lg-8 nopadding-x-md">
  132. <div class="container nopadding-x-md" id="board-ctn">
  133. <div id="board">
  134. <article class="post-content mx-auto">
  135. <h1 id="seo-header">WGCNA:官方教程学习之共识分析</h1>
  136. <div class="markdown-body">
  137. <h2 id="数据清洗"><a href="#数据清洗" class="headerlink" title="数据清洗"></a>数据清洗</h2><figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br></pre></td><td class="code"><pre><code class="hljs R">library<span class="hljs-punctuation">(</span>WGCNA<span class="hljs-punctuation">)</span> <span class="hljs-comment">#加载WGCNA包</span><br>enableWGCNAThreads<span class="hljs-punctuation">(</span><span class="hljs-punctuation">)</span> <span class="hljs-comment">#开启多线程</span><br>options<span class="hljs-punctuation">(</span>stringsAsFactors <span class="hljs-operator">=</span> <span class="hljs-literal">FALSE</span><span class="hljs-punctuation">)</span> <span class="hljs-comment">#避免某些错误匹配</span><br></code></pre></td></tr></table></figure>
  138. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-comment">#Read in the female liver data set</span><br>femData <span class="hljs-operator">=</span> read.csv<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;LiverFemale3600.csv&quot;</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Read in the male liver data set</span><br>maleData <span class="hljs-operator">=</span> read.csv<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;LiverMale3600.csv&quot;</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># For easier labeling of plots, create a vector holding descriptive names of the two sets.</span><br>setLabels <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-string">&quot;Female liver&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;Male liver&quot;</span><span class="hljs-punctuation">)</span><br>shortLabels <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-string">&quot;Female&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;Male&quot;</span><span class="hljs-punctuation">)</span><br></code></pre></td></tr></table></figure>
  139. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br><span class="line">13</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-comment"># We work with two sets:</span><br>nSets <span class="hljs-operator">=</span> <span class="hljs-number">2</span>;<br><span class="hljs-comment"># Form multi-set expression data: columns starting from 9 contain actual expression data.</span><br>multiExpr <span class="hljs-operator">=</span> vector<span class="hljs-punctuation">(</span>mode <span class="hljs-operator">=</span> <span class="hljs-string">&quot;list&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-built_in">length</span> <span class="hljs-operator">=</span> nSets<span class="hljs-punctuation">)</span><br>multiExpr<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">list</span><span class="hljs-punctuation">(</span>data <span class="hljs-operator">=</span> as.data.frame<span class="hljs-punctuation">(</span>t<span class="hljs-punctuation">(</span>femData<span class="hljs-punctuation">[</span><span class="hljs-operator">-</span><span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">1</span><span class="hljs-operator">:</span><span class="hljs-number">8</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-built_in">names</span><span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> femData<span class="hljs-operator">$</span>substanceBXH;<br>rownames<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">names</span><span class="hljs-punctuation">(</span>femData<span class="hljs-punctuation">)</span><span class="hljs-punctuation">[</span><span class="hljs-operator">-</span><span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">1</span><span class="hljs-operator">:</span><span class="hljs-number">8</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">]</span>;<br>multiExpr<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">list</span><span class="hljs-punctuation">(</span>data <span class="hljs-operator">=</span> as.data.frame<span class="hljs-punctuation">(</span>t<span class="hljs-punctuation">(</span>maleData<span class="hljs-punctuation">[</span><span class="hljs-operator">-</span><span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">1</span><span class="hljs-operator">:</span><span class="hljs-number">8</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-built_in">names</span><span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> maleData<span class="hljs-operator">$</span>substanceBXH;<br>rownames<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">names</span><span class="hljs-punctuation">(</span>maleData<span class="hljs-punctuation">)</span><span class="hljs-punctuation">[</span><span class="hljs-operator">-</span><span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">1</span><span class="hljs-operator">:</span><span class="hljs-number">8</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">]</span>;<br><span class="hljs-comment"># Check that the data has the correct format for many functions operating on multiple sets:</span><br>exprSize <span class="hljs-operator">=</span> checkSets<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">)</span><br>exprSize<br></code></pre></td></tr></table></figure>
  140. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br><span class="line">13</span><br><span class="line">14</span><br><span class="line">15</span><br><span class="line">16</span><br><span class="line">17</span><br><span class="line">18</span><br></pre></td><td class="code"><pre><code class="hljs R">gsg <span class="hljs-operator">=</span> goodSamplesGenesMS<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">,</span> verbose <span class="hljs-operator">=</span> <span class="hljs-number">3</span><span class="hljs-punctuation">)</span>;<br>gsg<span class="hljs-operator">$</span>allOK<br><span class="hljs-keyword">if</span> <span class="hljs-punctuation">(</span><span class="hljs-operator">!</span>gsg<span class="hljs-operator">$</span>allOK<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> <span class="hljs-comment"># Print information about the removed genes:</span><br> <span class="hljs-keyword">if</span> <span class="hljs-punctuation">(</span><span class="hljs-built_in">sum</span><span class="hljs-punctuation">(</span><span class="hljs-operator">!</span>gsg<span class="hljs-operator">$</span>goodGenes<span class="hljs-punctuation">)</span> <span class="hljs-operator">&gt;</span> <span class="hljs-number">0</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> printFlush<span class="hljs-punctuation">(</span>paste<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;Removing genes:&quot;</span><span class="hljs-punctuation">,</span> paste<span class="hljs-punctuation">(</span><span class="hljs-built_in">names</span><span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span><span class="hljs-punctuation">[</span><span class="hljs-operator">!</span>gsg<span class="hljs-operator">$</span>goodGenes<span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span>collapse <span class="hljs-operator">=</span> <span class="hljs-string">&quot;, &quot;</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><br> <span class="hljs-punctuation">&#125;</span><br> <span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>exprSize<span class="hljs-operator">$</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> <span class="hljs-keyword">if</span> <span class="hljs-punctuation">(</span><span class="hljs-built_in">sum</span><span class="hljs-punctuation">(</span><span class="hljs-operator">!</span>gsg<span class="hljs-operator">$</span>goodSamples<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> printFlush<span class="hljs-punctuation">(</span>paste<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;In set&quot;</span><span class="hljs-punctuation">,</span> setLabels<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;removing samples&quot;</span><span class="hljs-punctuation">,</span><br> paste<span class="hljs-punctuation">(</span>rownames<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span><span class="hljs-punctuation">[</span><span class="hljs-operator">!</span>gsg<span class="hljs-operator">$</span>goodSamples<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> collapse <span class="hljs-operator">=</span> <span class="hljs-string">&quot;, &quot;</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><br> <span class="hljs-punctuation">&#125;</span><br> <span class="hljs-comment"># Remove the offending genes and samples</span><br> multiExpr<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data <span class="hljs-operator">=</span> multiExpr<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">[</span>gsg<span class="hljs-operator">$</span>goodSamples<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> gsg<span class="hljs-operator">$</span>goodGenes<span class="hljs-punctuation">]</span>;<br> <span class="hljs-punctuation">&#125;</span><br> <span class="hljs-comment"># Update exprSize</span><br> exprSize <span class="hljs-operator">=</span> checkSets<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">)</span><br><span class="hljs-punctuation">&#125;</span><br></code></pre></td></tr></table></figure>
  141. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br></pre></td><td class="code"><pre><code class="hljs R">sampleTrees <span class="hljs-operator">=</span> <span class="hljs-built_in">list</span><span class="hljs-punctuation">(</span><span class="hljs-punctuation">)</span><br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> sampleTrees<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> hclust<span class="hljs-punctuation">(</span>dist<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> method <span class="hljs-operator">=</span> <span class="hljs-string">&quot;average&quot;</span><span class="hljs-punctuation">)</span><br><span class="hljs-punctuation">&#125;</span><br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> plot<span class="hljs-punctuation">(</span>sampleTrees<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> main <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;Sample clustering on all genes in&quot;</span><span class="hljs-punctuation">,</span> setLabels<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> xlab<span class="hljs-operator">=</span><span class="hljs-string">&quot;&quot;</span><span class="hljs-punctuation">,</span> sub<span class="hljs-operator">=</span><span class="hljs-string">&quot;&quot;</span><span class="hljs-punctuation">,</span> cex <span class="hljs-operator">=</span> <span class="hljs-number">0.7</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-punctuation">&#125;</span><br></code></pre></td></tr></table></figure>
  142. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-comment"># Choose the &quot;base&quot; cut height for the female data set</span><br>baseHeight <span class="hljs-operator">=</span> <span class="hljs-number">16</span><br><span class="hljs-comment"># Adjust the cut height for the male data set for the number of samples</span><br>cutHeights <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">1</span><span class="hljs-punctuation">,</span> exprSize<span class="hljs-operator">$</span>nSamples<span class="hljs-punctuation">[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-operator">/</span>exprSize<span class="hljs-operator">$</span>nSamples<span class="hljs-punctuation">[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-operator">*</span>baseHeight<br><span class="hljs-comment"># Re-plot the dendrograms including the cut lines</span><br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> plot<span class="hljs-punctuation">(</span>sampleTrees<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> main <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;Sample clustering on all genes in&quot;</span><span class="hljs-punctuation">,</span> setLabels<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> xlab<span class="hljs-operator">=</span><span class="hljs-string">&quot;&quot;</span><span class="hljs-punctuation">,</span> sub<span class="hljs-operator">=</span><span class="hljs-string">&quot;&quot;</span><span class="hljs-punctuation">,</span> cex <span class="hljs-operator">=</span> <span class="hljs-number">0.7</span><span class="hljs-punctuation">)</span>;<br> abline<span class="hljs-punctuation">(</span>h<span class="hljs-operator">=</span>cutHeights<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> col <span class="hljs-operator">=</span> <span class="hljs-string">&quot;red&quot;</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-punctuation">&#125;</span><br></code></pre></td></tr></table></figure>
  143. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> <span class="hljs-comment"># Find clusters cut by the line</span><br> labels <span class="hljs-operator">=</span> cutreeStatic<span class="hljs-punctuation">(</span>sampleTrees<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> cutHeight <span class="hljs-operator">=</span> cutHeights<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><br> <span class="hljs-comment"># Keep the largest one (labeled by the number 1)</span><br> keep <span class="hljs-operator">=</span> <span class="hljs-punctuation">(</span>labels<span class="hljs-operator">==</span><span class="hljs-number">1</span><span class="hljs-punctuation">)</span><br> multiExpr<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data <span class="hljs-operator">=</span> multiExpr<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">[</span>keep<span class="hljs-punctuation">,</span> <span class="hljs-punctuation">]</span><br><span class="hljs-punctuation">&#125;</span><br>collectGarbage<span class="hljs-punctuation">(</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Check the size of the leftover data</span><br>exprSize <span class="hljs-operator">=</span> checkSets<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">)</span><br>exprSize<br></code></pre></td></tr></table></figure>
  144. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br></pre></td><td class="code"><pre><code class="hljs R">traitData <span class="hljs-operator">=</span> read.csv<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;ClinicalTraits.csv&quot;</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># remove columns that hold information we do not need.</span><br>allTraits <span class="hljs-operator">=</span> traitData<span class="hljs-punctuation">[</span><span class="hljs-punctuation">,</span> <span class="hljs-operator">-</span><span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">31</span><span class="hljs-punctuation">,</span> <span class="hljs-number">16</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">]</span>;<br>allTraits <span class="hljs-operator">=</span> allTraits<span class="hljs-punctuation">[</span><span class="hljs-punctuation">,</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">2</span><span class="hljs-punctuation">,</span> <span class="hljs-number">11</span><span class="hljs-operator">:</span><span class="hljs-number">36</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">]</span>;<br>Traits <span class="hljs-operator">=</span> vector<span class="hljs-punctuation">(</span>mode<span class="hljs-operator">=</span><span class="hljs-string">&quot;list&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-built_in">length</span> <span class="hljs-operator">=</span> nSets<span class="hljs-punctuation">)</span>;<br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> setSamples <span class="hljs-operator">=</span> rownames<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span>;<br> traitRows <span class="hljs-operator">=</span> match<span class="hljs-punctuation">(</span>setSamples<span class="hljs-punctuation">,</span> allTraits<span class="hljs-operator">$</span>Mice<span class="hljs-punctuation">)</span>;<br> Traits<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">list</span><span class="hljs-punctuation">(</span>data <span class="hljs-operator">=</span> allTraits<span class="hljs-punctuation">[</span>traitRows<span class="hljs-punctuation">,</span> <span class="hljs-operator">-</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span>;<br> rownames<span class="hljs-punctuation">(</span>Traits<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> allTraits<span class="hljs-punctuation">[</span>traitRows<span class="hljs-punctuation">,</span> <span class="hljs-number">1</span><span class="hljs-punctuation">]</span>;<br><span class="hljs-punctuation">&#125;</span><br>collectGarbage<span class="hljs-punctuation">(</span><span class="hljs-punctuation">)</span>;<br></code></pre></td></tr></table></figure>
  145. <p>得到一个multiExpr,以列表的形式存储了所有的表达矩阵;一个Traits,以列表的形式存储了所有的性状矩阵</p>
  146. <h2 id="构建共识网络模块"><a href="#构建共识网络模块" class="headerlink" title="构建共识网络模块"></a>构建共识网络模块</h2><h3 id="选择合适的β值"><a href="#选择合适的β值" class="headerlink" title="选择合适的β值"></a>选择合适的β值</h3><figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br><span class="line">13</span><br><span class="line">14</span><br><span class="line">15</span><br><span class="line">16</span><br><span class="line">17</span><br><span class="line">18</span><br><span class="line">19</span><br><span class="line">20</span><br><span class="line">21</span><br><span class="line">22</span><br><span class="line">23</span><br><span class="line">24</span><br><span class="line">25</span><br><span class="line">26</span><br><span class="line">27</span><br><span class="line">28</span><br><span class="line">29</span><br><span class="line">30</span><br><span class="line">31</span><br><span class="line">32</span><br><span class="line">33</span><br><span class="line">34</span><br><span class="line">35</span><br><span class="line">36</span><br><span class="line">37</span><br><span class="line">38</span><br><span class="line">39</span><br><span class="line">40</span><br><span class="line">41</span><br><span class="line">42</span><br><span class="line">43</span><br><span class="line">44</span><br><span class="line">45</span><br><span class="line">46</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-comment"># Choose a set of soft-thresholding powers</span><br>powers <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span>seq<span class="hljs-punctuation">(</span><span class="hljs-number">4</span><span class="hljs-punctuation">,</span><span class="hljs-number">10</span><span class="hljs-punctuation">,</span>by<span class="hljs-operator">=</span><span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> seq<span class="hljs-punctuation">(</span><span class="hljs-number">12</span><span class="hljs-punctuation">,</span><span class="hljs-number">20</span><span class="hljs-punctuation">,</span> by<span class="hljs-operator">=</span><span class="hljs-number">2</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Initialize a list to hold the results of scale-free analysis</span><br>powerTables <span class="hljs-operator">=</span> vector<span class="hljs-punctuation">(</span>mode <span class="hljs-operator">=</span> <span class="hljs-string">&quot;list&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-built_in">length</span> <span class="hljs-operator">=</span> nSets<span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Call the network topology analysis function for each set in turn</span><br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> powerTables<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">list</span><span class="hljs-punctuation">(</span>data <span class="hljs-operator">=</span> pickSoftThreshold<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">,</span> powerVector<span class="hljs-operator">=</span>powers<span class="hljs-punctuation">,</span><br> verbose <span class="hljs-operator">=</span> <span class="hljs-number">2</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-punctuation">&#125;</span><br>collectGarbage<span class="hljs-punctuation">(</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Plot the results:</span><br>colors <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-string">&quot;black&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;red&quot;</span><span class="hljs-punctuation">)</span><br><span class="hljs-comment"># Will plot these columns of the returned scale free analysis tables</span><br>plotCols <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">2</span><span class="hljs-punctuation">,</span><span class="hljs-number">5</span><span class="hljs-punctuation">,</span><span class="hljs-number">6</span><span class="hljs-punctuation">,</span><span class="hljs-number">7</span><span class="hljs-punctuation">)</span><br>colNames <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-string">&quot;Scale Free Topology Model Fit&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;Mean connectivity&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;Median connectivity&quot;</span><span class="hljs-punctuation">,</span><br><span class="hljs-string">&quot;Max connectivity&quot;</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Get the minima and maxima of the plotted points</span><br>ylim <span class="hljs-operator">=</span> matrix<span class="hljs-punctuation">(</span><span class="hljs-literal">NA</span><span class="hljs-punctuation">,</span> nrow <span class="hljs-operator">=</span> <span class="hljs-number">2</span><span class="hljs-punctuation">,</span> ncol <span class="hljs-operator">=</span> <span class="hljs-number">4</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> <span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>col <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span><span class="hljs-built_in">length</span><span class="hljs-punctuation">(</span>plotCols<span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> ylim<span class="hljs-punctuation">[</span><span class="hljs-number">1</span><span class="hljs-punctuation">,</span> col<span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">min</span><span class="hljs-punctuation">(</span>ylim<span class="hljs-punctuation">[</span><span class="hljs-number">1</span><span class="hljs-punctuation">,</span> col<span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> powerTables<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">[</span><span class="hljs-punctuation">,</span> plotCols<span class="hljs-punctuation">[</span>col<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> na.rm <span class="hljs-operator">=</span> <span class="hljs-literal">TRUE</span><span class="hljs-punctuation">)</span>;<br> ylim<span class="hljs-punctuation">[</span><span class="hljs-number">2</span><span class="hljs-punctuation">,</span> col<span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">max</span><span class="hljs-punctuation">(</span>ylim<span class="hljs-punctuation">[</span><span class="hljs-number">2</span><span class="hljs-punctuation">,</span> col<span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> powerTables<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">[</span><span class="hljs-punctuation">,</span> plotCols<span class="hljs-punctuation">[</span>col<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> na.rm <span class="hljs-operator">=</span> <span class="hljs-literal">TRUE</span><span class="hljs-punctuation">)</span>;<br> <span class="hljs-punctuation">&#125;</span><br><span class="hljs-punctuation">&#125;</span><br><span class="hljs-comment"># Plot the quantities in the chosen columns vs. the soft thresholding power</span><br>cex1 <span class="hljs-operator">=</span> <span class="hljs-number">0.7</span>;<br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>col <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span><span class="hljs-built_in">length</span><span class="hljs-punctuation">(</span>plotCols<span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span> <span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> <span class="hljs-keyword">if</span> <span class="hljs-punctuation">(</span>set<span class="hljs-operator">==</span><span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> plot<span class="hljs-punctuation">(</span>powerTables<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">[</span><span class="hljs-punctuation">,</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> <span class="hljs-operator">-</span><span class="hljs-built_in">sign</span><span class="hljs-punctuation">(</span>powerTables<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">[</span><span class="hljs-punctuation">,</span><span class="hljs-number">3</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-operator">*</span>powerTables<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">[</span><span class="hljs-punctuation">,</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span><br> xlab<span class="hljs-operator">=</span><span class="hljs-string">&quot;Soft Threshold (power)&quot;</span><span class="hljs-punctuation">,</span>ylab<span class="hljs-operator">=</span>colNames<span class="hljs-punctuation">[</span>col<span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span>type<span class="hljs-operator">=</span><span class="hljs-string">&quot;n&quot;</span><span class="hljs-punctuation">,</span> ylim <span class="hljs-operator">=</span> ylim<span class="hljs-punctuation">[</span><span class="hljs-punctuation">,</span> col<span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span><br> main <span class="hljs-operator">=</span> colNames<span class="hljs-punctuation">[</span>col<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span>;<br> addGrid<span class="hljs-punctuation">(</span><span class="hljs-punctuation">)</span>;<br> <span class="hljs-punctuation">&#125;</span><br> <span class="hljs-keyword">if</span> <span class="hljs-punctuation">(</span>col<span class="hljs-operator">==</span><span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> text<span class="hljs-punctuation">(</span>powerTables<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">[</span><span class="hljs-punctuation">,</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> <span class="hljs-operator">-</span><span class="hljs-built_in">sign</span><span class="hljs-punctuation">(</span>powerTables<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">[</span><span class="hljs-punctuation">,</span><span class="hljs-number">3</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-operator">*</span>powerTables<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">[</span><span class="hljs-punctuation">,</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span><br> labels<span class="hljs-operator">=</span>powers<span class="hljs-punctuation">,</span>cex<span class="hljs-operator">=</span>cex1<span class="hljs-punctuation">,</span>col<span class="hljs-operator">=</span>colors<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span>;<br> <span class="hljs-punctuation">&#125;</span> <span class="hljs-keyword">else</span><span class="hljs-punctuation">&#123;</span><br> text<span class="hljs-punctuation">(</span>powerTables<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">[</span><span class="hljs-punctuation">,</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> powerTables<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">[</span><span class="hljs-punctuation">,</span>plotCols<span class="hljs-punctuation">[</span>col<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span><br> labels<span class="hljs-operator">=</span>powers<span class="hljs-punctuation">,</span>cex<span class="hljs-operator">=</span>cex1<span class="hljs-punctuation">,</span>col<span class="hljs-operator">=</span>colors<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span>;<br> <span class="hljs-punctuation">&#125;</span><br> <span class="hljs-keyword">if</span> <span class="hljs-punctuation">(</span>col<span class="hljs-operator">==</span><span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> legend<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;bottomright&quot;</span><span class="hljs-punctuation">,</span> legend <span class="hljs-operator">=</span> setLabels<span class="hljs-punctuation">,</span> col <span class="hljs-operator">=</span> colors<span class="hljs-punctuation">,</span> pch <span class="hljs-operator">=</span> <span class="hljs-number">20</span><span class="hljs-punctuation">)</span> ;<br> <span class="hljs-punctuation">&#125;</span><span class="hljs-keyword">else</span><span class="hljs-punctuation">&#123;</span><br> legend<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;topright&quot;</span><span class="hljs-punctuation">,</span> legend <span class="hljs-operator">=</span> setLabels<span class="hljs-punctuation">,</span> col <span class="hljs-operator">=</span> colors<span class="hljs-punctuation">,</span> pch <span class="hljs-operator">=</span> <span class="hljs-number">20</span><span class="hljs-punctuation">)</span> ;<br> <span class="hljs-punctuation">&#125;</span><br><span class="hljs-punctuation">&#125;</span><br></code></pre></td></tr></table></figure>
  147. <h3 id="计算邻接矩阵"><a href="#计算邻接矩阵" class="headerlink" title="计算邻接矩阵"></a>计算邻接矩阵</h3><figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br></pre></td><td class="code"><pre><code class="hljs R">softPower <span class="hljs-operator">=</span> <span class="hljs-number">7</span>;<br><span class="hljs-comment"># Initialize an appropriate array to hold the adjacencies</span><br>nGenes <span class="hljs-operator">=</span> exprSize<span class="hljs-operator">$</span>nGenes;<br>nSamples <span class="hljs-operator">=</span> exprSize<span class="hljs-operator">$</span>nSamples;<br>adjacencies <span class="hljs-operator">=</span> array<span class="hljs-punctuation">(</span><span class="hljs-number">0</span><span class="hljs-punctuation">,</span> <span class="hljs-built_in">dim</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span>nSets<span class="hljs-punctuation">,</span> nGenes<span class="hljs-punctuation">,</span> nGenes<span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Calculate adjacencies in each individual data set</span><br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> adjacencies<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">,</span> <span class="hljs-punctuation">,</span> <span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">abs</span><span class="hljs-punctuation">(</span>bicor<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">,</span> use <span class="hljs-operator">=</span> <span class="hljs-string">&quot;p&quot;</span><span class="hljs-punctuation">,</span> maxPOutliers <span class="hljs-operator">=</span> <span class="hljs-number">0.05</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><span class="hljs-operator">^</span>softPower;<br><span class="hljs-punctuation">&#125;</span><br></code></pre></td></tr></table></figure>
  148. <h3 id="计算拓扑重叠矩阵"><a href="#计算拓扑重叠矩阵" class="headerlink" title="计算拓扑重叠矩阵"></a>计算拓扑重叠矩阵</h3><figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br></pre></td><td class="code"><pre><code class="hljs R">TOM <span class="hljs-operator">=</span> array<span class="hljs-punctuation">(</span><span class="hljs-number">0</span><span class="hljs-punctuation">,</span> <span class="hljs-built_in">dim</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span>nSets<span class="hljs-punctuation">,</span> nGenes<span class="hljs-punctuation">,</span> nGenes<span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Calculate TOMs in each individual data set</span><br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> TOM<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">,</span> <span class="hljs-punctuation">,</span> <span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> TOMsimilarity<span class="hljs-punctuation">(</span>adjacencies<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">,</span> <span class="hljs-punctuation">,</span> <span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><br><span class="hljs-punctuation">&#125;</span><br></code></pre></td></tr></table></figure>
  149. <h3 id="缩放拓扑重叠矩阵保证可比性"><a href="#缩放拓扑重叠矩阵保证可比性" class="headerlink" title="缩放拓扑重叠矩阵保证可比性"></a>缩放拓扑重叠矩阵保证可比性</h3><figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br><span class="line">13</span><br><span class="line">14</span><br><span class="line">15</span><br><span class="line">16</span><br><span class="line">17</span><br><span class="line">18</span><br><span class="line">19</span><br><span class="line">20</span><br><span class="line">21</span><br><span class="line">22</span><br><span class="line">23</span><br><span class="line">24</span><br><span class="line">25</span><br><span class="line">26</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-comment"># Define the reference percentile</span><br>scaleP <span class="hljs-operator">=</span> <span class="hljs-number">0.95</span><br><span class="hljs-comment"># Set RNG seed for reproducibility of sampling</span><br>set.seed<span class="hljs-punctuation">(</span><span class="hljs-number">12345</span><span class="hljs-punctuation">)</span><br><span class="hljs-comment"># Sample sufficiently large number of TOM entries</span><br>nSamples <span class="hljs-operator">=</span> <span class="hljs-built_in">as.integer</span><span class="hljs-punctuation">(</span><span class="hljs-number">1</span><span class="hljs-operator">/</span><span class="hljs-punctuation">(</span><span class="hljs-number">1</span><span class="hljs-operator">-</span>scaleP<span class="hljs-punctuation">)</span> <span class="hljs-operator">*</span> <span class="hljs-number">1000</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Choose the sampled TOM entries</span><br>scaleSample <span class="hljs-operator">=</span> sample<span class="hljs-punctuation">(</span>nGenes<span class="hljs-operator">*</span><span class="hljs-punctuation">(</span>nGenes<span class="hljs-operator">-</span><span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-operator">/</span><span class="hljs-number">2</span><span class="hljs-punctuation">,</span> size <span class="hljs-operator">=</span> nSamples<span class="hljs-punctuation">)</span><br>TOMScalingSamples <span class="hljs-operator">=</span> <span class="hljs-built_in">list</span><span class="hljs-punctuation">(</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># These are TOM values at reference percentile</span><br>scaleQuant <span class="hljs-operator">=</span> <span class="hljs-built_in">rep</span><span class="hljs-punctuation">(</span><span class="hljs-number">1</span><span class="hljs-punctuation">,</span> nSets<span class="hljs-punctuation">)</span><br><span class="hljs-comment"># Scaling powers to equalize reference TOM values</span><br>scalePowers <span class="hljs-operator">=</span> <span class="hljs-built_in">rep</span><span class="hljs-punctuation">(</span><span class="hljs-number">1</span><span class="hljs-punctuation">,</span> nSets<span class="hljs-punctuation">)</span><br><span class="hljs-comment"># Loop over sets</span><br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> <span class="hljs-comment"># Select the sampled TOM entries</span><br> TOMScalingSamples<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> as.dist<span class="hljs-punctuation">(</span>TOM<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">,</span> <span class="hljs-punctuation">,</span> <span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">[</span>scaleSample<span class="hljs-punctuation">]</span><br> <span class="hljs-comment"># Calculate the 95th percentile</span><br> scaleQuant<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> quantile<span class="hljs-punctuation">(</span>TOMScalingSamples<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span><br> probs <span class="hljs-operator">=</span> scaleP<span class="hljs-punctuation">,</span> type <span class="hljs-operator">=</span> <span class="hljs-number">8</span><span class="hljs-punctuation">)</span>;<br> <span class="hljs-comment"># Scale the male TOM</span><br> <span class="hljs-keyword">if</span> <span class="hljs-punctuation">(</span>set<span class="hljs-operator">&gt;</span><span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> scalePowers<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">log</span><span class="hljs-punctuation">(</span>scaleQuant<span class="hljs-punctuation">[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-operator">/</span><span class="hljs-built_in">log</span><span class="hljs-punctuation">(</span>scaleQuant<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span>;<br> TOM<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">,</span> <span class="hljs-punctuation">,</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> TOM<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">,</span> <span class="hljs-punctuation">,</span><span class="hljs-punctuation">]</span><span class="hljs-operator">^</span>scalePowers<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span>;<br> <span class="hljs-punctuation">&#125;</span><br><span class="hljs-punctuation">&#125;</span><br></code></pre></td></tr></table></figure>
  150. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br><span class="line">13</span><br><span class="line">14</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-comment"># For plotting, also scale the sampled TOM entries</span><br>scaledTOMSamples <span class="hljs-operator">=</span> <span class="hljs-built_in">list</span><span class="hljs-punctuation">(</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> scaledTOMSamples<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> TOMScalingSamples<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">^</span>scalePowers<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span><br><span class="hljs-punctuation">&#125;</span><br><span class="hljs-comment"># qq plot of the unscaled samples</span><br>qqUnscaled <span class="hljs-operator">=</span> qqplot<span class="hljs-punctuation">(</span>TOMScalingSamples<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> TOMScalingSamples<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> plot.it <span class="hljs-operator">=</span> <span class="hljs-literal">TRUE</span><span class="hljs-punctuation">,</span> cex <span class="hljs-operator">=</span> <span class="hljs-number">0.6</span><span class="hljs-punctuation">,</span><br> xlab <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;TOM in&quot;</span><span class="hljs-punctuation">,</span> setLabels<span class="hljs-punctuation">[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> ylab <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;TOM in&quot;</span><span class="hljs-punctuation">,</span> setLabels<span class="hljs-punctuation">[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> main <span class="hljs-operator">=</span> <span class="hljs-string">&quot;Q-Q plot of TOM&quot;</span><span class="hljs-punctuation">,</span> pch <span class="hljs-operator">=</span> <span class="hljs-number">20</span><span class="hljs-punctuation">)</span><br><span class="hljs-comment"># qq plot of the scaled samples</span><br>qqScaled <span class="hljs-operator">=</span> qqplot<span class="hljs-punctuation">(</span>scaledTOMSamples<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> scaledTOMSamples<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> plot.it <span class="hljs-operator">=</span> <span class="hljs-literal">FALSE</span><span class="hljs-punctuation">)</span><br>points<span class="hljs-punctuation">(</span>qqScaled<span class="hljs-operator">$</span>x<span class="hljs-punctuation">,</span> qqScaled<span class="hljs-operator">$</span>y<span class="hljs-punctuation">,</span> col <span class="hljs-operator">=</span> <span class="hljs-string">&quot;red&quot;</span><span class="hljs-punctuation">,</span> cex <span class="hljs-operator">=</span> <span class="hljs-number">0.6</span><span class="hljs-punctuation">,</span> pch <span class="hljs-operator">=</span> <span class="hljs-number">20</span><span class="hljs-punctuation">)</span>;<br>abline<span class="hljs-punctuation">(</span>a<span class="hljs-operator">=</span><span class="hljs-number">0</span><span class="hljs-punctuation">,</span> b<span class="hljs-operator">=</span><span class="hljs-number">1</span><span class="hljs-punctuation">,</span> col <span class="hljs-operator">=</span> <span class="hljs-string">&quot;blue&quot;</span><span class="hljs-punctuation">)</span><br>legend<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;topleft&quot;</span><span class="hljs-punctuation">,</span> legend <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-string">&quot;Unscaled TOM&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;Scaled TOM&quot;</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> pch <span class="hljs-operator">=</span> <span class="hljs-number">20</span><span class="hljs-punctuation">,</span> col <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-string">&quot;black&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;red&quot;</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><br></code></pre></td></tr></table></figure>
  151. <h3 id="计算共识拓扑重叠矩阵"><a href="#计算共识拓扑重叠矩阵" class="headerlink" title="计算共识拓扑重叠矩阵"></a>计算共识拓扑重叠矩阵</h3><figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br></pre></td><td class="code"><pre><code class="hljs R">consensusTOM <span class="hljs-operator">=</span> pmin<span class="hljs-punctuation">(</span>TOM<span class="hljs-punctuation">[</span><span class="hljs-number">1</span><span class="hljs-punctuation">,</span> <span class="hljs-punctuation">,</span> <span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> TOM<span class="hljs-punctuation">[</span><span class="hljs-number">2</span><span class="hljs-punctuation">,</span> <span class="hljs-punctuation">,</span> <span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><br></code></pre></td></tr></table></figure>
  152. <h3 id="聚类并鉴定网络模块"><a href="#聚类并鉴定网络模块" class="headerlink" title="聚类并鉴定网络模块"></a>聚类并鉴定网络模块</h3><figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br><span class="line">13</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-comment"># Clustering</span><br>consTree <span class="hljs-operator">=</span> hclust<span class="hljs-punctuation">(</span>as.dist<span class="hljs-punctuation">(</span><span class="hljs-number">1</span><span class="hljs-operator">-</span>consensusTOM<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> method <span class="hljs-operator">=</span> <span class="hljs-string">&quot;average&quot;</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># We like large modules, so we set the minimum module size relatively high:</span><br>minModuleSize <span class="hljs-operator">=</span> <span class="hljs-number">30</span>;<br><span class="hljs-comment"># Module identification using dynamic tree cut:</span><br>unmergedLabels <span class="hljs-operator">=</span> cutreeDynamic<span class="hljs-punctuation">(</span>dendro <span class="hljs-operator">=</span> consTree<span class="hljs-punctuation">,</span> distM <span class="hljs-operator">=</span> <span class="hljs-number">1</span><span class="hljs-operator">-</span>consensusTOM<span class="hljs-punctuation">,</span><br>deepSplit <span class="hljs-operator">=</span> <span class="hljs-number">2</span><span class="hljs-punctuation">,</span> cutHeight <span class="hljs-operator">=</span> <span class="hljs-number">0.995</span><span class="hljs-punctuation">,</span><br>minClusterSize <span class="hljs-operator">=</span> minModuleSize<span class="hljs-punctuation">,</span><br>pamRespectsDendro <span class="hljs-operator">=</span> <span class="hljs-literal">FALSE</span> <span class="hljs-punctuation">)</span>;<br>unmergedColors <span class="hljs-operator">=</span> labels2colors<span class="hljs-punctuation">(</span>unmergedLabels<span class="hljs-punctuation">)</span><br>plotDendroAndColors<span class="hljs-punctuation">(</span>consTree<span class="hljs-punctuation">,</span> unmergedColors<span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;Dynamic Tree Cut&quot;</span><span class="hljs-punctuation">,</span><br> dendroLabels <span class="hljs-operator">=</span> <span class="hljs-literal">FALSE</span><span class="hljs-punctuation">,</span> hang <span class="hljs-operator">=</span> <span class="hljs-number">0.03</span><span class="hljs-punctuation">,</span><br> addGuide <span class="hljs-operator">=</span> <span class="hljs-literal">TRUE</span><span class="hljs-punctuation">,</span> guideHang <span class="hljs-operator">=</span> <span class="hljs-number">0.05</span><span class="hljs-punctuation">)</span><br></code></pre></td></tr></table></figure>
  153. <h3 id="合并相似矩阵"><a href="#合并相似矩阵" class="headerlink" title="合并相似矩阵"></a>合并相似矩阵</h3><figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br><span class="line">13</span><br><span class="line">14</span><br><span class="line">15</span><br><span class="line">16</span><br><span class="line">17</span><br><span class="line">18</span><br><span class="line">19</span><br><span class="line">20</span><br><span class="line">21</span><br><span class="line">22</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-comment"># Calculate module eigengenes</span><br>unmergedMEs <span class="hljs-operator">=</span> multiSetMEs<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">,</span> colors <span class="hljs-operator">=</span> <span class="hljs-literal">NULL</span><span class="hljs-punctuation">,</span> universalColors <span class="hljs-operator">=</span> unmergedColors<span class="hljs-punctuation">)</span><br><span class="hljs-comment"># Calculate consensus dissimilarity of consensus module eigengenes</span><br>consMEDiss <span class="hljs-operator">=</span> consensusMEDissimilarity<span class="hljs-punctuation">(</span>unmergedMEs<span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Cluster consensus modules</span><br>consMETree <span class="hljs-operator">=</span> hclust<span class="hljs-punctuation">(</span>as.dist<span class="hljs-punctuation">(</span>consMEDiss<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> method <span class="hljs-operator">=</span> <span class="hljs-string">&quot;average&quot;</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Plot the result</span><br>par<span class="hljs-punctuation">(</span>mfrow <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">1</span><span class="hljs-punctuation">,</span><span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><br>plot<span class="hljs-punctuation">(</span>consMETree<span class="hljs-punctuation">,</span> main <span class="hljs-operator">=</span> <span class="hljs-string">&quot;Consensus clustering of consensus module eigengenes&quot;</span><span class="hljs-punctuation">,</span><br> xlab <span class="hljs-operator">=</span> <span class="hljs-string">&quot;&quot;</span><span class="hljs-punctuation">,</span> sub <span class="hljs-operator">=</span> <span class="hljs-string">&quot;&quot;</span><span class="hljs-punctuation">)</span><br>abline<span class="hljs-punctuation">(</span>h<span class="hljs-operator">=</span><span class="hljs-number">0.25</span><span class="hljs-punctuation">,</span> col <span class="hljs-operator">=</span> <span class="hljs-string">&quot;red&quot;</span><span class="hljs-punctuation">)</span><br>merge <span class="hljs-operator">=</span> mergeCloseModules<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">,</span> unmergedLabels<span class="hljs-punctuation">,</span> cutHeight <span class="hljs-operator">=</span> <span class="hljs-number">0.25</span><span class="hljs-punctuation">,</span> verbose <span class="hljs-operator">=</span> <span class="hljs-number">3</span><span class="hljs-punctuation">)</span><br><span class="hljs-comment"># Numeric module labels</span><br>moduleLabels <span class="hljs-operator">=</span> merge<span class="hljs-operator">$</span>colors;<br><span class="hljs-comment"># Convert labels to colors</span><br>moduleColors <span class="hljs-operator">=</span> labels2colors<span class="hljs-punctuation">(</span>moduleLabels<span class="hljs-punctuation">)</span><br><span class="hljs-comment"># Eigengenes of the new merged modules:</span><br>consMEs <span class="hljs-operator">=</span> merge<span class="hljs-operator">$</span>newMEs<br>plotDendroAndColors<span class="hljs-punctuation">(</span>consTree<span class="hljs-punctuation">,</span> cbind<span class="hljs-punctuation">(</span>unmergedColors<span class="hljs-punctuation">,</span> moduleColors<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-string">&quot;Unmerged&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;Merged&quot;</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> dendroLabels <span class="hljs-operator">=</span> <span class="hljs-literal">FALSE</span><span class="hljs-punctuation">,</span> hang <span class="hljs-operator">=</span> <span class="hljs-number">0.03</span><span class="hljs-punctuation">,</span><br> addGuide <span class="hljs-operator">=</span> <span class="hljs-literal">TRUE</span><span class="hljs-punctuation">,</span> guideHang <span class="hljs-operator">=</span> <span class="hljs-number">0.05</span><span class="hljs-punctuation">)</span><br></code></pre></td></tr></table></figure>
  154. <h2 id="关联共识网络模块与普通网络模块"><a href="#关联共识网络模块与普通网络模块" class="headerlink" title="关联共识网络模块与普通网络模块"></a>关联共识网络模块与普通网络模块</h2><p><a target="_blank" rel="noopener" href="https://limour.top/1929.html">WGCNA:官方教程学习之网络分析</a>中获得了普通网络模块,将其导出</p>
  155. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-comment"># Rename variables to avoid conflicts</span><br>femaleLabels <span class="hljs-operator">=</span> moduleLabels;<br>femaleColors <span class="hljs-operator">=</span> moduleColors;<br>femaleTree <span class="hljs-operator">=</span> geneTree;<br>femaleMEs <span class="hljs-operator">=</span> orderMEs<span class="hljs-punctuation">(</span>MEs<span class="hljs-punctuation">,</span> greyName <span class="hljs-operator">=</span> <span class="hljs-string">&quot;ME0&quot;</span><span class="hljs-punctuation">)</span>;<br>save<span class="hljs-punctuation">(</span>femaleMEs<span class="hljs-punctuation">,</span> femaleLabels<span class="hljs-punctuation">,</span> femaleColors<span class="hljs-punctuation">,</span> femaleTree<span class="hljs-punctuation">,</span><br> file <span class="hljs-operator">=</span> <span class="hljs-string">&quot;FemaleLiver-02-networkConstruction.RData&quot;</span><span class="hljs-punctuation">)</span><br></code></pre></td></tr></table></figure>
  156. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br></pre></td><td class="code"><pre><code class="hljs R">lnames <span class="hljs-operator">=</span> load<span class="hljs-punctuation">(</span><span class="hljs-string">&#x27;FemaleLiver-02-networkConstruction.RData&#x27;</span><span class="hljs-punctuation">)</span><br>lnames<br></code></pre></td></tr></table></figure>
  157. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br><span class="line">13</span><br><span class="line">14</span><br><span class="line">15</span><br><span class="line">16</span><br><span class="line">17</span><br><span class="line">18</span><br><span class="line">19</span><br><span class="line">20</span><br><span class="line">21</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-comment"># Isolate the module labels in the order they appear in ordered module eigengenes</span><br>femModuleLabels <span class="hljs-operator">=</span> substring<span class="hljs-punctuation">(</span><span class="hljs-built_in">names</span><span class="hljs-punctuation">(</span>femaleMEs<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> <span class="hljs-number">3</span><span class="hljs-punctuation">)</span><br>consModuleLabels <span class="hljs-operator">=</span> substring<span class="hljs-punctuation">(</span><span class="hljs-built_in">names</span><span class="hljs-punctuation">(</span>consMEs<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> <span class="hljs-number">3</span><span class="hljs-punctuation">)</span><br><span class="hljs-comment"># Convert the numeric module labels to color labels</span><br>femModules <span class="hljs-operator">=</span> femModuleLabels<br>consModules <span class="hljs-operator">=</span> labels2colors<span class="hljs-punctuation">(</span><span class="hljs-built_in">as.numeric</span><span class="hljs-punctuation">(</span>consModuleLabels<span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><br><span class="hljs-comment"># Numbers of female and consensus modules</span><br>nFemMods <span class="hljs-operator">=</span> <span class="hljs-built_in">length</span><span class="hljs-punctuation">(</span>femModules<span class="hljs-punctuation">)</span><br>nConsMods <span class="hljs-operator">=</span> <span class="hljs-built_in">length</span><span class="hljs-punctuation">(</span>consModules<span class="hljs-punctuation">)</span><br><span class="hljs-comment"># Initialize tables of p-values and of the corresponding counts</span><br>pTable <span class="hljs-operator">=</span> matrix<span class="hljs-punctuation">(</span><span class="hljs-number">0</span><span class="hljs-punctuation">,</span> nrow <span class="hljs-operator">=</span> nFemMods<span class="hljs-punctuation">,</span> ncol <span class="hljs-operator">=</span> nConsMods<span class="hljs-punctuation">)</span>;<br>CountTbl <span class="hljs-operator">=</span> matrix<span class="hljs-punctuation">(</span><span class="hljs-number">0</span><span class="hljs-punctuation">,</span> nrow <span class="hljs-operator">=</span> nFemMods<span class="hljs-punctuation">,</span> ncol <span class="hljs-operator">=</span> nConsMods<span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Execute all pairwaise comparisons</span><br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>fmod <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nFemMods<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> <span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>cmod <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nConsMods<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> femMembers <span class="hljs-operator">=</span> <span class="hljs-punctuation">(</span>femaleColors <span class="hljs-operator">==</span> femModules<span class="hljs-punctuation">[</span>fmod<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span>;<br> consMembers <span class="hljs-operator">=</span> <span class="hljs-punctuation">(</span>moduleColors <span class="hljs-operator">==</span> consModules<span class="hljs-punctuation">[</span>cmod<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span>;<br> pTable<span class="hljs-punctuation">[</span>fmod<span class="hljs-punctuation">,</span> cmod<span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> <span class="hljs-operator">-</span>log10<span class="hljs-punctuation">(</span>fisher.test<span class="hljs-punctuation">(</span>femMembers<span class="hljs-punctuation">,</span> consMembers<span class="hljs-punctuation">,</span> alternative <span class="hljs-operator">=</span> <span class="hljs-string">&quot;greater&quot;</span><span class="hljs-punctuation">)</span><span class="hljs-operator">$</span>p.value<span class="hljs-punctuation">)</span>;<br> CountTbl<span class="hljs-punctuation">[</span>fmod<span class="hljs-punctuation">,</span> cmod<span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">sum</span><span class="hljs-punctuation">(</span>femaleColors <span class="hljs-operator">==</span> femModules<span class="hljs-punctuation">[</span>fmod<span class="hljs-punctuation">]</span> <span class="hljs-operator">&amp;</span> moduleColors <span class="hljs-operator">==</span> consModules<span class="hljs-punctuation">[</span>cmod<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><br> <span class="hljs-punctuation">&#125;</span><br><span class="hljs-punctuation">&#125;</span><br></code></pre></td></tr></table></figure>
  158. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br><span class="line">13</span><br><span class="line">14</span><br><span class="line">15</span><br><span class="line">16</span><br><span class="line">17</span><br><span class="line">18</span><br><span class="line">19</span><br><span class="line">20</span><br><span class="line">21</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-comment"># Truncate p values smaller than 10^&#123;-50&#125; to 10^&#123;-50&#125;</span><br>pTable<span class="hljs-punctuation">[</span><span class="hljs-built_in">is.infinite</span><span class="hljs-punctuation">(</span>pTable<span class="hljs-punctuation">)</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> <span class="hljs-number">1.3</span><span class="hljs-operator">*</span><span class="hljs-built_in">max</span><span class="hljs-punctuation">(</span>pTable<span class="hljs-punctuation">[</span><span class="hljs-built_in">is.finite</span><span class="hljs-punctuation">(</span>pTable<span class="hljs-punctuation">)</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span>;<br>pTable<span class="hljs-punctuation">[</span>pTable<span class="hljs-operator">&gt;</span><span class="hljs-number">50</span> <span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> <span class="hljs-number">50</span> ;<br><span class="hljs-comment"># Marginal counts (really module sizes)</span><br>femModTotals <span class="hljs-operator">=</span> apply<span class="hljs-punctuation">(</span>CountTbl<span class="hljs-punctuation">,</span> <span class="hljs-number">1</span><span class="hljs-punctuation">,</span> <span class="hljs-built_in">sum</span><span class="hljs-punctuation">)</span><br>consModTotals <span class="hljs-operator">=</span> apply<span class="hljs-punctuation">(</span>CountTbl<span class="hljs-punctuation">,</span> <span class="hljs-number">2</span><span class="hljs-punctuation">,</span> <span class="hljs-built_in">sum</span><span class="hljs-punctuation">)</span><br><span class="hljs-comment">#pdf(file = &quot;Plots/ConsensusVsFemaleModules.pdf&quot;, wi = 10, he = 7);</span><br>par<span class="hljs-punctuation">(</span>mfrow<span class="hljs-operator">=</span><span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">1</span><span class="hljs-punctuation">,</span><span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span>;<br>par<span class="hljs-punctuation">(</span>cex <span class="hljs-operator">=</span> <span class="hljs-number">1.0</span><span class="hljs-punctuation">)</span>;<br>par<span class="hljs-punctuation">(</span>mar<span class="hljs-operator">=</span><span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">8</span><span class="hljs-punctuation">,</span> <span class="hljs-number">10.4</span><span class="hljs-punctuation">,</span> <span class="hljs-number">2.7</span><span class="hljs-punctuation">,</span> <span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-operator">+</span><span class="hljs-number">0.3</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Use function labeledHeatmap to produce the color-coded table with all the trimmings</span><br>labeledHeatmap<span class="hljs-punctuation">(</span>Matrix <span class="hljs-operator">=</span> pTable<span class="hljs-punctuation">,</span><br>xLabels <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-string">&quot; &quot;</span><span class="hljs-punctuation">,</span> consModules<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br>yLabels <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-string">&quot; &quot;</span><span class="hljs-punctuation">,</span> femModules<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br>colorLabels <span class="hljs-operator">=</span> <span class="hljs-literal">TRUE</span><span class="hljs-punctuation">,</span><br>xSymbols <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;Cons &quot;</span><span class="hljs-punctuation">,</span> consModules<span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;: &quot;</span><span class="hljs-punctuation">,</span> consModTotals<span class="hljs-punctuation">,</span> sep<span class="hljs-operator">=</span><span class="hljs-string">&quot;&quot;</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br>ySymbols <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;Fem &quot;</span><span class="hljs-punctuation">,</span> femModules<span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;: &quot;</span><span class="hljs-punctuation">,</span> femModTotals<span class="hljs-punctuation">,</span> sep<span class="hljs-operator">=</span><span class="hljs-string">&quot;&quot;</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br>textMatrix <span class="hljs-operator">=</span> CountTbl<span class="hljs-punctuation">,</span><br>colors <span class="hljs-operator">=</span> blueWhiteRed<span class="hljs-punctuation">(</span><span class="hljs-number">100</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">[</span><span class="hljs-number">50</span><span class="hljs-operator">:</span><span class="hljs-number">100</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span><br>main <span class="hljs-operator">=</span> <span class="hljs-string">&quot;Correspondence of Female set-specific and Female-Male consensus modules&quot;</span><span class="hljs-punctuation">,</span><br>cex.text <span class="hljs-operator">=</span> <span class="hljs-number">1.0</span><span class="hljs-punctuation">,</span> cex.lab <span class="hljs-operator">=</span> <span class="hljs-number">1.0</span><span class="hljs-punctuation">,</span> setStdMargins <span class="hljs-operator">=</span> <span class="hljs-literal">FALSE</span><span class="hljs-punctuation">)</span>;<br></code></pre></td></tr></table></figure>
  159. <h2 id="共识模块、基因、性状三者互相关联"><a href="#共识模块、基因、性状三者互相关联" class="headerlink" title="共识模块、基因、性状三者互相关联"></a>共识模块、基因、性状三者互相关联</h2><h3 id="关联网络模块与性状"><a href="#关联网络模块与性状" class="headerlink" title="关联网络模块与性状"></a>关联网络模块与性状</h3><figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-comment"># Set up variables to contain the module-trait correlations</span><br>moduleTraitCor <span class="hljs-operator">=</span> <span class="hljs-built_in">list</span><span class="hljs-punctuation">(</span><span class="hljs-punctuation">)</span>;<br>moduleTraitPvalue <span class="hljs-operator">=</span> <span class="hljs-built_in">list</span><span class="hljs-punctuation">(</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Calculate the correlations</span><br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> moduleTraitCor<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> cor<span class="hljs-punctuation">(</span>consMEs<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">,</span> Traits<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">,</span> use <span class="hljs-operator">=</span> <span class="hljs-string">&quot;p&quot;</span><span class="hljs-punctuation">)</span>;<br> moduleTraitPvalue<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> corPvalueFisher<span class="hljs-punctuation">(</span>moduleTraitCor<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> exprSize<span class="hljs-operator">$</span>nSamples<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-punctuation">&#125;</span><br><span class="hljs-comment"># Convert numerical lables to colors for labeling of modules in the plot</span><br>MEColors <span class="hljs-operator">=</span> labels2colors<span class="hljs-punctuation">(</span><span class="hljs-built_in">as.numeric</span><span class="hljs-punctuation">(</span>substring<span class="hljs-punctuation">(</span><span class="hljs-built_in">names</span><span class="hljs-punctuation">(</span>consMEs<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> <span class="hljs-number">3</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span>;<br>MEColorNames <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;ME&quot;</span><span class="hljs-punctuation">,</span> MEColors<span class="hljs-punctuation">,</span> sep<span class="hljs-operator">=</span><span class="hljs-string">&quot;&quot;</span><span class="hljs-punctuation">)</span>;<br></code></pre></td></tr></table></figure>
  160. <h3 id="可视化"><a href="#可视化" class="headerlink" title="可视化"></a>可视化</h3><figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br><span class="line">13</span><br><span class="line">14</span><br><span class="line">15</span><br><span class="line">16</span><br></pre></td><td class="code"><pre><code class="hljs R">set <span class="hljs-operator">=</span> <span class="hljs-number">1</span><br>textMatrix <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-built_in">signif</span><span class="hljs-punctuation">(</span>moduleTraitCor<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> <span class="hljs-number">2</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;\n(&quot;</span><span class="hljs-punctuation">,</span><br><span class="hljs-built_in">signif</span><span class="hljs-punctuation">(</span>moduleTraitPvalue<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> <span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;)&quot;</span><span class="hljs-punctuation">,</span> sep <span class="hljs-operator">=</span> <span class="hljs-string">&quot;&quot;</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-built_in">dim</span><span class="hljs-punctuation">(</span>textMatrix<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">dim</span><span class="hljs-punctuation">(</span>moduleTraitCor<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><br>par<span class="hljs-punctuation">(</span>mar <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">6</span><span class="hljs-punctuation">,</span> <span class="hljs-number">8.8</span><span class="hljs-punctuation">,</span> <span class="hljs-number">3</span><span class="hljs-punctuation">,</span> <span class="hljs-number">2.2</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span>;<br>labeledHeatmap<span class="hljs-punctuation">(</span>Matrix <span class="hljs-operator">=</span> moduleTraitCor<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span><br> xLabels <span class="hljs-operator">=</span> <span class="hljs-built_in">names</span><span class="hljs-punctuation">(</span>Traits<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> yLabels <span class="hljs-operator">=</span> MEColorNames<span class="hljs-punctuation">,</span><br> ySymbols <span class="hljs-operator">=</span> MEColorNames<span class="hljs-punctuation">,</span><br> colorLabels <span class="hljs-operator">=</span> <span class="hljs-literal">FALSE</span><span class="hljs-punctuation">,</span><br> colors <span class="hljs-operator">=</span> blueWhiteRed<span class="hljs-punctuation">(</span><span class="hljs-number">50</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> textMatrix <span class="hljs-operator">=</span> textMatrix<span class="hljs-punctuation">,</span><br> setStdMargins <span class="hljs-operator">=</span> <span class="hljs-literal">FALSE</span><span class="hljs-punctuation">,</span><br> cex.text <span class="hljs-operator">=</span> <span class="hljs-number">0.5</span><span class="hljs-punctuation">,</span><br> zlim <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-operator">-</span><span class="hljs-number">1</span><span class="hljs-punctuation">,</span><span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> main <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;Module--trait relationships in&quot;</span><span class="hljs-punctuation">,</span> setLabels<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><br></code></pre></td></tr></table></figure>
  161. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br><span class="line">13</span><br><span class="line">14</span><br><span class="line">15</span><br><span class="line">16</span><br></pre></td><td class="code"><pre><code class="hljs R">set <span class="hljs-operator">=</span> <span class="hljs-number">2</span><br>textMatrix <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-built_in">signif</span><span class="hljs-punctuation">(</span>moduleTraitCor<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> <span class="hljs-number">2</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;\n(&quot;</span><span class="hljs-punctuation">,</span><br><span class="hljs-built_in">signif</span><span class="hljs-punctuation">(</span>moduleTraitPvalue<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> <span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;)&quot;</span><span class="hljs-punctuation">,</span> sep <span class="hljs-operator">=</span> <span class="hljs-string">&quot;&quot;</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-built_in">dim</span><span class="hljs-punctuation">(</span>textMatrix<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">dim</span><span class="hljs-punctuation">(</span>moduleTraitCor<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><br>par<span class="hljs-punctuation">(</span>mar <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">6</span><span class="hljs-punctuation">,</span> <span class="hljs-number">8.8</span><span class="hljs-punctuation">,</span> <span class="hljs-number">3</span><span class="hljs-punctuation">,</span> <span class="hljs-number">2.2</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span>;<br>labeledHeatmap<span class="hljs-punctuation">(</span>Matrix <span class="hljs-operator">=</span> moduleTraitCor<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span><br> xLabels <span class="hljs-operator">=</span> <span class="hljs-built_in">names</span><span class="hljs-punctuation">(</span>Traits<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> yLabels <span class="hljs-operator">=</span> MEColorNames<span class="hljs-punctuation">,</span><br> ySymbols <span class="hljs-operator">=</span> MEColorNames<span class="hljs-punctuation">,</span><br> colorLabels <span class="hljs-operator">=</span> <span class="hljs-literal">FALSE</span><span class="hljs-punctuation">,</span><br> colors <span class="hljs-operator">=</span> blueWhiteRed<span class="hljs-punctuation">(</span><span class="hljs-number">50</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> textMatrix <span class="hljs-operator">=</span> textMatrix<span class="hljs-punctuation">,</span><br> setStdMargins <span class="hljs-operator">=</span> <span class="hljs-literal">FALSE</span><span class="hljs-punctuation">,</span><br> cex.text <span class="hljs-operator">=</span> <span class="hljs-number">0.5</span><span class="hljs-punctuation">,</span><br> zlim <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-operator">-</span><span class="hljs-number">1</span><span class="hljs-punctuation">,</span><span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> main <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;Module--trait relationships in&quot;</span><span class="hljs-punctuation">,</span> setLabels<span class="hljs-punctuation">[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><br></code></pre></td></tr></table></figure>
  162. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-comment"># Initialize matrices to hold the consensus correlation and p-value</span><br>consensusCor <span class="hljs-operator">=</span> matrix<span class="hljs-punctuation">(</span><span class="hljs-literal">NA</span><span class="hljs-punctuation">,</span> nrow<span class="hljs-punctuation">(</span>moduleTraitCor<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> ncol<span class="hljs-punctuation">(</span>moduleTraitCor<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span>;<br>consensusPvalue <span class="hljs-operator">=</span> matrix<span class="hljs-punctuation">(</span><span class="hljs-literal">NA</span><span class="hljs-punctuation">,</span> nrow<span class="hljs-punctuation">(</span>moduleTraitCor<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> ncol<span class="hljs-punctuation">(</span>moduleTraitCor<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Find consensus negative correlations</span><br>negative <span class="hljs-operator">=</span> moduleTraitCor<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">&lt;</span> <span class="hljs-number">0</span> <span class="hljs-operator">&amp;</span> moduleTraitCor<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">&lt;</span> <span class="hljs-number">0</span>;<br>consensusCor<span class="hljs-punctuation">[</span>negative<span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> pmax<span class="hljs-punctuation">(</span>moduleTraitCor<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">[</span>negative<span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> moduleTraitCor<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">[</span>negative<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span>;<br>consensusPvalue<span class="hljs-punctuation">[</span>negative<span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> pmax<span class="hljs-punctuation">(</span>moduleTraitPvalue<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">[</span>negative<span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> moduleTraitPvalue<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">[</span>negative<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># Find consensus positive correlations</span><br>positive <span class="hljs-operator">=</span> moduleTraitCor<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">&gt;</span> <span class="hljs-number">0</span> <span class="hljs-operator">&amp;</span> moduleTraitCor<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">&gt;</span> <span class="hljs-number">0</span>;<br>consensusCor<span class="hljs-punctuation">[</span>positive<span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> pmin<span class="hljs-punctuation">(</span>moduleTraitCor<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">[</span>positive<span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> moduleTraitCor<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">[</span>positive<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span>;<br>consensusPvalue<span class="hljs-punctuation">[</span>positive<span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> pmax<span class="hljs-punctuation">(</span>moduleTraitPvalue<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">[</span>positive<span class="hljs-punctuation">]</span><span class="hljs-punctuation">,</span> moduleTraitPvalue<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">[</span>positive<span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span>;<br></code></pre></td></tr></table></figure>
  163. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br><span class="line">13</span><br><span class="line">14</span><br><span class="line">15</span><br><span class="line">16</span><br><span class="line">17</span><br></pre></td><td class="code"><pre><code class="hljs R">textMatrix <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-built_in">signif</span><span class="hljs-punctuation">(</span>consensusCor<span class="hljs-punctuation">,</span> <span class="hljs-number">2</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;\n(&quot;</span><span class="hljs-punctuation">,</span><br><span class="hljs-built_in">signif</span><span class="hljs-punctuation">(</span>consensusPvalue<span class="hljs-punctuation">,</span> <span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;)&quot;</span><span class="hljs-punctuation">,</span> sep <span class="hljs-operator">=</span> <span class="hljs-string">&quot;&quot;</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-built_in">dim</span><span class="hljs-punctuation">(</span>textMatrix<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">dim</span><span class="hljs-punctuation">(</span>moduleTraitCor<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">)</span><br><span class="hljs-comment">#pdf(file = &quot;Plots/ModuleTraitRelationships-consensus.pdf&quot;, wi = 10, he = 7);</span><br>par<span class="hljs-punctuation">(</span>mar <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">6</span><span class="hljs-punctuation">,</span> <span class="hljs-number">8.8</span><span class="hljs-punctuation">,</span> <span class="hljs-number">3</span><span class="hljs-punctuation">,</span> <span class="hljs-number">2.2</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span>;<br>labeledHeatmap<span class="hljs-punctuation">(</span>Matrix <span class="hljs-operator">=</span> consensusCor<span class="hljs-punctuation">,</span><br> xLabels <span class="hljs-operator">=</span> <span class="hljs-built_in">names</span><span class="hljs-punctuation">(</span>Traits<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> yLabels <span class="hljs-operator">=</span> MEColorNames<span class="hljs-punctuation">,</span><br> ySymbols <span class="hljs-operator">=</span> MEColorNames<span class="hljs-punctuation">,</span><br> colorLabels <span class="hljs-operator">=</span> <span class="hljs-literal">FALSE</span><span class="hljs-punctuation">,</span><br> colors <span class="hljs-operator">=</span> blueWhiteRed<span class="hljs-punctuation">(</span><span class="hljs-number">50</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> textMatrix <span class="hljs-operator">=</span> textMatrix<span class="hljs-punctuation">,</span><br> setStdMargins <span class="hljs-operator">=</span> <span class="hljs-literal">FALSE</span><span class="hljs-punctuation">,</span><br> cex.text <span class="hljs-operator">=</span> <span class="hljs-number">0.5</span><span class="hljs-punctuation">,</span><br> zlim <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-operator">-</span><span class="hljs-number">1</span><span class="hljs-punctuation">,</span><span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> main <span class="hljs-operator">=</span> paste<span class="hljs-punctuation">(</span><span class="hljs-string">&quot;Consensus module--trait relationships across\n&quot;</span><span class="hljs-punctuation">,</span><br> paste<span class="hljs-punctuation">(</span>setLabels<span class="hljs-punctuation">,</span> collapse <span class="hljs-operator">=</span> <span class="hljs-string">&quot; and &quot;</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><br></code></pre></td></tr></table></figure>
  164. <h3 id="导出结果"><a href="#导出结果" class="headerlink" title="导出结果"></a>导出结果</h3><figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br><span class="line">13</span><br><span class="line">14</span><br><span class="line">15</span><br><span class="line">16</span><br><span class="line">17</span><br><span class="line">18</span><br><span class="line">19</span><br><span class="line">20</span><br><span class="line">21</span><br><span class="line">22</span><br><span class="line">23</span><br><span class="line">24</span><br><span class="line">25</span><br><span class="line">26</span><br><span class="line">27</span><br><span class="line">28</span><br><span class="line">29</span><br><span class="line">30</span><br></pre></td><td class="code"><pre><code class="hljs R">probes <span class="hljs-operator">=</span> <span class="hljs-built_in">names</span><span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span><br>consMEs.unord <span class="hljs-operator">=</span> multiSetMEs<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">,</span> universalColors <span class="hljs-operator">=</span> moduleLabels<span class="hljs-punctuation">,</span> excludeGrey <span class="hljs-operator">=</span> <span class="hljs-literal">TRUE</span><span class="hljs-punctuation">)</span><br>GS <span class="hljs-operator">=</span> <span class="hljs-built_in">list</span><span class="hljs-punctuation">(</span><span class="hljs-punctuation">)</span>;<br>kME <span class="hljs-operator">=</span> <span class="hljs-built_in">list</span><span class="hljs-punctuation">(</span><span class="hljs-punctuation">)</span>;<br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><br><span class="hljs-punctuation">&#123;</span><br>GS<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> corAndPvalue<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">,</span> Traits<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span>;<br>kME<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> corAndPvalue<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">,</span> consMEs.unord<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span>;<br><span class="hljs-punctuation">&#125;</span><br>GS.metaZ <span class="hljs-operator">=</span> <span class="hljs-punctuation">(</span>GS<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>Z <span class="hljs-operator">+</span> GS<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>Z<span class="hljs-punctuation">)</span><span class="hljs-operator">/</span><span class="hljs-built_in">sqrt</span><span class="hljs-punctuation">(</span><span class="hljs-number">2</span><span class="hljs-punctuation">)</span>;<br>kME.metaZ <span class="hljs-operator">=</span> <span class="hljs-punctuation">(</span>kME<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>Z <span class="hljs-operator">+</span> kME<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>Z<span class="hljs-punctuation">)</span><span class="hljs-operator">/</span><span class="hljs-built_in">sqrt</span><span class="hljs-punctuation">(</span><span class="hljs-number">2</span><span class="hljs-punctuation">)</span>;<br>GS.metaP <span class="hljs-operator">=</span> <span class="hljs-number">2</span><span class="hljs-operator">*</span>pnorm<span class="hljs-punctuation">(</span><span class="hljs-built_in">abs</span><span class="hljs-punctuation">(</span>GS.metaZ<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> lower.tail <span class="hljs-operator">=</span> <span class="hljs-literal">FALSE</span><span class="hljs-punctuation">)</span>;<br>kME.metaP <span class="hljs-operator">=</span> <span class="hljs-number">2</span><span class="hljs-operator">*</span>pnorm<span class="hljs-punctuation">(</span><span class="hljs-built_in">abs</span><span class="hljs-punctuation">(</span>kME.metaZ<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> lower.tail <span class="hljs-operator">=</span> <span class="hljs-literal">FALSE</span><span class="hljs-punctuation">)</span>;<br>GSmat <span class="hljs-operator">=</span> rbind<span class="hljs-punctuation">(</span>GS<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>cor<span class="hljs-punctuation">,</span> GS<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>cor<span class="hljs-punctuation">,</span> GS<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>p<span class="hljs-punctuation">,</span> GS<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>p<span class="hljs-punctuation">,</span> GS.metaZ<span class="hljs-punctuation">,</span> GS.metaP<span class="hljs-punctuation">)</span>;<br>nTraits <span class="hljs-operator">=</span> checkSets<span class="hljs-punctuation">(</span>Traits<span class="hljs-punctuation">)</span><span class="hljs-operator">$</span>nGenes<br>traitNames <span class="hljs-operator">=</span> colnames<span class="hljs-punctuation">(</span>Traits<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span><br><span class="hljs-built_in">dim</span><span class="hljs-punctuation">(</span>GSmat<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span>nGenes<span class="hljs-punctuation">,</span> <span class="hljs-number">6</span><span class="hljs-operator">*</span>nTraits<span class="hljs-punctuation">)</span><br>rownames<span class="hljs-punctuation">(</span>GSmat<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> probes;<br>colnames<span class="hljs-punctuation">(</span>GSmat<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> spaste<span class="hljs-punctuation">(</span><br><span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-string">&quot;GS.set1.&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;GS.set2.&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;p.GS.set1.&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;p.GS.set2.&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;Z.GS.meta.&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;p.GS.meta&quot;</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br><span class="hljs-built_in">rep</span><span class="hljs-punctuation">(</span>traitNames<span class="hljs-punctuation">,</span> <span class="hljs-built_in">rep</span><span class="hljs-punctuation">(</span><span class="hljs-number">6</span><span class="hljs-punctuation">,</span> nTraits<span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><br><span class="hljs-comment"># Same code for kME:</span><br>kMEmat <span class="hljs-operator">=</span> rbind<span class="hljs-punctuation">(</span>kME<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>cor<span class="hljs-punctuation">,</span> kME<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>cor<span class="hljs-punctuation">,</span> kME<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>p<span class="hljs-punctuation">,</span> kME<span class="hljs-punctuation">[[</span><span class="hljs-number">2</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>p<span class="hljs-punctuation">,</span> kME.metaZ<span class="hljs-punctuation">,</span> kME.metaP<span class="hljs-punctuation">)</span>;<br>MEnames <span class="hljs-operator">=</span> colnames<span class="hljs-punctuation">(</span>consMEs.unord<span class="hljs-punctuation">[[</span><span class="hljs-number">1</span><span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span>;<br>nMEs <span class="hljs-operator">=</span> checkSets<span class="hljs-punctuation">(</span>consMEs.unord<span class="hljs-punctuation">)</span><span class="hljs-operator">$</span>nGenes<br><span class="hljs-built_in">dim</span><span class="hljs-punctuation">(</span>kMEmat<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span>nGenes<span class="hljs-punctuation">,</span> <span class="hljs-number">6</span><span class="hljs-operator">*</span>nMEs<span class="hljs-punctuation">)</span><br>rownames<span class="hljs-punctuation">(</span>kMEmat<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> probes;<br>colnames<span class="hljs-punctuation">(</span>kMEmat<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> spaste<span class="hljs-punctuation">(</span><br><span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-string">&quot;kME.set1.&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;kME.set2.&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;p.kME.set1.&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;p.kME.set2.&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;Z.kME.meta.&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-string">&quot;p.kME.meta&quot;</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br><span class="hljs-built_in">rep</span><span class="hljs-punctuation">(</span>MEnames<span class="hljs-punctuation">,</span> <span class="hljs-built_in">rep</span><span class="hljs-punctuation">(</span><span class="hljs-number">6</span><span class="hljs-punctuation">,</span> nMEs<span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span><br></code></pre></td></tr></table></figure>
  165. <figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br></pre></td><td class="code"><pre><code class="hljs R">info <span class="hljs-operator">=</span> data.frame<span class="hljs-punctuation">(</span>Probe <span class="hljs-operator">=</span> probes<span class="hljs-punctuation">,</span><br> ModuleLabel <span class="hljs-operator">=</span> moduleLabels<span class="hljs-punctuation">,</span><br> ModuleColor <span class="hljs-operator">=</span> labels2colors<span class="hljs-punctuation">(</span>moduleLabels<span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> GSmat<span class="hljs-punctuation">,</span><br> kMEmat<span class="hljs-punctuation">)</span>;<br>info<br></code></pre></td></tr></table></figure>
  166. <h2 id="比较两者的WGCNA网络"><a href="#比较两者的WGCNA网络" class="headerlink" title="比较两者的WGCNA网络"></a>比较两者的WGCNA网络</h2><figure class="highlight r"><table><tr><td class="gutter"><pre><span class="line">1</span><br><span class="line">2</span><br><span class="line">3</span><br><span class="line">4</span><br><span class="line">5</span><br><span class="line">6</span><br><span class="line">7</span><br><span class="line">8</span><br><span class="line">9</span><br><span class="line">10</span><br><span class="line">11</span><br><span class="line">12</span><br></pre></td><td class="code"><pre><code class="hljs R"><span class="hljs-comment"># Create a variable weight that will hold just the body weight of mice in both sets</span><br>weight <span class="hljs-operator">=</span> vector<span class="hljs-punctuation">(</span>mode <span class="hljs-operator">=</span> <span class="hljs-string">&quot;list&quot;</span><span class="hljs-punctuation">,</span> <span class="hljs-built_in">length</span> <span class="hljs-operator">=</span> nSets<span class="hljs-punctuation">)</span>;<br><span class="hljs-keyword">for</span> <span class="hljs-punctuation">(</span>set <span class="hljs-keyword">in</span> <span class="hljs-number">1</span><span class="hljs-operator">:</span>nSets<span class="hljs-punctuation">)</span><span class="hljs-punctuation">&#123;</span><br> weight<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span> <span class="hljs-operator">=</span> <span class="hljs-built_in">list</span><span class="hljs-punctuation">(</span>data <span class="hljs-operator">=</span> as.data.frame<span class="hljs-punctuation">(</span>Traits<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-operator">$</span>weight_g<span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span>;<br> <span class="hljs-built_in">names</span><span class="hljs-punctuation">(</span>weight<span class="hljs-punctuation">[[</span>set<span class="hljs-punctuation">]</span><span class="hljs-punctuation">]</span><span class="hljs-operator">$</span>data<span class="hljs-punctuation">)</span> <span class="hljs-operator">=</span> <span class="hljs-string">&quot;weight&quot;</span><br><span class="hljs-punctuation">&#125;</span><br><span class="hljs-comment"># Recalculate consMEs to give them color names</span><br>consMEsC <span class="hljs-operator">=</span> multiSetMEs<span class="hljs-punctuation">(</span>multiExpr<span class="hljs-punctuation">,</span> universalColors <span class="hljs-operator">=</span> moduleColors<span class="hljs-punctuation">)</span>;<br><span class="hljs-comment"># We add the weight trait to the eigengenes and order them by consesus hierarchical clustering:</span><br>MET <span class="hljs-operator">=</span> consensusOrderMEs<span class="hljs-punctuation">(</span>addTraitToMEs<span class="hljs-punctuation">(</span>consMEsC<span class="hljs-punctuation">,</span> weight<span class="hljs-punctuation">)</span><span class="hljs-punctuation">)</span>;<br>plotEigengeneNetworks<span class="hljs-punctuation">(</span>MET<span class="hljs-punctuation">,</span> setLabels<span class="hljs-punctuation">,</span> marDendro <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">0</span><span class="hljs-punctuation">,</span><span class="hljs-number">2</span><span class="hljs-punctuation">,</span><span class="hljs-number">2</span><span class="hljs-punctuation">,</span><span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> marHeatmap <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">3</span><span class="hljs-punctuation">,</span><span class="hljs-number">3</span><span class="hljs-punctuation">,</span><span class="hljs-number">2</span><span class="hljs-punctuation">,</span><span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span><br> zlimPreservation <span class="hljs-operator">=</span> <span class="hljs-built_in">c</span><span class="hljs-punctuation">(</span><span class="hljs-number">0.5</span><span class="hljs-punctuation">,</span> <span class="hljs-number">1</span><span class="hljs-punctuation">)</span><span class="hljs-punctuation">,</span> xLabelsAngle <span class="hljs-operator">=</span> <span class="hljs-number">90</span><span class="hljs-punctuation">)</span><br></code></pre></td></tr></table></figure>
  167. <p><img src="https://img-cdn.limour.top/2022/07/24/62dd26613e05f.png" srcset="https://jscdn.limour.top/gh/Limour-dev/Sakurairo_Vision/load_svg/inload.svg" lazyload></p>
  168. </div>
  169. <hr/>
  170. <div>
  171. <div class="post-metas my-3">
  172. <div class="post-meta mr-3 d-flex align-items-center">
  173. <i class="iconfont icon-category"></i>
  174. <span class="category-chains">
  175. <span class="category-chain">
  176. <a href="/categories/uncategorized/" class="category-chain-item">uncategorized</a>
  177. </span>
  178. </span>
  179. </div>
  180. </div>
  181. <div class="license-box my-3">
  182. <div class="license-title">
  183. <div>WGCNA:官方教程学习之共识分析</div>
  184. <div>https://b.limour.top/1932.html</div>
  185. </div>
  186. <div class="license-meta">
  187. <div class="license-meta-item">
  188. <div>Author</div>
  189. <div>Limour</div>
  190. </div>
  191. <div class="license-meta-item license-meta-date">
  192. <div>Posted on</div>
  193. <div>July 24, 2022</div>
  194. </div>
  195. <div class="license-meta-item">
  196. <div>Licensed under</div>
  197. <div>
  198. <a class="print-no-link" target="_blank" href="https://creativecommons.org/licenses/by-nc-sa/4.0/">
  199. <span class="hint--top hint--rounded" aria-label="BY - Attribution">
  200. <i class="iconfont icon-by"></i>
  201. </span>
  202. </a>
  203. <a class="print-no-link" target="_blank" href="https://creativecommons.org/licenses/by-nc-sa/4.0/">
  204. <span class="hint--top hint--rounded" aria-label="NC - Non-commercial">
  205. <i class="iconfont icon-nc"></i>
  206. </span>
  207. </a>
  208. <a class="print-no-link" target="_blank" href="https://creativecommons.org/licenses/by-nc-sa/4.0/">
  209. <span class="hint--top hint--rounded" aria-label="SA - Share-alike">
  210. <i class="iconfont icon-sa"></i>
  211. </span>
  212. </a>
  213. </div>
  214. </div>
  215. </div>
  216. <div class="license-icon iconfont"></div>
  217. </div>
  218. <div class="post-prevnext my-3">
  219. <article class="post-prev col-6">
  220. <a href="/1933.html" title="使用IQR方法进行重复值的选择">
  221. <i class="iconfont icon-arrowleft"></i>
  222. <span class="hidden-mobile">使用IQR方法进行重复值的选择</span>
  223. <span class="visible-mobile">Previous</span>
  224. </a>
  225. </article>
  226. <article class="post-next col-6">
  227. <a href="/1929.html" title="WGCNA:官方教程学习之网络分析">
  228. <span class="hidden-mobile">WGCNA:官方教程学习之网络分析</span>
  229. <span class="visible-mobile">Next</span>
  230. <i class="iconfont icon-arrowright"></i>
  231. </a>
  232. </article>
  233. </div>
  234. </div>
  235. <article id="comments" lazyload>
  236. <div id="waline"></div>
  237. <script type="text/javascript">
  238. Fluid.utils.loadComments('#waline', function() {
  239. Fluid.utils.createCssLink('https://cdn.staticfile.org/waline/2.15.5/waline.min.css')
  240. Fluid.utils.createScript('https://cdn.staticfile.org/waline/2.15.5/waline.min.js', function() {
  241. var options = Object.assign(
  242. {"serverURL":"https://comments.limour.top","path":"window.location.pathname","meta":["nick","mail","link"],"requiredMeta":["nick"],"lang":"zh-CN","emoji":["https://jscdn.limour.top/gh/walinejs/emojis/weibo"],"dark":"html[data-user-color-scheme=\"dark\"]","wordLimit":0,"pageSize":10},
  243. {
  244. el: '#waline',
  245. path: window.location.pathname
  246. }
  247. )
  248. Waline.init(options);
  249. Fluid.utils.waitElementVisible('#waline .vcontent', () => {
  250. var imgSelector = '#waline .vcontent img:not(.vemoji)';
  251. Fluid.plugins.imageCaption(imgSelector);
  252. Fluid.plugins.fancyBox(imgSelector);
  253. })
  254. });
  255. });
  256. </script>
  257. <noscript>Please enable JavaScript to view the comments</noscript>
  258. </article>
  259. </article>
  260. </div>
  261. </div>
  262. </div>
  263. <div class="side-col d-none d-lg-block col-lg-2">
  264. <aside class="sidebar" style="margin-left: -1rem">
  265. <div id="toc">
  266. <p class="toc-header">
  267. <i class="iconfont icon-list"></i>
  268. <span>Table of Contents</span>
  269. </p>
  270. <div class="toc-body" id="toc-body"></div>
  271. </div>
  272. </aside>
  273. </div>
  274. </div>
  275. </div>
  276. <a id="scroll-top-button" aria-label="TOP" href="#" role="button">
  277. <i class="iconfont icon-arrowup" aria-hidden="true"></i>
  278. </a>
  279. <div class="modal fade" id="modalSearch" tabindex="-1" role="dialog" aria-labelledby="ModalLabel"
  280. aria-hidden="true">
  281. <div class="modal-dialog modal-dialog-scrollable modal-lg" role="document">
  282. <div class="modal-content">
  283. <div class="modal-header text-center">
  284. <h4 class="modal-title w-100 font-weight-bold">Search</h4>
  285. <button type="button" id="local-search-close" class="close" data-dismiss="modal" aria-label="Close">
  286. <span aria-hidden="true">&times;</span>
  287. </button>
  288. </div>
  289. <div class="modal-body mx-3">
  290. <div class="md-form mb-5">
  291. <input type="text" id="local-search-input" class="form-control validate">
  292. <label data-error="x" data-success="v" for="local-search-input">Keyword</label>
  293. </div>
  294. <div class="list-group" id="local-search-result"></div>
  295. </div>
  296. </div>
  297. </div>
  298. </div>
  299. </main>
  300. <footer>
  301. <div class="footer-inner">
  302. <div class="footer-content">
  303. <a target="_blank" rel="nofollow noopener" href="http://www.beian.gov.cn/portal/registerSystemInfo?recordcode=43130202000203"><img src="https://img.limour.top/2023/08/27/64eadeb81d6a0.webp" srcset="https://jscdn.limour.top/gh/Limour-dev/Sakurairo_Vision/load_svg/inload.svg" lazyload>湘公网安备 43130202000203号 </a> <a target="_blank" rel="nofollow noopener" href="https://beian.miit.gov.cn/">湘ICP备20008299号 </a> <a target="_blank" rel="nofollow noopener" href="https://icp.gov.moe/?keyword=20210128">萌ICP备20210128号</a> <br> <a href="https://www.foreverblog.cn/" target="_blank"> <img src="https://img.foreverblog.cn/logo_en_default.png" srcset="https://jscdn.limour.top/gh/Limour-dev/Sakurairo_Vision/load_svg/inload.svg" lazyload alt="" style="width:auto;height:24px"> </a> <br> <a href="https://hexo.io" target="_blank" rel="nofollow noopener"><span>Hexo</span></a> <i class="iconfont icon-love"></i> <a href="https://github.com/fluid-dev/hexo-theme-fluid" target="_blank" rel="nofollow noopener"><span>Fluid</span></a> <i class="iconfont icon-love"></i> <a href="https://github.com/limour-blog/archives-b" target="_blank" rel="nofollow noopener"><span>SRC</span></a>
  304. </div>
  305. </div>
  306. </footer>
  307. <!-- Scripts -->
  308. <script src="https://jscdn.limour.top/npm/nprogress@0.2.0/nprogress.min.js" ></script>
  309. <link rel="stylesheet" href="https://jscdn.limour.top/npm/nprogress@0.2.0/nprogress.min.css" />
  310. <script>
  311. NProgress.configure({"showSpinner":false,"trickleSpeed":100})
  312. NProgress.start()
  313. window.addEventListener('load', function() {
  314. NProgress.done();
  315. })
  316. </script>
  317. <script src="https://jscdn.limour.top/npm/jquery@3.6.4/dist/jquery.min.js" ></script>
  318. <script src="https://jscdn.limour.top/npm/bootstrap@4.6.1/dist/js/bootstrap.min.js" ></script>
  319. <script src="/js/events.js" ></script>
  320. <script src="/js/plugins.js" ></script>
  321. <script src="https://lib.baomitu.com/typed.js/2.0.12/typed.min.js" ></script>
  322. <script>
  323. (function (window, document) {
  324. var typing = Fluid.plugins.typing;
  325. var subtitle = document.getElementById('subtitle');
  326. if (!subtitle || !typing) {
  327. return;
  328. }
  329. var text = subtitle.getAttribute('data-typed-text');
  330. typing(text);
  331. })(window, document);
  332. </script>
  333. <script src="/js/img-lazyload.js" ></script>
  334. <script>
  335. Fluid.utils.createScript('https://jscdn.limour.top/npm/tocbot@4.20.1/dist/tocbot.min.js', function() {
  336. var toc = jQuery('#toc');
  337. if (toc.length === 0 || !window.tocbot) { return; }
  338. var boardCtn = jQuery('#board-ctn');
  339. var boardTop = boardCtn.offset().top;
  340. window.tocbot.init(Object.assign({
  341. tocSelector : '#toc-body',
  342. contentSelector : '.markdown-body',
  343. linkClass : 'tocbot-link',
  344. activeLinkClass : 'tocbot-active-link',
  345. listClass : 'tocbot-list',
  346. isCollapsedClass: 'tocbot-is-collapsed',
  347. collapsibleClass: 'tocbot-is-collapsible',
  348. scrollSmooth : true,
  349. includeTitleTags: true,
  350. headingsOffset : -boardTop,
  351. }, CONFIG.toc));
  352. if (toc.find('.toc-list-item').length > 0) {
  353. toc.css('visibility', 'visible');
  354. }
  355. Fluid.events.registerRefreshCallback(function() {
  356. if ('tocbot' in window) {
  357. tocbot.refresh();
  358. var toc = jQuery('#toc');
  359. if (toc.length === 0 || !tocbot) {
  360. return;
  361. }
  362. if (toc.find('.toc-list-item').length > 0) {
  363. toc.css('visibility', 'visible');
  364. }
  365. }
  366. });
  367. });
  368. </script>
  369. <script src=https://lib.baomitu.com/clipboard.js/2.0.11/clipboard.min.js></script>
  370. <script>Fluid.plugins.codeWidget();</script>
  371. <script>
  372. Fluid.utils.createScript('https://jscdn.limour.top/npm/anchor-js@4.3.1/anchor.min.js', function() {
  373. window.anchors.options = {
  374. placement: CONFIG.anchorjs.placement,
  375. visible : CONFIG.anchorjs.visible
  376. };
  377. if (CONFIG.anchorjs.icon) {
  378. window.anchors.options.icon = CONFIG.anchorjs.icon;
  379. }
  380. var el = (CONFIG.anchorjs.element || 'h1,h2,h3,h4,h5,h6').split(',');
  381. var res = [];
  382. for (var item of el) {
  383. res.push('.markdown-body > ' + item.trim());
  384. }
  385. if (CONFIG.anchorjs.placement === 'left') {
  386. window.anchors.options.class = 'anchorjs-link-left';
  387. }
  388. window.anchors.add(res.join(', '));
  389. Fluid.events.registerRefreshCallback(function() {
  390. if ('anchors' in window) {
  391. anchors.removeAll();
  392. var el = (CONFIG.anchorjs.element || 'h1,h2,h3,h4,h5,h6').split(',');
  393. var res = [];
  394. for (var item of el) {
  395. res.push('.markdown-body > ' + item.trim());
  396. }
  397. if (CONFIG.anchorjs.placement === 'left') {
  398. anchors.options.class = 'anchorjs-link-left';
  399. }
  400. anchors.add(res.join(', '));
  401. }
  402. });
  403. });
  404. </script>
  405. <script>
  406. Fluid.utils.createScript('https://lib.baomitu.com/fancybox/3.5.7/jquery.fancybox.min.js', function() {
  407. Fluid.plugins.fancyBox();
  408. });
  409. </script>
  410. <script>Fluid.plugins.imageCaption();</script>
  411. <script src="/js/local-search.js" ></script>
  412. <!-- 主题的启动项,将它保持在最底部 -->
  413. <!-- the boot of the theme, keep it at the bottom -->
  414. <script src="/js/boot.js" ></script>
  415. <noscript>
  416. <div class="noscript-warning">Blog works best with JavaScript enabled</div>
  417. </noscript>
  418. <!-- hexo injector body_end start -->
  419. <script defer src="/theme-inject/timeliness.js"></script>
  420. <!-- hexo injector body_end end --></body>
  421. </html>