{"id":773,"date":"2021-05-30T20:55:35","date_gmt":"2021-05-30T12:55:35","guid":{"rendered":"http:\/\/www.wuchangsong.com\/?p=773"},"modified":"2021-05-30T22:30:31","modified_gmt":"2021-05-30T14:30:31","slug":"%e6%95%a3%e7%82%b9%e5%9b%be%e5%8a%a0%e5%af%86%e5%ba%a6%e5%9b%be","status":"publish","type":"post","link":"http:\/\/www.wuchangsong.com\/?p=773","title":{"rendered":"\u6563\u70b9\u56fe\u52a0\u5bc6\u5ea6\u56fe"},"content":{"rendered":"<pre>library(ggplot2)\nlibrary(tidyverse)\nlibrary(ggExtra)\ndata = read.table(\"mulvscon_ma.xls\",header=T,row.names=1)\naes = aes(x=log2(baseMean),y=log2FoldChange)\nmaplot = ggplot(data=data,aes) + geom_point(aes(color=significance),size=0.5, show.legend = F)\np1 = maplot + scale_color_manual(values=c(\"#a92323\",\"#999999\",\"#a92323\")) + geom_hline(yintercept=0,linetype=2,color=\"black\")+geom_hline(yintercept=0.5,linetype=4,color=\"black\")+ geom_hline(yintercept=-0.5,linetype=4,color=\"black\")+theme_classic()\np2=ggMarginal(p1, type=\"density\", fill=\"purple\", color=\"purple\")\np2\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>library(ggplot2) library(tidyverse) library(ggExtra) data = read.table(&#8220;mulvscon_ma.xls&#8221;,header=T,row.names=1) aes = aes(x=log2(baseMean),y=log2FoldChange) maplot = ggplot(data=data,aes) + geom_point(aes(color=significance),size=0.5, show.legend = F) p1 = maplot + scale_color_manual(values=c(&#8220;#a92323&#8243;,&#8221;#999999&#8243;,&#8221;#a92323&#8243;)) + geom_hline(yintercept=0,linetype=2,color=&#8221;black&#8221;)+geom_hline(yintercept=0.5,linetype=4,color=&#8221;black&#8221;)+ geom_hline(yintercept=-0.5,linetype=4,color=&#8221;black&#8221;)+theme_classic() p2=ggMarginal(p1, type=&#8221;density&#8221;, fill=&#8221;purple&#8221;, color=&#8221;purple&#8221;) p2<\/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\/773"}],"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=773"}],"version-history":[{"count":2,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=\/wp\/v2\/posts\/773\/revisions"}],"predecessor-version":[{"id":776,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=\/wp\/v2\/posts\/773\/revisions\/776"}],"wp:attachment":[{"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=773"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=773"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=773"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}