我设法用 4 个不同的图表创建了一个图。但是轴标签不显示。由于我是 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")
谢谢