{"id":61735,"date":"2024-11-19T15:29:47","date_gmt":"2024-11-19T07:29:47","guid":{"rendered":"http:\/\/www.biocloudservice.com\/wordpress\/?p=61735"},"modified":"2024-11-19T15:29:47","modified_gmt":"2024-11-19T07:29:47","slug":"%e9%ab%98%e7%ba%a7%ef%bc%81genefu%e5%8c%85%e5%88%86%e5%ad%90%e5%88%86%e5%9e%8b%e4%b8%8e%e7%94%9f%e5%ad%98%e6%9b%b2%e7%ba%bf%e7%bb%98%e5%88%b6%ef%bc%8c%e5%8a%a9%e4%bd%a0%e7%9a%84%e7%99%8c%e7%97%87","status":"publish","type":"post","link":"http:\/\/www.biocloudservice.com\/wordpress\/?p=61735","title":{"rendered":"\u9ad8\u7ea7\uff01genefu\u5305\u5206\u5b50\u5206\u578b\u4e0e\u751f\u5b58\u66f2\u7ebf\u7ed8\u5236\uff0c\u52a9\u4f60\u7684\u764c\u75c7\u82af\u7247\u6570\u636e\u5206\u6790\u518d\u8fdb\u4e00\u6b65\uff01"},"content":{"rendered":"\n<p><\/p>\n\n\n\n<p>\u5927\u5bb6\u597d\uff01\u4eca\u5929\uff0c\u6211\u975e\u5e38\u6fc0\u52a8\u5730\u5411\u5927\u5bb6\u4ecb\u7ecd\u751f\u7269\u4fe1\u606f\u5b66\u9886\u57df\u7684\u4e00\u9879\u5f3a\u5927\u5de5\u5177\u2014\u2014genefu&nbsp;\u5305\u3002genefu\u5305\u4e3a\u57fa\u56e0\u8868\u8fbe\u5206\u6790\u63d0\u4f9b\u4e86\u76f8\u5173\u529f\u80fd\uff0c\u5c24\u5176\u662f\u5728\u764c\u75c7\u4e2d\u3002\u8be5\u8f6f\u4ef6\u5305\u5305\u62ec\u8bb8\u591a\u7528\u4e8e\u5206\u5b50\u4e9a\u578b\u5206\u7c7b\u7684\u7b97\u6cd5\u3002\u8be5\u5305\u8fd8\u5305\u62ec\u9884\u540e\u9884\u6d4b\u7b97\u6cd5\u7684\u5b9e\u73b0\uff0c\u4ee5\u53ca\u8fd9\u4e9b\u7b97\u6cd5\u6240\u57fa\u4e8e\u7684\u9884\u540e\u57fa\u56e0\u7b7e\u540d\u5217\u8868\u3002\u7ec3\u4e86\u5341\u5e74\u751f\u4fe1\u7684\u6211\u8981\u51ed\u672c\u4e8b\u5403\u996d\u4e86\uff0c\u8981\u662f\u60a8\u6709\u81ea\u5df1\u505a\u4e0d\u4e86\u7684\u751f\u4fe1\u5206\u6790\uff0c\u53ef\u4ee5\u8054\u7cfb\u6211\u3002<\/p>\n\n\n\n<p>\u5728\u4eca\u5929\u7684\u5b66\u4e60\u4e2d\uff0c\u8ba9\u6211\u4eec\u4e00\u8d77\u6df1\u5165\u63a2\u7d22&nbsp;genefu&nbsp;\u5305\u7684\u4f7f\u7528\u65b9\u6cd5\u3002\u6211\u4eec\u80fd\u591f\u901a\u8fc7\u8be5\u5305\uff0c\u8fdb\u884c\u5206\u5b50\u4e9a\u578b\u7684\u5206\u7c7b\u3001\u8ba1\u7b97\u98ce\u9669\u8bc4\u5206\uff08Risk score\uff09\u7b49\u3002genefu&nbsp;\u5305\u4e0d\u4ec5\u80fd\u591f\u63d0\u5347\u6211\u4eec\u7684\u6570\u636e\u5206\u6790\u80fd\u529b\uff0c\u8fd8\u80fd\u8ba9\u6211\u4eec\u53ef\u4ee5\u66f4\u597d\u5730\u7406\u89e3\u764c\u75c7\u4e2d\u7684\u6570\u636e\uff0c\u5e76\u5c06\u5176\u751f\u52a8\u5730\u5c55\u793a\u51fa\u6765\u3002\u5e0c\u671b\u5927\u5bb6\u80fd\u591f\u79ef\u6781\u5b66\u4e60\u548c\u5e94\u7528 genefu&nbsp;\u5305\uff0c\u4e0d\u65ad\u63a2\u7d22\u65b0\u7684\u5de5\u5177\u548c\u6280\u672f\uff0c\u63d0\u5347\u81ea\u5df1\u5728\u751f\u7269\u4fe1\u606f\u5b66\u9886\u57df\u7684\u80fd\u529b\u548c\u6c34\u5e73\u3002\u8ba9\u6211\u4eec\u4e00\u8d77\u5f00\u542f\u5b66\u4e60\u4e4b\u65c5\uff0c\u5171\u540c\u63a2\u7d22\u751f\u7269\u4fe1\u606f\u5b66\u7684\u5965\u79d8\u5427\uff01<\/p>\n\n\n\n<p>\u672c\u6b21\u4ecb\u7ecd\u7684R\u5305\u9700\u8981\u8f83\u591a\u7684\u786c\u4ef6\u8d44\u6e90\uff0c\u5728\u670d\u52a1\u5668\u53ef\u4ee5\u66f4\u52a0\u6d41\u7545\u8fd0\u884c\uff0c\u540c\u5b66\u4eec\u5982\u679c\u6ca1\u6709\u81ea\u5df1\u7684\u670d\u52a1\u5668\u6b22\u8fce\u8054\u7cfb\u6211\u4eec\u4f7f\u7528\u670d\u52a1\u5668\u79df\u8d41~<\/p>\n\n\n\n<p>\u5206\u5b50\u5206\u578b<\/p>\n\n\n\n<p>\u5148\u7ed9\u4e0d\u719f\u6089\u764c\u75c7\u7814\u7a76\u7684\u5c0f\u4f19\u4f34\u4eec\u4ecb\u7ecd\u4e00\u4e0b\uff0c\u764c\u75c7\u5177\u6709\u5f02\u8d28\u6027\uff0c\u4e5f\u5c31\u662f\u8bf4\u540c\u4e00\u4e2a\u90e8\u4f4d\u60a3\u764c\u7684\u764c\u75c7\u79cd\u7c7b\u53ef\u80fd\u5b8c\u5168\u4e0d\u4e00\u6837\uff0c\u81ea\u7136\u6cbb\u7597\u65b9\u6cd5\u4e5f\u4e0d\u4e00\u6837\u3002\u6211\u4eec\u4ee5\u4e0b\u5c06\u4f7f\u7528\u7684\u793a\u4f8b\u6570\u636e\u6765\u81ea\u4e73\u817a\u764c\uff0c\u5728\u4e73\u817a\u764c\u9886\u57df\uff0c\u4e0d\u540c\u4e9a\u578b\u7684\u764c\u75c7\u6bd4\u4e0d\u540c\u5668\u5b98\u6765\u6e90\u764c\u75c7\u7684\u5dee\u5f02\u8981\u5927\u5f88\u591a\u3002\u56e0\u6b64\u6709\u5fc5\u8981\u5bf9\u5b83\u8fdb\u884c\u5206\u7c7b\uff0c\u5f53\u7136\u5206\u7c7b\u65b9\u6cd5\u6709\u5f88\u591a\uff0c\u53ef\u4ee5\u6839\u636e\u662f\u5426\u4f1a\u8f6c\u79fb\u5206\u4e3a\u6076\u6027\u4e0e\u826f\u6027\u3002\u4f46\u5728\u6b64\u6211\u4eec\u4f7f\u7528\u5206\u5b50\u5206\u578b\uff0c\u6839\u636e\u67d0\u4e9b\u7279\u5f81\u57fa\u56e0\u7684\u8868\u8fbe\u91cf\u8fdb\u884c\u5206\u7c7b\u3002<\/p>\n\n\n\n<p>\u6700\u7b80\u5355\u7684\u5206\u5b50\u5206\u578b\uff0c\u5f53\u7136\u662f\u4e00\u4e2a\u57fa\u56e0\uff0c\u6bd4\u5982ER\u9633\u6027\u6216\u8005ER\u9634\u6027\u7684\u4e73\u817a\u764c\u60a3\u8005\u3002\u4e13\u5bb6\u5171\u8bc6\u5efa\u8bae\u91c7\u7528\u6807\u51c6\u6d41\u7a0b\u68c0\u6d4b\u4e73\u817a\u539f\u53d1\u7076\u548c\u8f6c\u79fb\u7076ER\uff08Estrogen receptor\uff0c\u96cc\u6fc0\u7d20\u53d7\u4f53\uff09\u3001PR\uff08Progesterone receptor ,\u5b55\u6fc0\u7d20\u53d7\u4f53\uff09\u3001HER2\uff08Human epidermal growth factor receptor 2\uff0c\u4eba\u7c7b\u8868\u76ae\u751f\u957f\u56e0\u5b50\u53d7\u4f532\uff09\u7b49\uff0c\u5982\u679c\u8fd93\u4e2a\u57fa\u56e0\u90fd\u4e0d\u8868\u8fbe\uff0c\u5c31\u662f\u4e34\u5e8a\u91cc\u9762\u6bd4\u8f83\u6076\u6027\u7684\u4e09\u9634\u6027\u4e73\u817a\u764c\u3002\u53e6\u5916\u8fd8\u8981\u4e00\u4e2a\u589e\u6b96\u6307\u6570Ki67\u3002\u5e76\u4e0d\u662f2<sup>4<\/sup>\u670916\u79cd\u7c7b\u578b\uff0c\u800c\u662f\u4e94\u79cd\uff0c\u89c1\u300a\u4e2d\u56fd\u6297\u764c\u534f\u4f1a\u4e73\u817a\u764c\u8bca\u6cbb\u6307\u5357\u4e0e\u89c4\u8303\uff082024\u5e74\u7248\uff09\u300b\uff1a<\/p>\n\n\n\n<p>\u7ba1\u8154A\u578b\uff08Luminal A\uff09\uff1aER\/PR\u9633\u6027\u4e14PR\u9ad8\u8868\u8fbeHER2\u9634\u6027\uff0cKi-67\u589e\u6b96\u6307\u6570\u4f4e\uff1b<\/p>\n\n\n\n<p>\u7ba1\u8154B\u578b\uff08Luminal B\uff09HER2\u9634\u6027\uff1aER\/PR\u9633\u6027\uff0cHER2\u9634\u6027\u4e14Ki-67\u589e\u6b96\u6307\u6570\u9ad8\u6216PR\u4f4e\u8868\u8fbe\uff1b<\/p>\n\n\n\n<p>\u7ba1\u8154B\u578b\uff08Luminal B\uff09HER2\u9633\u6027\uff1aER\/PR\u9633\u6027\uff0cHER2\u9633\u6027\uff08\u86cb\u767d\u8fc7\u8868\u8fbe\u6216\u57fa\u56e0\u6269\u589e\uff09\uff0c\u4efb\u4f55\u72b6\u6001\u7684Ki-67\uff1b<\/p>\n\n\n\n<p>ERBB2\uff08HER2\u53c8\u79f0ERBB2\uff09\u9633\u6027\u578b\uff1aHER2\u9633\u6027\uff08\u86cb\u767d\u8fc7\u8868\u8fbe\u6216\u57fa\u56e0\u6269\u589e\uff09\uff0cER\u9634\u6027\u548cPR\u9634\u6027\uff1b<\/p>\n\n\n\n<p>\u57fa\u5e95\u6837\u578b\uff08Basal-like\uff09\uff1a\u4e09\u9634\u6027\uff08\u975e\u7279\u6b8a\u578b\u6d78\u6da6\u6027\u5bfc\u7ba1\u764c\uff09\uff0cER\u9634\u6027\uff0cPR\u9634\u6027\uff0cHER2\u9634\u6027\u3002<\/p>\n\n\n\n<p>\u4e73\u817a\u764cPAM50\u68c0\u6d4b\u662f\u76ee\u524d\u4e34\u5e8a\u5e94\u7528\u4e2d\u7efc\u5408\u6027\u4ef7\u6bd4\u6700\u9ad8\u7684\u68c0\u6d4b\u9879\u76ee\uff0c\u5b83\u662f\uff08Parker et al., 2009\uff09\u9009\u5b9a\u7684\u6709\u4ee3\u8868\u6027\u768450\u4e2a\u57fa\u56e0\uff0c\u5229\u7528\u5b83\u4eec\u53ef\u4ee5\u5bf9\u75c5\u4eba\u8fdb\u884c\u521d\u6b65\u5206\u7c7b\u3002\u6839\u636e\u57fa\u56e0\u8868\u8fbe\u8c31\uff08Gene expression profile, GEP\uff09\u8fdb\u884c\u5206\u578b\u53ef\u79f0\u4e3a\u5206\u5b50\u5206\u578b\u3002<\/p>\n\n\n\n<p>genefu\u5305\u4ecb\u7ecd<\/p>\n\n\n\n<p>genefu\u8f6f\u4ef6\u5305\u5305\u542b\u5b9e\u73b0\u57fa\u56e0\u8868\u8fbe\u5206\u6790\u901a\u5e38\u9700\u8981\u7684\u5404\u79cd\u4efb\u52a1\u7684\u529f\u80fd\uff0c\u5c24\u5176\u662f\u5728\u764c\u75c7\u7814\u7a76\u4e2d\uff1a\u4e0d\u540c\u5fae\u9635\u5217\u5e73\u53f0\u4e4b\u95f4\u7684\u57fa\u56e0\u56fe\u8c31\u3001\u5206\u5b50\u4e9a\u578b\u7684\u9274\u5b9a\u3001\u5df2\u53d1\u8868\u57fa\u56e0\u7b7e\u540d\u7684\u5b9e\u73b0\u3001\u57fa\u56e0\u9009\u62e9\u548c\u751f\u5b58\u5206\u6790\u3002\u8fd9\u4e2a\u5305\u7684\u4f7f\u7528\u7b80\u5355\u76f4\u89c2\uff0c\u4e3a\u751f\u7269\u4fe1\u606f\u5b66\u5bb6\u548c\u751f\u6001\u5b66\u5bb6\u7b49\u9886\u57df\u7684\u7814\u7a76\u4eba\u5458\u63d0\u4f9b\u4e86\u5f3a\u5927\u7684\u5de5\u5177\uff0c\u5e2e\u52a9\u4ed6\u4eec\u66f4\u597d\u5730\u7406\u89e3\u548c\u5448\u73b0\u7cfb\u7edf\u53d1\u80b2\u6811\u6570\u636e\u3002<\/p>\n\n\n\n<p>genefu\u5305\u5b89\u88c5<\/p>\n\n\n\n<p>\u9700\u8981R\u8bed\u8a00\u7248\u672c\u4e3a4.4\u53ca\u4ee5\u4e0a\uff0c\u66f4\u4f4e\u7248\u672c\u65e0\u6cd5\u5b89\u88c5\u9002\u5408\u7248\u672c\u7684BiocManager\uff0c\u4f1a\u5bfc\u81f4\u5b89\u88c5\u5931\u8d25\u3002\u5728\u63a7\u5236\u53f0\u4e2d\u8f93\u5165\u4ee5\u4e0b\u547d\u4ee4\uff1a<\/p>\n\n\n\n<p>if (!require(&#8220;BiocManager&#8221;, quietly = TRUE))<\/p>\n\n\n\n<p>&nbsp;&nbsp;install.packages(&#8220;BiocManager&#8221;)<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u5982\u679c\u672a\u5b89\u88c5BiocManager\uff0c\u5219\u5b89\u88c5<\/p>\n\n\n\n<p>BiocManager::install(&#8220;genefu&#8221;) &nbsp;# \u5b89\u88c5genefu\u5305<\/p>\n\n\n\n<p>BiocManager::install(c(&#8220;breastCancerMAINZ&#8221;,&#8221;breastCancerTRANSBIG&#8221;, &#8220;breastCancerUPP&#8221;,&#8221;breastCancerUNT&#8221;,&#8221;breastCancerNKI&#8221;))<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u5b89\u88c5\u6570\u636e\u96c6<\/p>\n\n\n\n<p>\u67e5\u770b\u662f\u5426\u5b89\u88c5\u6210\u529f<\/p>\n\n\n\n<p>packageVersion(&#8220;genefu&#8221;) # \u67e5\u770bgenefu\u7248\u672c<\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" loading=\"lazy\" width=\"298\" height=\"42\" src=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/10\/1730361522145_49BCF88A-31CD-43ec-A89B-BC038F4FC722.png?resize=298%2C42\" alt=\"\" class=\"wp-image-61736\" data-recalc-dims=\"1\"\/><\/figure>\n\n\n\n<p>\u663e\u793a\u4e3a2.36.0\u7248\u672c\u6216\u66f4\u9ad8\uff0c\u5219\u8868\u793a\u5df2\u7ecf\u5b89\u88c5\u4e86genefu\u5305\u3002<\/p>\n\n\n\n<p>\u9664\u6b64\u4e4b\u5916\uff0c\u540e\u7eed\u793a\u4f8b\u8fd8\u9700\u8981\u4f7f\u7528xtable\uff0crmeta\uff0cBiobase\uff0ccaret, survival\u7b49\u5305\uff0c\u6211\u4eec\u53ef\u4ee5\u63d0\u524d\u5b89\u88c5\uff0c\u5b89\u88c5\u547d\u4ee4\u5982\u4e0b\uff1a<\/p>\n\n\n\n<p>install.packages(&#8220;xtable&#8221;)<\/p>\n\n\n\n<p>install.packages(&#8220;rmeta&#8221;)<\/p>\n\n\n\n<p>install.packages(&#8220;Biobase&#8221;)<\/p>\n\n\n\n<p>install.packages(&#8220;caret&#8221;)<\/p>\n\n\n\n<p>install.packages(&#8220;survival&#8221;)<\/p>\n\n\n\n<p>\u4f7f\u7528genefu\u5305\u8fdb\u884c\u5206\u5b50\u5206\u578b<\/p>\n\n\n\n<p>\u4e3a\u4e86\u6f14\u793agenefu\u5305\u7684\u7528\u6cd5\uff0c\u672c\u6587\u4e2d\u6211\u4eec\u5c06\u4f7f\u7528\u968f\u673a\u751f\u6210\u7684\u6811\u6587\u4ef6\u548c\u6a21\u62df\u7684\u5173\u8054\u6570\u636e\u96c6\uff0c\u4f7f\u7528\u7684\u6a21\u62df\u6570\u636e\u96c6\u90fd\u5305\u542b\u6811\u7684\u90a3\u4e00\u5217\u5206\u7c7b\u6807\u7b7e\u3002<\/p>\n\n\n\n<p><strong>\u8f7d\u5165\u5305<\/strong><strong>\u4e0e\u6570\u636e<\/strong><strong>\uff1a<\/strong><strong><\/strong><\/p>\n\n\n\n<p>library(genefu)<\/p>\n\n\n\n<p>library(xtable)<\/p>\n\n\n\n<p>library(rmeta)<\/p>\n\n\n\n<p>library(Biobase)<\/p>\n\n\n\n<p>library(caret)<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u8f7d\u5165\u5305<\/p>\n\n\n\n<p><strong>\u8f7d\u5165\u6570\u636e\uff1a<\/strong><strong><\/strong><\/p>\n\n\n\n<p>library(breastCancerMAINZ)<\/p>\n\n\n\n<p>library(breastCancerTRANSBIG)<\/p>\n\n\n\n<p>library(breastCancerUPP)<\/p>\n\n\n\n<p>library(breastCancerUNT)<\/p>\n\n\n\n<p>library(breastCancerNKI)<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u8f7d\u5165\u6570\u636e<\/p>\n\n\n\n<p>\u6570\u636e\u6982\u8ff0\u5982\u4e0b\u8868\uff1a<\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" loading=\"lazy\" width=\"524\" height=\"234\" src=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/10\/1730363041529_8113D3CD-8449-4367-8171-629359428107.png?resize=524%2C234\" alt=\"\" class=\"wp-image-61737\" srcset=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/10\/1730363041529_8113D3CD-8449-4367-8171-629359428107.png?w=524 524w, https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/10\/1730363041529_8113D3CD-8449-4367-8171-629359428107.png?resize=300%2C134 300w\" sizes=\"(max-width: 524px) 100vw, 524px\" data-recalc-dims=\"1\" \/><\/figure>\n\n\n\n<p>\u7531\u8868\u53ef\u77e5\uff0c\u4e94\u4e2a\u6570\u636e\u96c6\u4e2d\u5404\u81ea\u7684\u75c5\u4eba\u4eba\u6570\u3001ER\u9633\u6027\u4eba\u6570\u3001HER2\u9633\u6027\u4eba\u6570\u3001\u5e74\u9f84\u3001\u7b49\u7ea7\u548c\u6570\u636e\u91c7\u96c6\u6240\u4f7f\u7528\u7684\u5e73\u53f0\u3002\u7531\u4e8e\u6ca1\u6709Ki-67\u589e\u6b96\u6307\u6570\uff0c\u6240\u4ee5\u53ea\u80fd\u6309ER\u4e0eHER2\u8fdb\u884c\u5206\u7c7b\u3002ER\u9633\u6027\uff0cHER2\u9634\u6027\u4e3a\u7ba1\u8154A\u578b\uff08Luminal A\uff09\uff1bER\u9633\u6027\uff0cHER2\u9633\u6027\uff08\u86cb\u767d\u8fc7\u8868\u8fbe\u6216\u57fa\u56e0\u6269\u589e\uff09\u4e3a\u7ba1\u8154B\u578b\uff08Luminal B\uff09\uff1bHER2\u9633\u6027\uff08\u86cb\u767d\u8fc7\u8868\u8fbe\u6216\u57fa\u56e0\u6269\u589e\uff09\uff0cER\u9634\u6027\u4e3aERBB2\uff08HER2\u53c8\u79f0ERBB2\uff09\u9633\u6027\u578b\uff1bER\u9634\u6027\uff0cHER2\u9634\u6027\u57fa\u5e95\u6837\u578b\uff08Basal-like\uff09\u3002<\/p>\n\n\n\n<p>data(mainz)<\/p>\n\n\n\n<p>View(mainz)<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u8f7d\u5165\u5e76\u67e5\u770bmainz\u6570\u636e\u96c6<\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" loading=\"lazy\" width=\"554\" height=\"211\" src=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/10\/1730363052440_CB464544-0DF5-4dd1-8582-2FFC3A2F654C.png?resize=554%2C211\" alt=\"\" class=\"wp-image-61738\" srcset=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/10\/1730363052440_CB464544-0DF5-4dd1-8582-2FFC3A2F654C.png?w=554 554w, https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/10\/1730363052440_CB464544-0DF5-4dd1-8582-2FFC3A2F654C.png?resize=300%2C114 300w\" sizes=\"(max-width: 554px) 100vw, 554px\" data-recalc-dims=\"1\" \/><\/figure>\n\n\n\n<p>\u53ef\u89c1\u6bcf\u4e2a\u6570\u636e\u96c6\u90fd\u5305\u62ec\u8bb8\u591a\u65b9\u9762\u7684\u6570\u636e\uff0c\u6bd4\u5982\u5b9e\u9a8c\u6570\u636e\uff08experimentData\uff09\u3001\u8868\u8fbe\u6570\u636e\uff08assayData\uff09\u3001\u6837\u54c1\u4fe1\u606f\uff08phenoData\uff09\u3001\u63a2\u9488\u6ce8\u91ca\u4fe1\u606f\uff08featureData\uff09\u3001\u65b9\u6cd5\u6570\u636e\uff08protocolData\uff09\u7b49\u3002\u8fd9\u5176\u5b9e\u662fBiobase\u5305\u4e2dExpressionSet\u7c7b\u7684\u683c\u5f0f\uff0c\u5c06\u591a\u79cd\u6765\u6e90\u4fe1\u606f\u7ec4\u5408\u6210\u7684\u5355\u4e2a\u6570\u636e\u7ed3\u6784\uff0c\u5728\u82af\u7247\u6570\u636e\u5206\u6790\u5f88\u5e38\u7528\u3002<\/p>\n\n\n\n<p>data(breastCancerData)<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u8f7d\u5165\u793a\u4f8b\u6570\u636e\u96c6<\/p>\n\n\n\n<p>cinfo &lt;- colnames(pData(mainz7g))<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u4f7f\u7528mainz7g\u6837\u54c1\u4fe1\u606f\u7684\u5217\u540d<\/p>\n\n\n\n<p>data.all&lt;-c(&#8220;transbig7g&#8221;=transbig7g,&#8221;unt7g&#8221;=unt7g,&#8221;upp7g&#8221;=upp7g,&#8221;mainz7g&#8221;=mainz7g, &#8220;nki7g&#8221;=nki7g)<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u5408\u5e76\u6240\u6709\u6570\u636e\u96c6<\/p>\n\n\n\n<p>idtoremove.all &lt;- NULL<\/p>\n\n\n\n<p>duplres &lt;- NULL<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u5df2\u77e5MainZ\u548cNKI\u6570\u636e\u96c6\u6ca1\u6709\u91cd\u590d\uff0c\u5f00\u59cbUNT\u3001UPP\u4e0eTRANSBIG\u7684\u53bb\u91cd<\/p>\n\n\n\n<p>demo.all &lt;- rbind(pData(transbig7g), pData(unt7g), pData(upp7g))<\/p>\n\n\n\n<p>dn2 &lt;- c(&#8220;TRANSBIG&#8221;, &#8220;UNT&#8221;, &#8220;UPP&#8221;)<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u67e5\u627eVDXKIU, KIU, UPPU\u7cfb\u5217<\/p>\n\n\n\n<p>ds2 &lt;- c(&#8220;VDXKIU&#8221;, &#8220;KIU&#8221;, &#8220;UPPU&#8221;)<\/p>\n\n\n\n<p>demot&lt;-demo.all[complete.cases(demo.all[,c(&#8220;series&#8221;)])&amp;is.element(demo.all[ , &#8220;series&#8221;], ds2), ]<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u67e5\u627e\u4ee5\u4e0a\u7cfb\u5217\u4e2d\u91cd\u590d\u7684\u75c5\u4eba<\/p>\n\n\n\n<p>duplid &lt;- sort(unique(demot[duplicated(demot[ , &#8220;id&#8221;]), &#8220;id&#8221;]))<\/p>\n\n\n\n<p>duplrest &lt;- NULL<\/p>\n\n\n\n<p>for(i in 1:length(duplid)) {<\/p>\n\n\n\n<p>tt &lt;- NULL<\/p>\n\n\n\n<p>for(k in 1:length(dn2)) {<\/p>\n\n\n\n<p>myx &lt;- sort(row.names(demot)[complete.cases(demot[ , c(&#8220;id&#8221;, &#8220;dataset&#8221;)]) &amp;demot[ , &#8220;id&#8221;] == duplid[i] &amp; demot[ , &#8220;dataset&#8221;] == dn2[k]])<\/p>\n\n\n\n<p>&nbsp;&nbsp;&nbsp;&nbsp;if(length(myx) &gt; 0) { tt &lt;- c(tt, myx) }<\/p>\n\n\n\n<p>&nbsp;&nbsp;}<\/p>\n\n\n\n<p>&nbsp;&nbsp;duplrest &lt;- c(duplrest, list(tt))<\/p>\n\n\n\n<p>}<\/p>\n\n\n\n<p>names(duplrest) &lt;- duplid<\/p>\n\n\n\n<p>duplres &lt;- c(duplres, duplrest)<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u67e5\u627eVVDXOXFU, OXFU\u7cfb\u5217<\/p>\n\n\n\n<p>ds2 &lt;- c(&#8220;VDXOXFU&#8221;, &#8220;OXFU&#8221;)<\/p>\n\n\n\n<p>demot &lt;- demo.all[complete.cases(demo.all[ , c(&#8220;series&#8221;)]) &amp;is.element(demo.all[ , &#8220;series&#8221;], ds2), ]<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u67e5\u627e\u4ee5\u4e0a\u7cfb\u5217\u4e2d\u91cd\u590d\u7684\u75c5\u4eba<\/p>\n\n\n\n<p>duplid &lt;- sort(unique(demot[duplicated(demot[ , &#8220;id&#8221;]), &#8220;id&#8221;]))<\/p>\n\n\n\n<p>duplrest &lt;- NULL<\/p>\n\n\n\n<p>for(i in 1:length(duplid)) {<\/p>\n\n\n\n<p>&nbsp;&nbsp;tt &lt;- NULL<\/p>\n\n\n\n<p>&nbsp;&nbsp;for(k in 1:length(dn2)) {<\/p>\n\n\n\n<p>&nbsp;&nbsp;&nbsp;&nbsp;myx &lt;- sort(row.names(demot)[complete.cases(demot[ , c(&#8220;id&#8221;, &#8220;dataset&#8221;)]) &amp;demot[ , &#8220;id&#8221;] == duplid[i] &amp;demot[ , &#8220;dataset&#8221;] == dn2[k]])<\/p>\n\n\n\n<p>&nbsp;&nbsp;&nbsp;&nbsp;if(length(myx) &gt; 0) { tt &lt;- c(tt, myx) }<\/p>\n\n\n\n<p>&nbsp;&nbsp;}<\/p>\n\n\n\n<p>&nbsp;&nbsp;duplrest &lt;- c(duplrest, list(tt))<\/p>\n\n\n\n<p>}<\/p>\n\n\n\n<p>names(duplrest) &lt;- duplid<\/p>\n\n\n\n<p>duplres &lt;- c(duplres, duplrest)<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u5168\u96c6\u4e2d\u91cd\u590d\u7684\u75c5\u4eba<\/p>\n\n\n\n<p>duPL &lt;- sort(unlist(lapply(duplres, function(x) { return(x[-1]) } )))<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u52a0\u8f7d\u6570\u636e<\/p>\n\n\n\n<p>data(scmod2.robust)<\/p>\n\n\n\n<p>data(pam50.robust)<\/p>\n\n\n\n<p>data(scmgene.robust)<\/p>\n\n\n\n<p>data(sig.ggi)<\/p>\n\n\n\n<p>data(scmod1.robust)<\/p>\n\n\n\n<p>data(sig.genius)<\/p>\n\n\n\n<p>dn &lt;- c(&#8220;transbig&#8221;, &#8220;unt&#8221;, &#8220;upp&#8221;, &#8220;mainz&#8221;, &#8220;nki&#8221;)<\/p>\n\n\n\n<p>dn.platform &lt;- c(&#8220;affy&#8221;, &#8220;affy&#8221;, &#8220;affy&#8221;, &#8220;affy&#8221;, &#8220;agilent&#8221;)<\/p>\n\n\n\n<p>res &lt;- ddemo.all &lt;- ddemo.coln &lt;- NULL<\/p>\n\n\n\n<p>for(i in 1:length(dn)) {<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u52a0\u8f7d\u6570\u636e<\/p>\n\n\n\n<p>&nbsp;&nbsp;dd &lt;- get(data(list=dn[i]))<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u5220\u9664\u91cd\u590d\u9879<\/p>\n\n\n\n<p>&nbsp;&nbsp;message(&#8220;obtained dataset!&#8221;)<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u63d0\u53d6\u6bcf\u4e2a\u6570\u636e\u96c6\u7684pData\u4e0efData<\/p>\n\n\n\n<p>&nbsp;&nbsp;ddata &lt;- t(exprs(dd))<\/p>\n\n\n\n<p>&nbsp;&nbsp;ddemo &lt;- phenoData(dd)@data<\/p>\n\n\n\n<p>&nbsp;&nbsp;if(length(intersect(rownames(ddata),duPL))&gt;0)<\/p>\n\n\n\n<p>&nbsp;&nbsp;{<\/p>\n\n\n\n<p>&nbsp;&nbsp;&nbsp;&nbsp;ddata&lt;-ddata[-which(rownames(ddata) %in% duPL),]<\/p>\n\n\n\n<p>&nbsp;&nbsp;&nbsp;&nbsp;ddemo&lt;-ddemo[-which(rownames(ddemo) %in% duPL),]<\/p>\n\n\n\n<p>&nbsp;&nbsp;}<\/p>\n\n\n\n<p>&nbsp;&nbsp;dannot &lt;- featureData(dd)@data<\/p>\n\n\n\n<p>&nbsp;&nbsp;&nbsp;&nbsp;# \u5206\u5b50\u5206\u578b\u6a21\u578b\u4e3aPAM50\uff0c\u77e9\u9635\u5e94\u6837\u672c\u4e3a\u884c\uff0c\u57fa\u56e0\u4e3a\u5217<\/p>\n\n\n\n<p>&nbsp;&nbsp;PAM50Preds&lt;-molecular.subtyping(sbt.model=&#8221;pam50&#8243;,data=ddata,annot=dannot,do.mapping=TRUE) &nbsp;<\/p>\n\n\n\n<p>&nbsp;&nbsp;table(PAM50Preds$subtype)<\/p>\n\n\n\n<p>&nbsp;&nbsp;ddemo$PAM50&lt;-PAM50Preds$subtype &nbsp;LumA&lt;-names(PAM50Preds$subtype)[which(PAM50Preds$subtype == &#8220;LumA&#8221;)] &nbsp;LumB&lt;-names(PAM50Preds$subtype)[which(PAM50Preds$subtype == &#8220;LumB&#8221;)]<\/p>\n\n\n\n<p>&nbsp;&nbsp;ddemo[LumA,]$PAM50&lt;-&#8220;LumA&#8221;<\/p>\n\n\n\n<p>&nbsp;&nbsp;ddemo[LumB,]$PAM50&lt;-&#8220;LumB&#8221;<\/p>\n\n\n\n<p>&nbsp;&nbsp;ddemo.all &lt;- rbind(ddemo, ddemo.all)<\/p>\n\n\n\n<p>}<\/p>\n\n\n\n<p>table(ddemo.all$PAM50)<\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" loading=\"lazy\" width=\"399\" height=\"112\" src=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/10\/1730363152725_8A8562E8-891D-45f1-BB93-A9052E2FE0BE.png?resize=399%2C112\" alt=\"\" class=\"wp-image-61739\" srcset=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/10\/1730363152725_8A8562E8-891D-45f1-BB93-A9052E2FE0BE.png?w=399 399w, https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/10\/1730363152725_8A8562E8-891D-45f1-BB93-A9052E2FE0BE.png?resize=300%2C84 300w\" sizes=\"(max-width: 399px) 100vw, 399px\" data-recalc-dims=\"1\" \/><\/figure>\n\n\n\n<p>\u5206\u5b50\u5206\u578b\u5b8c\u6210\u3002<\/p>\n\n\n\n<p>Normals&lt;-rownames(ddemo.all[which(ddemo.all$PAM50 == &#8220;Normal&#8221;),])<\/p>\n\n\n\n<p>ddemo.all$PAM50&lt;-as.character(ddemo.all$PAM50)<\/p>\n\n\n\n<p>&nbsp;&nbsp;# \u6bd4\u8f83\u4e86\u88abPAM50\u6a21\u578b\u9884\u6d4b\u4e3a\u4e0e\u5206\u5b50\u5206\u578b\u6709\u5173\u7684\u6837\u672c\uff0c\u5ffd\u89c6\u4e86\u2018Normal\u2019\u7684\u6837\u672c<\/p>\n\n\n\n<p>confusionMatrix(factor(ddemo.all[-which(rownames(ddemo.all)%in%Normals),]$PAM50))<\/p>\n\n\n\n<p>library(survival)<\/p>\n\n\n\n<p>ddemo&lt;-ddemo.all<\/p>\n\n\n\n<p>data.for.survival.PAM50&lt;-ddemo[,c(&#8220;e.os&#8221;,&#8221;t.os&#8221;,&#8221;PAM50&#8243;,&#8221;age&#8221;)] &nbsp;# \u53bb\u6389\u7f3a\u5931\u751f\u5b58\u4fe1\u606f\u7684\u75c5\u4eba<\/p>\n\n\n\n<p>data.for.survival.PAM50&lt;-data.for.survival.PAM50[complete.cases(data.for.survival.PAM50),]<\/p>\n\n\n\n<p>days.per.month &lt;- 30.4368<\/p>\n\n\n\n<p>days.per.year &lt;- 365.242<\/p>\n\n\n\n<p>data.for.survival.PAM50$months_to_death&lt;-data.for.survival.PAM50$t.os \/ days.per.month<\/p>\n\n\n\n<p>data.for.survival.PAM50$vital_status&lt;-data.for.survival.PAM50$e.os == &#8220;1&#8221;<\/p>\n\n\n\n<p>surv.obj.PAM50&lt;-survfit(Surv(data.for.survival.PAM50$months_to_death,data.for.survival.PAM50$vital_status)~data.for.survival.PAM50$PAM50)<\/p>\n\n\n\n<p>message(&#8220;KAPLAN-MEIR CURVE &#8211; USING PAM50&#8221;)<\/p>\n\n\n\n<p>&nbsp;&nbsp;# KAPLAN-MEIR \u66f2\u7ebf\uff08\u751f\u5b58\u66f2\u7ebf\uff09 &#8211; PAM50\u6a21\u578b<\/p>\n\n\n\n<p>plot(main = &#8220;Surival Curves PAM50&#8221;, surv.obj.PAM50,col =c(&#8220;#006d2c&#8221;, &#8220;#8856a7&#8243;,&#8221;#a50f15&#8221;, &#8220;#08519c&#8221;, &#8220;#000000&#8221;),lty = 1,lwd = 3,xlab = &#8220;Time (months)&#8221;,ylab = &#8220;Probability of Survival&#8221;)<\/p>\n\n\n\n<p>legend(&#8220;topright&#8221;,fill=c(&#8220;#006d2c&#8221;,&#8221;#8856a7&#8243;,&#8221;#a50f15&#8243;, &#8220;#08519c&#8221;,&#8221;#000000&#8243;),legend=c(&#8220;Basal&#8221;,&#8221;Her2&#8243;,&#8221;LumA&#8221;,&#8221;LumB&#8221;,&#8221;Normal&#8221;),bty = &#8220;n&#8221;)<\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" loading=\"lazy\" width=\"529\" height=\"372\" src=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/10\/1730363161624_5CC46240-6AD4-4b7a-8063-8CDD61775BDD.png?resize=529%2C372\" alt=\"\" class=\"wp-image-61740\" srcset=\"https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/10\/1730363161624_5CC46240-6AD4-4b7a-8063-8CDD61775BDD.png?w=529 529w, https:\/\/i0.wp.com\/www.biocloudservice.com\/wordpress\/wp-content\/uploads\/2024\/10\/1730363161624_5CC46240-6AD4-4b7a-8063-8CDD61775BDD.png?resize=300%2C211 300w\" sizes=\"(max-width: 529px) 100vw, 529px\" data-recalc-dims=\"1\" \/><\/figure>\n\n\n\n<p>\u81f3\u6b64\uff0c\u6211\u4eec\u4e0d\u4ec5\u4f7f\u7528PAM50\u6a21\u578b\u5b8c\u6210\u4e86\u5206\u5b50\u5206\u578b\uff0c\u7ed8\u5236\u4e86\u5404\u578b\u7684\u751f\u5b58\u66f2\u7ebf\uff0c\u66f4\u8fdb\u4e00\u6b65\u6316\u6398\u4e86\u6570\u636e\u96c6\u7684\u4fe1\u606f\u3002<\/p>\n\n\n\n<p>\u4ee5\u4e0a\u5c31\u662f\u5bf9\u4e8egenefu\u5305\u7684\u5168\u90e8\u4ecb\u7ecd\u4e86\uff0c\u5728\u672c\u6587\u4e2d\uff0c\u6211\u4eec\u8be6\u7ec6\u4ecb\u7ecd\u4e86\u5982\u4f55\u4f7f\u7528&nbsp;genefu&nbsp;\u5305\u6765\u8fdb\u884c\u4e73\u817a\u764c\u7684\u5206\u5b50\u5206\u578b\uff0c\u5e76\u5bf9\u4e0d\u540c\u7c7b\u578b\u7684\u4e73\u817a\u764c\u9884\u6d4b\u4e86\u751f\u5b58\u66f2\u7ebf\u3002\u540c\u5b66\u4eec\u53ef\u4ee5\u901a\u8fc7\u5b66\u4e60\u548c\u5e94\u7528&nbsp;genefu&nbsp;\u5305\uff0c\u638c\u63e1\u5982\u4f55\u5728 R \u8bed\u8a00\u73af\u5883\u4e0b\u8fdb\u884c\u764c\u75c7\u82af\u7247\u6570\u636e\u5206\u6790\uff0c\u4ece\u800c\u66f4\u597d\u5730\u7406\u89e3\u548c\u89e3\u91ca\u6570\u636e\u3002\u5f53\u7136\u8fd9\u53ea\u662f\u51b0\u5c71\u4e00\u89d2\uff0c\u5e0c\u671b\u540c\u5b66\u4eec\u7ee7\u7eed\u6df1\u5165\u5b66\u4e60\u548c\u63a2\u7d22genefu&nbsp;\u5305\u7684\u76f8\u5173\u77e5\u8bc6\uff0c\u4e0d\u65ad\u5c1d\u8bd5\u65b0\u7684\u5de5\u5177\u548c\u6280\u672f\uff0c\u63d0\u5347\u81ea\u5df1\u7684\u6570\u636e\u5206\u6790\u80fd\u529b\u548c\u79d1\u7814\u6c34\u5e73\u3002<\/p>\n\n\n\n<p>\u540c\u5b66\u4eec\u5982\u679c\u89c9\u5f97\u81ea\u5df1\u5199\u4ee3\u7801\u9ebb\u70e6\uff0c\u53ef\u4ee5\u4f53\u9a8c\u4e00\u4e0b\u6211\u4eec\u7684\u4e91\u751f\u4fe1\u5c0f\u5de5\u5177\uff0c\u53ea\u9700\u8f93\u5165\u6570\u636e\uff0c\u5373\u53ef\u8f7b\u677e\u751f\u6210\u6240\u9700\u56fe\u8868\u3002\u7acb\u5373\u8bbf\u95ee\u4e91\u751f\u4fe1<a>\uff08<\/a><a href=\"http:\/\/www.biocloudservice.com\/home.html\"><u>http:\/\/www.biocloudservice.com\/home.html<\/u><\/a>\uff09\uff0c\u5f00\u542f\u4fbf\u6377\u7684\u751f\u4fe1\u4e4b\u65c5\uff01<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u5927\u5bb6\u597d\uff01\u4eca\u5929\uff0c\u6211\u975e\u5e38\u6fc0\u52a8\u5730\u5411\u5927\u5bb6\u4ecb\u7ecd\u751f\u7269\u4fe1\u606f\u5b66\u9886\u57df\u7684\u4e00\u9879\u5f3a\u5927\u5de5\u5177\u2014\u2014genefu&nbsp;\u5305\u3002genefu\u5305 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":""},"categories":[1],"tags":[],"jetpack_featured_media_url":"","_links":{"self":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/61735"}],"collection":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=61735"}],"version-history":[{"count":1,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/61735\/revisions"}],"predecessor-version":[{"id":61741,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/61735\/revisions\/61741"}],"wp:attachment":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=61735"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=61735"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=61735"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}