2013-05-01 68 views
1

我设法用4个不同的图创建一个单一的情节。但轴标签不显示。因为我是R的初学者,如果有人能告诉我如何为这种情节添加轴标签,我会很感激。 X轴:程度 Y轴:日志(累积分布)如何将轴标签添加到R中的多槽?

该图使用igraph-Functions。

这里是图: enter image description here 这里是我的代码:

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") 

谢谢

+0

degree.distribution函数属于哪个包/库? – 2013-05-01 14:28:31

+0

@AndreSilva它属于igraph – SWR 2013-05-01 14:29:12

回答

2

你不会看到x和y轴的标签,因为你的设置太窄保证金底部和左侧的地块与mar=。尝试将其增加到4或更高。

par(mar = c(4,4,2,2)) 
par(mfrow=c(2,2)) 
plot(1:10,xlab="mm",ylab="kk") 
plot(1:10,xlab="mm",ylab="kk") 
plot(1:10,xlab="mm",ylab="kk") 
plot(1:10,xlab="mm",ylab="kk") 
+0

谢谢。它工作,我学到了新东西。 – SWR 2013-05-01 14:38:49