{"id":340,"date":"2018-04-23T19:11:02","date_gmt":"2018-04-23T11:11:02","guid":{"rendered":"http:\/\/www.wuchangsong.com\/?p=340"},"modified":"2018-04-23T19:11:02","modified_gmt":"2018-04-23T11:11:02","slug":"ggplot2%e7%bb%98%e5%88%b6%e5%af%8c%e9%9b%86%e5%88%86%e6%9e%90%e6%9f%b1%e7%8a%b6%e5%9b%be","status":"publish","type":"post","link":"http:\/\/www.wuchangsong.com\/?p=340","title":{"rendered":"ggplot2\u7ed8\u5236\u5bcc\u96c6\u5206\u6790\u67f1\u72b6\u56fe"},"content":{"rendered":"<pre>\r\nlibrary(\"ggplot2\")\r\npathway=read.table(\"COS3_kegg_total.xls\",header=T,sep=\"\\t\")\r\npathbar = ggplot(pathway,aes(x=Pathway,y=-1*log10(Pvalue)))\r\npathbar + geom_bar(stat=\"identity\")\r\npathbar + geom_bar(stat=\"identity\") + coord_flip()\r\npathbar+geom_bar(stat=\"identity\",color=\"red\",fill=\"blue\")+coord_flip()\r\npathbar+geom_bar(stat=\"identity\",aes(fill=-1*log10(Pvalue)))+coord_flip()\r\nporder=factor(as.integer(rownames(pathway)),labels=pathway$Pathway)\r\npathbar+geom_bar(stat=\"identity\",aes(x=porder,fill=-1*log10(Pvalue)))+coord_flip()\r\npathbar+geom_bar(stat=\"identity\",aes(x=rev(porder),fill=-1*log10(Pvalue)))+coord_flip()\r\nporder=factor(as.integer(rownames(pathway)),labels=rev(pathway$Pathway))\r\npathbar+geom_bar(stat=\"identity\",aes(x=rev(porder),fill=-1*log10(Pvalue)))+coord_flip()\r\npqbar=pathbar+geom_bar(stat=\"identity\",aes(x=rev(porder),fill=-1*log10(Pvalue)))+coord_flip()+theme(legend.position=\"none\")+labs(title=\"Top20 of pathway enrichment\",y=expression(-log[10](Pvalue)))\r\npqbar\r\npqbar+geom_hline(yintercept=2,color=c(\"red\"),linetype=4)\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>library(&#8220;ggplot2&#8221;) pathway=read.table(&#8220;COS3_kegg_total.xls&#8221;,header=T,sep=&#8221;\\t&#8221;) pathbar = ggplot(pathway,aes(x=Pathway,y=-1*log10(Pvalue))) pathbar + geom_bar(stat=&#8221;identity&#8221;) pathbar + geom_bar(stat=&#8221;identity&#8221;) + coord_flip() pathbar+geom_bar(stat=&#8221;identity&#8221;,color=&#8221;red&#8221;,fill=&#8221;blue&#8221;)+coord_flip() pathbar+geom_bar(stat=&#8221;identity&#8221;,aes(fill=-1*log10(Pvalue)))+coord_flip() porder=factor(as.integer(rownames(pathway)),labels=pathway$Pathway) pathbar+geom_bar(stat=&#8221;identity&#8221;,aes(x=porder,fill=-1*log10(Pvalue)))+coord_flip() pathbar+geom_bar(stat=&#8221;identity&#8221;,aes(x=rev(porder),fill=-1*log10(Pvalue)))+coord_flip() porder=factor(as.integer(rownames(pathway)),labels=rev(pathway$Pathway)) pathbar+geom_bar(stat=&#8221;identity&#8221;,aes(x=rev(porder),fill=-1*log10(Pvalue)))+coord_flip() pqbar=pathbar+geom_bar(stat=&#8221;identity&#8221;,aes(x=rev(porder),fill=-1*log10(Pvalue)))+coord_flip()+theme(legend.position=&#8221;none&#8221;)+labs(title=&#8221;Top20 of pathway enrichment&#8221;,y=expression(-log[10](Pvalue))) pqbar pqbar+geom_hline(yintercept=2,color=c(&#8220;red&#8221;),linetype=4)<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10],"tags":[],"_links":{"self":[{"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=\/wp\/v2\/posts\/340"}],"collection":[{"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=340"}],"version-history":[{"count":1,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=\/wp\/v2\/posts\/340\/revisions"}],"predecessor-version":[{"id":341,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=\/wp\/v2\/posts\/340\/revisions\/341"}],"wp:attachment":[{"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=340"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=340"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=340"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}