1

4 つの異なる図で 1 つのプロットを作成することができました。ただし、軸ラベルは表示されません。私はRの初心者なので、この種のプロットに軸ラベルを追加する方法を教えていただければ幸いです。X 軸: 度 Y 軸: 対数 (累積分布)

グラフは igraph-Functions を使用します。

ここにグラフがあります: ここに画像の説明を入力 そしてここに私のコードがあります:

par(mar = rep(2, 4))  
par(mfrow=c(2,2))               
ddU <- degree.distribution(USAN_g_num, cumulative=TRUE, mode="in")
plot(ddU,  log="xy", col=ifelse(degree.distribution(USAN_g_num, cumulative=FALSE,     mode="in")==0 ,'white',"black"), 
 pch=ifelse(degree.distribution(USAN_g_num, cumulative=FALSE, mode="in")==0 ,10,20),
 cex=ifelse(degree.distribution(USAN_g_num, cumulative=FALSE, mode="in")==0 ,0,1),xlab="degree", ylab="log(cumulative frequency)",main="USAN") 

  ddS <- degree.distribution(SAg, cumulative=TRUE, mode="in")
  plot(ddS,  log="xy", col=ifelse(degree.distribution(SAg, cumulative=FALSE, mode="in")==0 ,'white',"black"),   
     pch=ifelse(degree.distribution(SAg, cumulative=FALSE, mode="in")==0 ,10,20),
     cex=ifelse(degree.distribution(SAg, cumulative=FALSE, mode="in")==0 ,0,1),xlab="degree", ylab="log(cumulative frequency)",main="SA") 

  ddO <- degree.distribution(OWg, cumulative=TRUE, mode="in")
  plot(ddO,  log="xy", col=ifelse(degree.distribution(OWg, cumulative=FALSE, mode="in")==0 ,'white',"black"),  
    pch=ifelse(degree.distribution(OWg, cumulative=FALSE, mode="in")==0 ,10,20),
    cex=ifelse(degree.distribution(OWg, cumulative=FALSE, mode="in")==0 ,0,1),xlab="degree", ylab="log(cumulative frequency)",main="OW") 

  ddT <- degree.distribution(STg, cumulative=TRUE, mode="in")
  plot(ddT,  log="xy", col=ifelse(degree.distribution(OWg, cumulative=FALSE, mode="in")==0 ,'black',"black"),  
    pch=ifelse(degree.distribution(STg, cumulative=FALSE, mode="in")==0 ,10,20),
    cex=ifelse(degree.distribution(STg, cumulative=FALSE, mode="in")==0 ,0,1),xlab="degree", ylab="log(cumulative frequency)",main="ST")

ありがとうございました

4

1 に答える 1