{"id":818,"date":"2024-11-06T16:24:00","date_gmt":"2024-11-06T08:24:00","guid":{"rendered":"https:\/\/linguopeng.top\/?p=818"},"modified":"2024-11-06T16:24:00","modified_gmt":"2024-11-06T08:24:00","slug":"%e6%a0%b9%e6%8d%aeotu%e7%ae%97top100%e8%8f%8c%e7%be%a4%e7%9b%b8%e5%af%b9%e4%b8%b0%e5%ba%a6%e5%80%bc","status":"publish","type":"post","link":"https:\/\/linguopeng.top\/?p=818","title":{"rendered":"\u6839\u636eOTU\u7b97top100\u83cc\u7fa4\u76f8\u5bf9\u4e30\u5ea6\u503c"},"content":{"rendered":"\n<pre class=\"wp-block-code\"><code>#\u6839\u636eOTU\u7b97top100\u83cc\u7fa4\u76f8\u5bf9\u4e30\u5ea6\u503c\nlibrary(tidyverse)\nrm(list=ls())\ndf&lt;-read.csv(\"1.csv\",header=TRUE,row.names=1,\n             stringsAsFactors=FALSE)\nhead(df)\nsample&lt;-colnames(df)&#91;sapply(df,is.numeric)]\nsample\ntemp&lt;-df&#91;,sample]\ndf$sum&lt;-rowSums(temp,na.rm=T)\ndf&lt;-df&#91;order(df$sum,decreasing=T),]\ndf1&lt;-df&#91;1:100,]\ndf1&lt;-na.omit(df1)\ndf2&lt;-df&#91;100+1:nrow(df),]\ndf1&#91;\"Others\",]&lt;-colSums(df2,na.rm=T)\ndf_per&lt;-sweep(df1,2,colSums(df),\"\/\")\ndf_per1&lt;-df_per*100\nwrite.csv(df_per1,\"top100.csv\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><div class='fancybox-wrapper lazyload-container-unload' data-fancybox='post-images' href='https:\/\/linguopeng.top\/wp-content\/uploads\/2024\/11\/1.png'><img class=\"lazyload lazyload-style-1\" src=\"data:image\/svg+xml;base64,PCEtLUFyZ29uTG9hZGluZy0tPgo8c3ZnIHdpZHRoPSIxIiBoZWlnaHQ9IjEiIHhtbG5zPSJodHRwOi8vd3d3LnczLm9yZy8yMDAwL3N2ZyIgc3Ryb2tlPSIjZmZmZmZmMDAiPjxnPjwvZz4KPC9zdmc+\"  loading=\"lazy\" decoding=\"async\" width=\"1202\" height=\"525\" data-original=\"https:\/\/linguopeng.top\/wp-content\/uploads\/2024\/11\/1.png\" src=\"data:image\/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAYAAAAfFcSJAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAAANSURBVBhXYzh8+PB\/AAffA0nNPuCLAAAAAElFTkSuQmCC\" alt=\"\" class=\"wp-image-819\"\/><\/div><\/figure>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-818","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"_links":{"self":[{"href":"https:\/\/linguopeng.top\/index.php?rest_route=\/wp\/v2\/posts\/818","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/linguopeng.top\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/linguopeng.top\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/linguopeng.top\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/linguopeng.top\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=818"}],"version-history":[{"count":1,"href":"https:\/\/linguopeng.top\/index.php?rest_route=\/wp\/v2\/posts\/818\/revisions"}],"predecessor-version":[{"id":820,"href":"https:\/\/linguopeng.top\/index.php?rest_route=\/wp\/v2\/posts\/818\/revisions\/820"}],"wp:attachment":[{"href":"https:\/\/linguopeng.top\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=818"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/linguopeng.top\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=818"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/linguopeng.top\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=818"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}