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")
ありがとうございました