search for: mtitl

...), heights=lcm(25),TRUE) layout(matrix(c(2,0,1,3),2,2,byrow=TRUE),c(5,1),c(1,5),TRUE) layout.show(3) plot(data_cpmd,data_rfmd,xlab=xxlab,ylab=yylab,xlim=XX,ylim=YY,asp=1) abline(1,1) #rug(side=1,jitter(data_cpmd,5)) #rug(side=2,jitter(data_rfmd,5)) #plot(homo_ana$dism16cpmd,homo_ana$dism16rfmd,main=mtitle,xlab=xxlab,ylab=yylab,xlim=XX,ylim=YY,asp=1) par(mar=c(0,3,1,1)) barplot(data_cpmd, axes=FALSE, ylim=YY, space=0) par(mar=c(3,0,1,1)) barplot(data_rfmd, axes=FALSE,main=mtitle, xlim=XX, space=0, horiz=TRUE) #boxplot(data_cpmd,horizontal = TRUE,xlim=XX,ylim=YY,outline=ifout, xaxt = "n")...

...t(matrix(c(2,0,1,3),2,2,byrow=TRUE),c(5,1),c(1,5),TRUE) > layout.show(3) > plot(data_cpmd,data_rfmd,xlab=xxlab,ylab=yylab,xlim=XX,ylim=YY,asp=1) > abline(1,1) > #rug(side=1,jitter(data_cpmd,5)) > #rug(side=2,jitter(data_rfmd,5)) > #plot(homo_ana$dism16cpmd,homo_ana$dism16rfmd,main=mtitle,xlab=xxlab,ylab=yylab,xlim=XX,ylim=YY,asp=1) > > par(mar=c(0,3,1,1)) > barplot(data_cpmd, axes=FALSE, ylim=YY, space=0) > par(mar=c(3,0,1,1)) > barplot(data_rfmd, axes=FALSE,main=mtitle, xlim=XX, space=0, horiz=TRUE) > > #boxplot(data_cpmd,horizontal = TRUE,xlim=XX,ylim=YY,out...

...e caption in table s3 <- summary(y ~ age.groups + ascites, fun=g, data=pbc) s3 windows(width=10.67, height=6.60) par(mfrow=c(1,2), oma=c(3,0,3,0)) for(ivar in 1:2) { isub <- (1:3)+(ivar-1)*3 print(isub) plot(s3, which=isub, main='', xlab=vars[ivar], pch=c(91,16,93)) } mtitle(paste('Quartiles of', label(y)), cex.m=1.5) Could any one help me? Thanks [[alternative HTML version deleted]]

...test=F) par(mfcol=c(1,2),oma=c(1,0,4,0)) plot(sumfc, which='categorical', main='Full Compliance',pch=c('A','B','C')) Key(0,-.1) plot(sumpc, which='categorical', main='At Least Partial Compliance',pch=c('A','B','C')) mtitle("Dietary Adherence") [[alternative HTML version deleted]]

Hi, I am trying to output pdf files with 8 graphs per page. My current study has 8 evaluation criteria, and 38 study conditions. This would result in 38 pages of 8 graphs. I have figured out how to get the graphs looking like I would like them, and I am using the layout() function to put them on the page, as that allows me the control I would like over the appearance of the individual plots.

Hi, I am trying to generate a figure of 9 plots that are contained in one device by using par(mfrow = c(3,3,)) I would like to have 1 common legend for all 9 plots somewhere outside of the plotting area (as opposed to one legend inside each of the 9 plots, which the function legend() seems to generate by default). Any hint how to do this? Best, Georg

Hi, I wanted to plot 2 lines on a single graph. Each graph has one axis that can be common. The code that I'm using is: ------------------------------------------------------- par(mfrow=c(1, 1)) x1 <- c(2, 4, 6, 8, 10, 12) x2 <- c(10, 20, 30, 40, 50, 60) y1 <- c(10,12,15,22,34,21) y2 <- c(40, 130, 150, 145, 40, 30) par(las=1, mar=c(4, 4, 2, 4)) plot.new()

...f text html latex example missing link(s): bootcov robcov impute text html latex example missing link(s): na.include labcurve text html latex example missing link(s): key mtitle text html latex example missing link(s): pstamp panel.bpplot text html latex example missing link(s): trellis plsmo text html latex example missing link(s): trellis ps.slide...