{"id":192,"date":"2024-10-22T11:15:56","date_gmt":"2024-10-22T03:15:56","guid":{"rendered":"https:\/\/hm.hedgehog-qd.xyz\/?p=192"},"modified":"2024-10-22T12:40:23","modified_gmt":"2024-10-22T04:40:23","slug":"post-192","status":"publish","type":"post","link":"https:\/\/hm.hedgehog-qd.xyz\/?p=192","title":{"rendered":"R\u8bed\u8a00dataframe\u6570\u636e\u53bb\u91cd"},"content":{"rendered":"\n<p>\u5728\u5b9e\u4e60\u7684\u65f6\u5019\u9047\u5230\u8fd9\u6837\u7684\u60c5\u51b5\uff1a\u6570\u636e\u96c6\u5728\u524d\u671f\u5904\u7406\u8fc7\u540e\u51fa\u73b0\u91cd\u590d\u7684\u884c\u6216\u8005\u5217\uff08\u4f8b\u5982\u622a\u77edbarcode\u4ee5\u540e\u5bfc\u81f4\u6709\u91cd\u590d\u7684\u5217\u540d\uff09\uff0c\u4ece\u800c\u5bfc\u81f4\u540e\u7eed\u6570\u636e\u5904\u7406\u4ee5\u53ca\u8bad\u7ec3\u6a21\u578b\u7684\u65f6\u5019\u51fa\u73b0\u9519\u8bef\u3002\u6b64\u65f6\u6211\u4eec\u9700\u8981\u5bf9\u6570\u636e\u8fdb\u884c\u53bb\u91cd\u64cd\u4f5c\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">\u95ee\u9898\u4f8b\u5b50<\/h2>\n\n\n\n<p>\u4f8b\u5982\uff0c\u4e0b\u9762\u7684\u6570\u636e\u96c6\u5c31\u5b58\u5728\u91cd\u590d\u7684\u95ee\u9898\uff08\u6b64\u5904\u4f7f\u7528fread\u8bfb\u5165\uff09\uff1a<\/p>\n\n\n\n<figure class=\"wp-block-image size-full is-resized\"><img loading=\"lazy\" decoding=\"async\" width=\"845\" height=\"605\" src=\"https:\/\/hm.hedgehog-qd.xyz\/wp-content\/uploads\/2025\/01\/image.png\" alt=\"\" class=\"wp-image-193\" style=\"width:521px;height:auto\" srcset=\"https:\/\/hm.hedgehog-qd.xyz\/wp-content\/uploads\/2025\/01\/image.png 845w, https:\/\/hm.hedgehog-qd.xyz\/wp-content\/uploads\/2025\/01\/image-300x215.png 300w, https:\/\/hm.hedgehog-qd.xyz\/wp-content\/uploads\/2025\/01\/image-768x550.png 768w\" sizes=\"auto, (max-width: 845px) 100vw, 845px\" \/><\/figure>\n\n\n\n<p>\u5bf9\u4e8e\u8fd9\u79cd\u6570\u636e\uff0c\u6211\u4eec\u5982\u679c\u5728\u8bfb\u53d6\u65f6\u4f7f\u7528id\u4f5c\u4e3a\u884c\u540d\u5c31\u4f1a\u9020\u6210\u9519\u8bef\uff1a<\/p>\n\n\n\n<figure class=\"wp-block-image size-large\"><img loading=\"lazy\" decoding=\"async\" width=\"1024\" height=\"98\" src=\"https:\/\/hm.hedgehog-qd.xyz\/wp-content\/uploads\/2025\/01\/image-1-1024x98.png\" alt=\"\" class=\"wp-image-194\" srcset=\"https:\/\/hm.hedgehog-qd.xyz\/wp-content\/uploads\/2025\/01\/image-1-1024x98.png 1024w, https:\/\/hm.hedgehog-qd.xyz\/wp-content\/uploads\/2025\/01\/image-1-300x29.png 300w, https:\/\/hm.hedgehog-qd.xyz\/wp-content\/uploads\/2025\/01\/image-1-768x73.png 768w, https:\/\/hm.hedgehog-qd.xyz\/wp-content\/uploads\/2025\/01\/image-1.png 1111w\" sizes=\"auto, (max-width: 1024px) 100vw, 1024px\" \/><\/figure>\n\n\n\n<h2 class=\"wp-block-heading\">\u89e3\u51b3\u65b9\u6cd5<\/h2>\n\n\n\n<p>\u4e0b\u9762\u662f\u6211\u7684\u89e3\u51b3\u65b9\u6cd5\uff1a<\/p>\n\n\n\n<p>\u6211\u4eec\u4e00\u822c\u91c7\u53d6\u53d6\u5e73\u5747\u503c\u7684\u5904\u7406\u65b9\u6cd5\u3002\u5373\uff1a\u5bf9\u4e8e\u5b58\u5728\u91cd\u590d\u7684\u57fa\u56e0\uff0c\u6211\u4eec\u5408\u5e76\u8fd9\u4e2a\u57fa\u56e0\u6240\u6709\u91cd\u590d\u7684\u884c\uff0c\u5e76\u5728\u5408\u5e76\u65f6\u9488\u5bf9\u6bcf\u4e00\u4e2a\u6837\u672c\u53d6\u5e73\u5747\u503c\u3002\u8fd9\u662f\u6211\u7684\u4ee3\u7801\uff1a<\/p>\n\n\n\n<pre class=\"wp-block-luxe-blocks-syntaxhighlighter line-numbers language-r\"><code class=\"language-r\">library(data.table)\nexp_matrix &lt;- fread(\".\/sampleExp.txt\",sep='\\t',header=T,check.names=F, skip=1)  # \u8bfb\u53d6\u6587\u4ef6\uff0c\u6ce8\u610f\u6309\u7167\u9700\u6c42\u4fee\u6539\u6587\u4ef6\u540d\uff0c\u662f\u5426\u8df3\u8fc7\u884c\u4e4b\u7c7b\u7684\u3002fread\u8bfb\u53d6\u901f\u5ea6\u8f83\u5feb\ns=Sys.time()\nlibrary(limma)\nlibrary(stringr)\nlibrary(dplyr)\n\n# \u6709\u91cd\u590d\u5219\u53d6\u5747\u503c\n# \u6309\u7167'id'\u5217\u5206\u7ec4\uff0c\u8ba1\u7b97\u6bcf\u4e00\u5217\u7684\u5e73\u5747\u503c\uff0c\u5982\u6709\u9700\u8981\u8bf7\u4fee\u6539\nexp_matrix_avg &lt;- exp_matrix %>%\n  group_by(id) %>%\n  summarise(across(everything(), mean, na.rm = TRUE))\n\nexpr_mean = as.data.frame(exp_matrix_avg)\nrownames(expr_mean) = expr_mean[,1]\nexpr_mean = expr_mean[, -1]\n\nexpr_mean &lt;- as.data.frame(t(expr_mean))\n\ne=Sys.time()\nprint(\"\u8fd0\u884c\u65f6\u95f4:\")\nprint(e-s)\n# \u6b64\u5904expr_mean\u5c31\u662f\u5904\u7406\u597d\u7684\u6570\u636e\u96c6\u3002\u60a8\u53ef\u4ee5\u76f4\u63a5write.table\u8f93\u51fa\u4fdd\u5b58\u6216\u8005\u7ed9\u5230\u5176\u4ed6\u540e\u7eed\u5904\u7406\u6b65\u9aa4\u4e4b\u7c7b\u7684<\/code><\/pre>\n\n\n\n<p>\u6211\u6dfb\u52a0\u4e86\u65f6\u95f4\u7edf\u8ba1\u6765\u8bc4\u4f30\u8fd9\u4e2a\u4ee3\u7801\u7684\u6027\u80fd\u3002\u6211\u8fd8\u5236\u4f5c\u4e86\u597d\u51e0\u79cd\u5176\u4ed6\u7684\u7248\u672c\uff0c\u8fd9\u4e2a\u7248\u672c\u662f\u76ee\u524d\u6548\u7387\u6700\u9ad8\u7684\u3002<\/p>\n\n\n\n<p>\u5982\u679c\u9047\u5230\u5217\u540d\u9700\u8981\u622a\u65ad\u4ee5\u540e\u5bfc\u81f4\u884c\u540d\u548c\u5217\u540d\u90fd\u6709\u91cd\u590d\u7684\u60c5\u51b5\uff0c\u5c31\u5148\u7ed9\u884c\u540d\u53bb\u91cd\uff0c\u7136\u540e\u628a\u77e9\u9635\u8f6c\u7f6e\u4ee5\u540e\u518d\u7ed9\u65b0\u7684\u884c\u540d\uff08\u4e5f\u5c31\u662f\u539f\u6765\u7684\u5217\u540d\uff09\u518d\u53bb\u91cd\u4e00\u904d\u5c31\u884c\u3002\u64cd\u4f5c\u7ed3\u675f\u540e\u4e0d\u8981\u5fd8\u8bb0\u518d\u8f6c\u7f6e\u56de\u6765\uff08\u5982\u679c\u6709\u9700\u8981\u4fdd\u7559\u539f\u6709\u683c\u5f0f\uff09\u3002<\/p>\n\n\n\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u5728\u5b9e\u4e60\u7684\u65f6\u5019\u9047\u5230\u8fd9\u6837\u7684\u60c5\u51b5\uff1a\u6570\u636e\u96c6\u5728\u524d\u671f\u5904\u7406\u8fc7\u540e\u51fa\u73b0\u91cd\u590d\u7684\u884c\u6216\u8005\u5217\uff08\u4f8b\u5982\u622a\u77edbarcode\u4ee5\u540e\u5bfc\u81f4\u6709\u91cd\u590d\u7684\u5217\u540d [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":193,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[38,39,41,40],"class_list":["post-192","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-uncategorized","tag-r","tag-39","tag-41","tag-40"],"_links":{"self":[{"href":"https:\/\/hm.hedgehog-qd.xyz\/index.php?rest_route=\/wp\/v2\/posts\/192","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/hm.hedgehog-qd.xyz\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/hm.hedgehog-qd.xyz\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/hm.hedgehog-qd.xyz\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/hm.hedgehog-qd.xyz\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=192"}],"version-history":[{"count":2,"href":"https:\/\/hm.hedgehog-qd.xyz\/index.php?rest_route=\/wp\/v2\/posts\/192\/revisions"}],"predecessor-version":[{"id":196,"href":"https:\/\/hm.hedgehog-qd.xyz\/index.php?rest_route=\/wp\/v2\/posts\/192\/revisions\/196"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/hm.hedgehog-qd.xyz\/index.php?rest_route=\/wp\/v2\/media\/193"}],"wp:attachment":[{"href":"https:\/\/hm.hedgehog-qd.xyz\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=192"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/hm.hedgehog-qd.xyz\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=192"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/hm.hedgehog-qd.xyz\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=192"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}