Hello All,
I have been trying to use the par(mfrow(c(m,n)) function to produce a
panel of m rows and n columns of bar plots. The different columns were
to designate n different categories, as the m rows are to designate
different categories as well. However, I cannot seem to get rid of the
y-axes(vertical axes) in the n>1 columns. I wrote a loop to attempt to
do this, but ended up stopping after the m=1 row because I could not get
rid of the y-axes on the second graph using the following code. Does
anyone know if there is a way to make the axes disappear in the panel
for columns after the first column from the left?
Thanks,
David
________________________________________________________________________
____________________________________________________________________
x<-read.csv('Outcomes.csv', skip=1)
city.list<-cbind("Baghdad")
sniper.window<-2
R.list<-c(.30)
D.list<-c(7,14)
library(lattice)
degrade.list<-c(0)
par(mfrow=c(1,length(D.list)),beside=T)
for(i in 1:length(city.list)){
for(j in 1:length(degrade.list)){
myplot<-x[x$Location==city.list[i]&x$Degrade==degrade.list[j],]
for(q in 1:length(D.list)){
myplot2<-myplot[myplot$Days==D.list[q],]
if(q==1)barplot(myplot2$Ratio,names.arg=myplot2$Radius,horiz=T,main=D.li
st[q], beside=T, space=0)
if(q>1)barplot(myplot2$Ratio,names.arg=myplot2$Radius,horiz=T,main=D.lis
t[q],axes=T)
}
}
}
--------------------
This email message is for the sole use of the intended recip...{{dropped}}
