1
我设法用4个不同的图创建一个单一的情节。但轴标签不显示。因为我是R的初学者,如果有人能告诉我如何为这种情节添加轴标签,我会很感激。 X轴:程度 Y轴:日志(累积分布)如何将轴标签添加到R中的多槽?
该图使用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")
谢谢
degree.distribution函数属于哪个包/库? – 2013-05-01 14:28:31
@AndreSilva它属于igraph – SWR 2013-05-01 14:29:12