{"id":28294,"date":"2024-02-06T10:24:58","date_gmt":"2024-02-06T02:24:58","guid":{"rendered":"http:\/\/www.biocloudservice.com\/wordpress\/?p=28294"},"modified":"2024-02-06T10:24:59","modified_gmt":"2024-02-06T02:24:59","slug":"%e8%b7%9f%e7%9d%80%e5%b0%8f%e6%9e%9c%e5%b1%95%e7%8e%b0%e6%95%b0%e6%8d%ae%e7%9a%84%e7%94%9f%e5%8a%a8%e5%8f%98%e5%8c%96%ef%bc%8c%e8%bd%bb%e6%9d%be%e5%a4%8d%e7%8e%b0if64-8%e6%96%87%e7%8c%ae%e4%b8%ad","status":"publish","type":"post","link":"http:\/\/www.biocloudservice.com\/wordpress\/?p=28294","title":{"rendered":"\u8ddf\u7740\u5c0f\u679c\u5c55\u73b0\u6570\u636e\u7684\u751f\u52a8\u53d8\u5316\uff0c\u8f7b\u677e\u590d\u73b0IF64.8\u6587\u732e\u4e2d\u70ab\u9177\u70ed\u529b\u56fe\uff0c\u5b9e\u73b0\u6307\u5b9a\u89d2\u5ea6\u65cb\u8f6c\uff01"},"content":{"rendered":"

\u5728\u5f53\u4eca\u79d1\u6280\u5feb\u901f\u53d1\u5c55\u7684\u65f6\u4ee3\uff0c\u6570\u636e\u53ef\u89c6\u5316\u6210\u4e3a\u79d1\u5b66\u7814\u7a76\u548c\u4fe1\u606f\u4f20\u9012\u4e2d\u4e0d\u53ef\u6216\u7f3a\u7684\u4e00\u73af\u3002\u5728\u8fd9\u4e2a\u9886\u57df\uff0c\u5c0f\u679c\u5e26\u5c0f\u4f19\u4f34\u53bb\u5b66\u4e60\u4e00\u4e9b\u7b80\u5355\u6613\u61c2\u7ed8\u56fe\u6280\u5de7\u3002\u8fd9\u6b21\u5462\u5c31\u548c\u5c0f\u679c\u4e00\u8d77\u5c55\u73b0\u6570\u636e\u7684\u751f\u52a8\u53d8\u5316\uff0c\u8f7b\u677e\u590d\u73b0IF64.8\u6587\u732e\u4e2d\u7684\u70ab\u9177\u70ed\u529b\u56fe\uff0c\u5b9e\u73b0\u6307\u5b9a\u89d2\u5ea6\u7684\u65cb\u8f6c\u3002<\/p>\n

\u5c0f\u4f19\u4f34\u4f1a\u5728\u8fd9\u91cc\u5b66\u5230\u5982\u4f55\u4f7f\u7528ggplot2\uff0c\u6784\u5efa\u7cbe\u7f8e\u7684\u70ed\u529b\u56fe\u3002\u800c\u5176\u4e2d\u7684\u91cd\u70b9\u4e4b\u4e00\uff0c\u5c31\u662f\u5982\u4f55\u5b9e\u73b0\u6307\u5b9a\u89d2\u5ea6\u7684\u65cb\u8f6c\uff0c\u4f7f\u5f97\u56fe\u5f62\u66f4\u5177\u5438\u5f15\u529b\u548c\u53ef\u8bfb\u6027\u3002\u5c06\u5b66\u4e60\u8fc7\u7a0b\u53d8\u5f97\u5bcc\u6709\u8da3\u5473\u6027\uff0c\u6fc0\u53d1\u5b66\u4e60\u8005\u7684\u521b\u9020\u529b\u3002\u6211\u4eec\u8fd8\u5b66\u5728\u590d\u73b0\u4e2d\u5b66\u4e60\u5230\u5982\u4f55\u9009\u62e9\u989c\u8272\u3001\u8c03\u6574\u5c3a\u5bf8\u3001\u6dfb\u52a0\u6ce8\u91ca\u7b49\uff0c\u8bdd\u4e0d\u591a\u8bf4\uff0c\u6211\u4eec\u5148\u6765\u770b\u770b\u8fd9\u6b21\u8981\u590d\u73b0\u7684\u5185\u5bb9\uff0c\u662f\u6765\u81eaIF64.8\u9ad8\u5206\u6587\u732e\u300aWhole-genome doubling drives oncogenic loss of chromatin segregation\u300b\u4e2d\u7684\u56fe1 d\u548ce<\/p>\n

<\/p>\n

\u8fd9\u5e45\u56fe\u7b2c\u4e00\u773c\u770b\u53ea\u662f\u89c9\u5f97\u719f\u6089\uff0c\u5176\u5b9e\uff0c\u5c31\u662f\u70ed\u529b\u56fe\u8fdb\u884c\u4e86\u65cb\u8f6c\uff0c\u800c\u4e14\u56fe\u4e2d\u7684\u4e00\u4e9b\u5c0f\u7ec6\u8282\u4e5f\u975e\u5e38\u7684\u6709\u610f\u601d\uff0c\u6bd4\u5982\u56fee\u4e2d<\/p>\n

<\/p>\n

A\u548cB\u7684\u6ce8\u91ca\uff0c\u6211\u4eec\u81ea\u5df1\u7684\u6570\u636e\u8981\u662f\u5411\u7279\u6b8a\u7684\u6dfb\u52a0\u4e00\u4e9b\u6587\u672c\u4e2d\u7684\u6ce8\u91ca\u4fe1\u606f\uff0c\u4e5f\u53ef\u4ee5\u5b66\u4e60\u8fd9\u4e2a\u6587\u732e\u4e2d\u7684\u7ed8\u56fe\u65b9\u5f0f\uff0c\u597d\u4e86\uff0c\u6211\u4eec\u4e0b\u9762\u5c31\u53bb\u5b66\u4e60\u5427<\/p>\n

\u8fd9\u91cc\u5462\u5c0f\u679c\u8fd8\u8981\u8bf4\u660e\u4e00\u4e0b\uff0c\u6211\u4eec\u8fd9\u6b21\u505a\u7684\u6570\u636e\u5206\u6790\u6570\u636e\u91cf\u662f\u975e\u5e38\u5927\u7684\uff0c\u6211\u4eec\u64cd\u4f5c\u5360\u7528\u5185\u5b58\u6bd4\u8f83\u5927\uff0c\u6240\u4ee5\u5efa\u8bae\u5404\u4f4d\u5c0f\u4f19\u4f34\u53ef\u4ee5\u4f7f\u7528\u670d\u52a1\u5668\u53bb\u8fd0\u884c\uff0c\u5982\u679c\u6ca1\u6709\u81ea\u5df1\u7684\u670d\u52a1\u5668\u4e5f\u6ca1\u6709\u5173\u7cfb\uff0c\u53ef\u4ee5\u6b22\u8fce\u8054\u7cfb\u6211\u4eec\u4f7f\u7528\u670d\u52a1\u5668\u79df\u8d41~<\/p>\n

\u8fd9\u5176\u5b9e\u662f\u4e00\u4e2a\u4e09\u89d2\u5f62\u7684\u70ed\u56fe\uff0c\u6211\u4eec\u4ece\u57fa\u7840\u7684\u5b66\u4e60<\/p>\n

\u6211\u4eec\u770b\u4e00\u4e0b\uff0c\u6211\u4eec\u7ed8\u5236\u57fa\u7840\u7684\u70ed\u529b\u56fe\u662f\u5982\u4f55\u7ed8\u5236\u7684\uff0c<\/p>\n

\u5148\u6784\u5efa\u4e00\u4e2a\u5750\u6807\u7cfb<\/p>\n

library(ggplot2)<\/p>\n

#\u5efa\u4e00\u4e2a\u6563\u70b9\u56fe<\/p>\n

pp<-ggplot()+# \u521b\u5efa\u4e00\u4e2aggplot\u5bf9\u8c61<\/p>\n

geom_point(aes(x=1,y=1))+#\u6dfb\u52a0\u6563\u70b9\u56fe\u7684\u51e0\u4f55\u5bf9\u8c61<\/p>\n

coord_cartesian(clip = “off”)#\u8bbe\u7f6e\u5750\u6807\u7cfb\u4e3aCartesian\u5750\u6807\u7cfb<\/p>\n

\u7136\u540e\u6211\u4eec\u7ed8\u5236\u56fe\u50cf<\/p>\n

pp<\/p>\n

cowplot::ggdraw()+#\u521b\u5efa\u4e00\u4e2aggdraw\u5bf9\u8c61\uff0c\u7528\u4e8e\u7ed8\u5236\u56fe\u5f62<\/p>\n

#\u5c06\u4e4b\u524d\u521b\u5efa\u7684ggplot\u5bf9\u8c61pp\u8f6c\u6362\u4e3aggplotify\u5bf9\u8c61\uff0c<\/p>\n

#\u6307\u5b9a\u65cb\u8f6c\u89d2\u5ea6\u4e3a-45\u5ea6\u3002<\/p>\n

#\u5c06\u524d\u9762\u5b9a\u4e49\u7684\u6563\u70b9\u56fe\u8fdb\u884c\u4e86\u89d2\u5ea6\u65cb\u8f6c\u7684\u5904\u7406<\/p>\n

cowplot::draw_plot(ggplotify::as.ggplot(pp,angle = -45),<\/p>\n

width = 0.5,height = 0.5,#\u8bbe\u7f6e\u7ed8\u5236\u56fe\u5f62\u7684\u5bbd\u5ea6\u548c\u9ad8\u5ea6\u4e3a0.5<\/p>\n

#\u8bbe\u7f6e\u6c34\u5e73\u548c\u5782\u76f4\u65b9\u5411\u7684\u5bf9\u9f50\u65b9\u5f0f<\/p>\n

hjust = -0.2,#<\/p>\n

vjust = -0.5)<\/p>\n

<\/p>\n

\u5c31\u662f\u8fd9\u79cd\uff0c\u6211\u4eec\u5c06\u4e00\u5f00\u59cb\u7684\u56fe\u5f62\uff0c\u8fdb\u884c\u65cb\u8f6c\u5c31\u53ef\u4ee5\u8fbe\u5230\u6587\u732e\u4e2d\u7684\u53ef\u89c6\u5316\u6548\u679c\uff0c<\/p>\n

\u90a3\u4e48\u4e0b\u9762\u6211\u4eec\u5c31\u5f00\u59cb\u6b63\u5f0f\u7684\u590d\u73b0\u5185\u5bb9<\/p>\n

\u6211\u4eec\u5148\u6765\u770b\u4e00\u4e0b\u6570\u636e\u683c\u5f0f<\/p>\n

library(readxl)<\/p>\n

#install.packages(“rlang”)<\/p>\n

dat<-read_excel(“data1.xlsx”)<\/p>\n

dat<\/p>\n

<\/p>\n

#\u57fa\u7840<\/p>\n

library(ggplot2)<\/p>\n

ggplot(data=dat,aes(x=x,y=y))+<\/p>\n

#\u6dfb\u52a0\u70ed\u529b\u56fe\u7684\u51e0\u4f55\u5bf9\u8c61<\/p>\n

geom_tile(aes(fill=log2(value)))+#\u8868\u793a\u8981\u521b\u5efa\u77e9\u5f62\u70ed\u529b\u56fe\uff0c<\/p>\n

#fill\u6307\u5b9a\u4e86\u77e9\u5f62\u7684\u989c\u8272\u6620\u5c04\uff0c\u4f7f\u7528log2(value)\u6765\u586b\u5145\u989c\u8272<\/p>\n

coord_equal(clip = “off”) -> p#\u8bbe\u7f6e\u5750\u6807\u7cfb\u4e3a\u7b49\u6bd4\u4f8b\u5750\u6807\u7cfb<\/p>\n

#clip = “off\u201c\u8868\u793a\u56fe\u5f62\u5143\u7d20\u53ef\u4ee5\u8d85\u51fa\u5750\u6807\u7cfb\u7684\u8303\u56f4\u800c\u4e0d\u88ab\u88c1\u526a<\/p>\n

p<\/p>\n

<\/p>\n

\u8fd9\u91cc\u6211\u4eec\u5c31\u57fa\u7840\u7684\u70ed\u529b\u56fe\u7ed8\u5236\u51fa\u6765\u4e86\uff0c\u4f46\u662f\u548c\u6587\u732e\u4e2d\u8fd8\u6709\u8bb8\u591a\u7684\u4e0d\u540c\uff0c\u6bd4\u5982\u56fe\u4f8b\u8fd8\u6709\u6700\u91cd\u8981\u7684\u89d2\u5ea6<\/p>\n

\u8fd8\u6709\u4e00\u4e9b\u6587\u672c\u7684\u6ce8\u91ca<\/p>\n

\u6211\u4eec\u5148\u4ece\u6587\u672c\u6ce8\u91ca\u590d\u73b0<\/p>\n

#\u6dfb\u52a0\u6587\u672c\u6807\u7b7e<\/p>\n

library(tidyverse)<\/p>\n

dat %>% pull(x) %>% unique()#\u4ece\u6570\u636e\u96c6dat\u4e2d\u63d0\u53d6x\u5217\u7684\u552f\u4e00\u503c<\/p>\n

p+<\/p>\n

#\u6dfb\u52a0\u6587\u672c\u6807\u7b7e\u7684\u51e0\u4f55\u5bf9\u8c61<\/p>\n

geom_text(data=data.frame(x=1:8,y=0:7,#\u521b\u5efa\u4e86\u4e00\u4e2a\u65b0\u7684\u6570\u636e\u6846<\/p>\n

label=dat %>% pull(x) %>% unique()),<\/p>\n

aes(x=x,y=y,label=label),angle=90<\/p>\n

)+<\/p>\n

theme_void() -> p1#\u5c06\u56fe\u5f62\u7684\u4e3b\u9898\u8bbe\u7f6e\u4e3a\u7a7a<\/p>\n

p1<\/p>\n

<\/p>\n

\u8fd9\u91cc\u5c06\u4e3b\u9898\u8bbe\u7f6e\u4e3a\u7a7a\uff0c\u7136\u540e\u628a\u6ce8\u91ca\u4fe1\u606f\u653e\u5728\u4e2d\u95f4\uff0c\u8fd8\u6709\u5c31\u662f\u6587\u732e\u4e2d\u6709\u610f\u601d\u7684\uff0cAB\u7684\u6ce8\u91ca\u4fe1\u606f\uff0c\u5176\u5b9e\u662f\u5728\u6307\u5b9a\u5730\u65b9\u6dfb\u52a0\u7ebf\u6bb5\u6765\u770b\u770b\u5982\u4f55\u6dfb\u52a0\u7684<\/p>\n

\u5728\u6307\u5b9a\u7684\u5730\u65b9\u6dfb\u52a0\u7ebf\u6bb5<\/p>\n

#\u4e4b\u524d\u521b\u5efa\u7684\u5e26\u6709\u6587\u672c\u6807\u7b7e\u7684\u70ed\u529b\u56fe\u4e0a\u6dfb\u52a0\u4e86\u4e24\u4e2a\u65b9\u6846<\/p>\n

p1+<\/p>\n

#geom_path\u6dfb\u52a0\u8def\u5f84\u7684\u51e0\u4f55\u5bf9\u8c61\uff0c\u7528\u4e8e\u7ed8\u5236\u4e24\u4e2a\u65b9\u6846<\/p>\n

geom_path(data=data.frame(x=c(0.5,0.5,4.5,4.5,3.5,3.5,2.5,2.5,1.5,1.5,0.5),#\u5b9a\u4e49\u65b9\u6846\u7684\u5f62\u72b6<\/p>\n

y=c(0.5,4.5,4.5,3.5,3.5,2.5,2.5,1.5,1.5,0.5,0.5)),<\/p>\n

aes(x=x,y=y),#\u6307\u5b9a\u65b9\u6846\u8def\u5f84\u7684x\u548cy\u5750\u6807<\/p>\n

color=”black”,size=1)+#\u8bbe\u7f6e\u8def\u5f84\u7684\u989c\u8272\u4e3a\u9ed1\u8272\uff0c\u5927\u5c0f\u4e3a1<\/p>\n

geom_path(data=data.frame(x=c(0.5,0.5,4.5,4.5,3.5,3.5,2.5,2.5,1.5,1.5,0.5)+4,<\/p>\n

y=c(0.5,4.5,4.5,3.5,3.5,2.5,2.5,1.5,1.5,0.5,0.5)+4),<\/p>\n

aes(x=x,y=y),<\/p>\n

color=”black”,size=1) -> p2<\/p>\n

p2<\/p>\n

<\/p>\n

\u662f\u4e0d\u662f\u6709\u7ebf\u6bb5\uff0c\u6211\u4eec\u518d\u53bb\u4fee\u6539\u914d\u8272\uff0c\u968f\u673a\u6311\u9009\u51e0\u4e2a\u989c\u8272<\/p>\n

#\u4fee\u6539\u914d\u8272<\/p>\n

###<\/p>\n

library(ggsci)<\/p>\n

library(scales) #\u7528\u6765\u5c55\u793a\u989c\u8272<\/p>\n

## \u81ea\u7136\u51fa\u7248\u96c6\u56e2 (Nature Publishing Group) \u98ce\u683c\u7684\u989c\u8272\u65b9\u6848<\/p>\n

mypal <- pal_npg(“nrc”, alpha = 0.7)(10)<\/p>\n

mypal<\/p>\n

show_col(mypal,ncol = 5)<\/p>\n

####<\/p>\n

#\u4e4b\u524d\u521b\u5efa\u7684\u56fe\u5f62\uff08\u5e26\u6709\u4e24\u4e2a\u65b9\u6846\u7684\u70ed\u529b\u56fe\uff09\u8fdb\u884c\u989c\u8272\u548c\u4e3b\u9898\u7684\u8c03\u6574<\/p>\n

#scale_fill_gradient2\u51fd\u6570\u8c03\u6574\u586b\u5145\u989c\u8272\u7684\u6e10\u53d8<\/p>\n

p2+<\/p>\n

scale_fill_gradient2(low = scales::muted(“#DC0000B2”),#\u8bbe\u7f6e\u4f4e\u503c\u989c\u8272\u4e3a\u6df1\u7ea2\u8272\uff0c#\u4f7f\u7528muted\u51fd\u6570\u8c03\u6574\u989c\u8272\u900f\u660e\u5ea6<\/p>\n

mid = “white”,#\u8bbe\u7f6e\u4e2d\u95f4\u503c\u989c\u8272\u4e3a\u767d\u8272<\/p>\n

high = scales::muted(“#3C5488B2”),#\u8bbe\u7f6e\u9ad8\u503c\u989c\u8272\u4e3a\u6df1\u84dd\u8272<\/p>\n

midpoint = 0)+#\u8bbe\u7f6e\u989c\u8272\u53d8\u5316\u7684\u4e2d\u70b9\u4e3a0<\/p>\n

#\u4e0d\u663e\u793a\u56fe\u4f8b<\/p>\n

theme(legend.position = “none”) -> p3<\/p>\n

p3<\/p>\n

<\/p>\n

\u8fd9\u6837\u4e00\u6765\u5c31\u662f\u6587\u732e\u4e2d\u5dee\u4e0d\u591a\u4e86\uff0c\u4e0d\u8fc7\u6211\u4eec\u8fd8\u8981\u6dfb\u52a0\u6587\u672c\u7684\u4fe1\u606f<\/p>\n

#\u989d\u5916\u6ce8\u91ca<\/p>\n

#annotate\u51fd\u6570\u6dfb\u52a0\u7ebf\u6bb5\u6ce8\u91ca<\/p>\n

p3+<\/p>\n

annotate(geom = “segment”,x=0.4,xend=0.4,y=0.5,yend=4.5,#\u4ece\u5750\u6807(0.4, 0.5)\u5230(0.4, 4.5)\u7684\u7ebf\u6bb5<\/p>\n

size=2,#\u8bbe\u7f6e\u7ebf\u6bb5\u7684\u7c97\u7ec6<\/p>\n

color=”#DC0000B2″)+<\/p>\n

annotate(geom = “text”,<\/p>\n

x=0.2,y=2.5,<\/p>\n

label=”A”,#\u5728\u5750\u6807(0.2, 2.5)\u5904\u6dfb\u52a0\u6587\u672c”A”<\/p>\n

angle=45,#\u8bbe\u7f6e\u6587\u672c\u7684\u89d2\u5ea6\u4e3a45\u5ea6<\/p>\n

size=5)+#\u6587\u672c\u5927\u5c0f\u4e3a5<\/p>\n

annotate(geom = “segment”,<\/p>\n

x=4.5,xend=8.5,y=8.6,<\/p>\n

yend=8.6,<\/p>\n

size=2,#\u7f6e\u7ebf\u6bb5\u7684\u7c97\u7ec6<\/p>\n

color=”#3C5488B2″)+<\/p>\n

annotate(geom = “text”,<\/p>\n

x=6.5,y=8.8,<\/p>\n

label=”B”,#\u5728\u5750\u6807(6.5, 8.8)\u5904\u6dfb\u52a0\u6587\u672c”B”<\/p>\n

angle=45,#\u7f6e\u6587\u672c\u7684\u89d2\u5ea6\u4e3a45\u5ea6<\/p>\n

size=5) -> p4<\/p>\n

p4<\/p>\n

<\/p>\n

\u65e2\u7136\u6ce8\u91ca\u4fe1\u606f\u4e5f\u6709\u4e86\uff0c\u5c31\u662f\u6700\u6709\u610f\u601d\u7684\u65cb\u8f6c\u4e86<\/p>\n

#\u65cb\u8f6c45<\/p>\n

library(cowplot)<\/p>\n

ggdraw()+#\u521b\u5efa\u4e00\u4e2aggdraw\u5bf9\u8c61<\/p>\n

draw_plot(<\/p>\n

ggplotify::as.ggplot(p4,angle = -45),#\u5c06\u4e4b\u524d\u521b\u5efa\u7684p4\u56fe\u5f62\u8f6c\u6362\u4e3aggplot\u5bf9\u8c61\uff0c\u6307\u5b9a\u65cb\u8f6c\u89d2\u5ea6\u4e3a-45\u5ea6<\/p>\n

width = 0.7,height = 0.7,#\u8bbe\u7f6e\u63d2\u5165\u56fe\u5f62\u7684\u5bbd\u5ea6\u548c\u9ad8\u5ea6\u4e3a0.7<\/p>\n

#\u8bbe\u7f6e\u63d2\u5165\u56fe\u5f62\u7684\u6c34\u5e73\u548c\u5782\u76f4\u65b9\u5411\u7684\u5bf9\u9f50\u65b9\u5f0f<\/p>\n

hjust = -0.2,<\/p>\n

vjust = -0.1)+#<\/p>\n

annotate(geom = “text”,#\u6dfb\u52a0\u6587\u672c\u6ce8\u91ca<\/p>\n

x=0.5,y=0.2,<\/p>\n

label=”Chromatin subcompartments”<\/p>\n

) -> p5<\/p>\n

p5<\/p>\n

<\/p>\n

\u8fd9\u6837\u4e00\u6765\u5c31\u662f\u6587\u732e\u4e2d\u5185\u5bb9\u5dee\u4e0d\u591a\u4e86\uff0c\u4e0d\u591a\u8fd8\u4f3c\u4e4e\u5c11\u4e86\u70b9\u4ec0\u4e48\uff0c\u662f\u56fe\u4f8b\u7684\u8bbe\u7f6e<\/p>\n

#\u5bf9\u4e4b\u524d\u521b\u5efa\u7684\u56fe\u5f62p2\u8fdb\u884c\u4e00\u4e9b\u8c03\u6574<\/p>\n

p2+<\/p>\n

scale_fill_gradient2(low = scales::muted(“#DC0000B2”),<\/p>\n

mid = “white”,<\/p>\n

high = scales::muted(“#3C5488B2”),<\/p>\n

midpoint = 0)+<\/p>\n

theme(legend.position = “bottom”)+#\u5c06\u56fe\u4f8b\u4f4d\u7f6e\u8bbe\u7f6e\u5728\u5e95\u90e8<\/p>\n

guides(fill=guide_colorbar(title.position = “top”,<\/p>\n

title.hjust = 0.5,barwidth = 20)) -> p3.1<\/p>\n

p5+<\/p>\n

annotation_custom(grob = ggpubr::get_legend(p3.1),#\u83b7\u53d6p3.1\u56fe\u5f62\u7684\u56fe\u4f8b<\/p>\n

xmin = 0.1,xmax=0.9,#\u7f6e\u63d2\u5165\u56fe\u4f8b\u7684\u6c34\u5e73\u4f4d\u7f6e\u8303\u56f4<\/p>\n

ymin=0.1,ymax=0.2#\u8bbe\u7f6e\u63d2\u5165\u56fe\u4f8b\u7684\u5782\u76f4\u4f4d\u7f6e\u8303\u56f4<\/p>\n

)-> p6<\/p>\n

p6<\/p>\n

<\/p>\n

\u4e0d\u8fc7\u6587\u732e\u4e2d\u662f\u591a\u4e2a\u56fe\uff0c\u6211\u4eec\u4e5f\u53ef\u4ee5\u628a\u591a\u4e2a\u8fd9\u6837\u7684\u56fe\u8fdb\u884c\u7ec4\u5408\uff0c\u5c31\u6bd4\u5982<\/p>\n

#\u591a\u4e2a<\/p>\n

library(patchwork)<\/p>\n

p6+p6<\/p>\n

<\/p>\n

\u5176\u5b9e\u5f88\u7b80\u5355\uff0c\u8fd9\u6837\u4e00\u6765\u6211\u4eec\u7684\u590d\u73b0\u5c31\u5b8c\u6210\u4e86\uff0c\u4e00\u4e9b\u4ee3\u7801\u7684\u6ce8\u91ca\uff0c\u5c0f\u679c\u90fd\u8fdb\u884c\u4e86\u5907\u6ce8\uff0c\u5c0f\u4f19\u4f34\u4e00\u5b9a\u8981\u597d\u597d\u7684\u7406\u89e3\u5176\u4e2d\u7684\u610f\u601d\uff0c\u5c06\u81ea\u5df1\u7684\u6570\u636e\u53bb\u5b66\u4e60\u7ed8\u5236\uff0c\u597d\u4e86\uff0c\u5feb\u53bb\u52a8\u624b\u8bd5\u8bd5\u5427\uff01\u7ed8\u5236\u51fa\u7cbe\u7f8e\u7684\u56fe\u50cf\u6765\uff01<\/p>\n

\u6700\u540e\u5462\uff0c\u5c0f\u679c\u7ed9\u5c0f\u4f19\u4f34\u5e26\u4e2a\u5c0f\u798f\u5229\uff0c\u5982\u679c\u5c0f\u4f19\u4f34\u89c9\u5f97\u81ea\u5df1\u8fd0\u884c\u4ee3\u7801\u592a\u9ebb\u70e6\uff0c\u53ef\u4ee5\u8bd5\u8bd5\u6211<\/p>\n

\u4eec\u7684\u4e91\u751f\u4fe1\u5c0f\u5de5\u5177\u54df\uff0c\u91cc\u9762\u6709\u6210\u719f\u7684\u4ee3\u7801\uff0c\u53ea\u8981\u8f93\u5165\u5408\u9002\u7684\u6570\u636e\u5c31\u53ef\u4ee5\u76f4\u63a5\u51fa\u60f3\u8981\u7684\u56fe\u5462\u3002\u8fd9\u662f\u6211\u4eec\u7684\u7f51\u5740http:\/\/www.biocloudservice.com\/home.html<\/a><\/p>\n

\u591a\u591a\u5173\u6ce8\u6211\u4eec\u516c\u4f17\u53f7\uff0c\u4e00\u6765\u5b66\u751f\u4fe1\uff01<\/p>\n","protected":false},"excerpt":{"rendered":"

\u5728\u5f53\u4eca\u79d1\u6280\u5feb\u901f\u53d1\u5c55\u7684\u65f6\u4ee3\uff0c\u6570\u636e\u53ef\u89c6\u5316\u6210\u4e3a\u79d1\u5b66\u7814\u7a76\u548c\u4fe1\u606f\u4f20\u9012\u4e2d\u4e0d\u53ef\u6216\u7f3a\u7684\u4e00\u73af\u3002\u5728\u8fd9\u4e2a\u9886\u57df\uff0c\u5c0f\u679c\u5e26\u5c0f\u4f19\u4f34\u53bb\u5b66\u4e60\u4e00\u4e9b […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","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\/28294"}],"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=28294"}],"version-history":[{"count":1,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/28294\/revisions"}],"predecessor-version":[{"id":28307,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/28294\/revisions\/28307"}],"wp:attachment":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=28294"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=28294"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=28294"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}