search for: padj

...not print the labels of bottom x axis. One other problem i have is that often '10' on the botom x axis is not printed. I tried to patch it up this way (below), yet its unsatisfactory, sometimes it works sometimes it don't. axis(1,at=c(28:30),c('','10','') , padj=-1.5 , cex.axis=ifelse((rol==1),setting[rol,8]-0.15,setting[rol,8]-0.1)) And finaly, when creating the graphs, i prefer the size of graf_1_small it pastes easaly to a word documentn ( 2 one one line), yet the labels are not always clear to read, so i copy the one without suffix to word then i...

...not print the labels of bottom x axis. One other problem i have is that often '10' on the botom x axis is not printed. I tried to patch it up this way (below), yet its unsatisfactory, sometimes it works sometimes it don't. axis(1,at=c(28:30),c('','10','') , padj=-1.5 , cex.axis=ifelse((rol==1),setting[rol,8]-0.15,setting[rol,8]-0.1)) And finaly, when creating the graphs, i prefer the size of graf_1_small it pastes easaly to a word documentn ( 2 one one line), yet the labels are not always clear to read, so i copy the one without suffix to word then i...

...t is clearly shifted up (i.e. the bottom of the text is aligned at the specified margin line) while the y-axis text is shifted left (i.e. the bottom of the text is still aligned with the specified margin line). 2) This observation lead me to realize that do_axis and do_title in plot.c assume padj=0 most of the time (there are exceptions depending on par()$las). I'm no expert in the R code base, but the yLineBias adjustments appears like they might have been intended to restore symmetry -- but it only works for mex=1. Is there a reason why, instead of yLineBias, we can't either:...

...their labels. I managed to do it for the x-axis, but the y-axis puzzles me. Here's an example where there is no space between the x-asix ticks and labels. par(las=1) plot(runif(50), type="l",xaxt="n",yaxt="n",ylab="", bty="l") axis(2) axis(1,padj=-1.5) #However, axis(2,padj=-1.5) #does not work I understand from ?axis that padj will take its direction from the par(las). In this case, padj will move labels up and down for both x-axis and y-axis. I want my y-axis labels to be horizontal. I can I reduce the distance between y-axis ticks an...

Hi Can anyone please help me in understanding the utility of "padj" and "outer (logical)" values in the '*mtext function*' given below are the output I generated on using the below code which is different from the formula description on r help > par(mfrow=c(2,1),xpd=NA) > y1 <- rnorm(100) > plot(y1,ann=F,axes=F,type="l&quot...

....text=F,las=1,xlim=c(0,13), horiz=T, col=cols, main="Malaria death rates by state and sex") legend(8,6,legend=c("Female","Male"),fill=cols[order(2:1)]) segments(y0=bplot2, y1=bplot2, x0=t(lci2), x1=t(uci2)) mtext(10*(aa+1),side=4,line=4,at=seq(3,3*length(aa),by=3)-0.35,padj=0.5,adj=1,las=1,cex=0.85) mtext(10*aa,side=4,line=4,at=seq(2,3*length(aa)-1,by=3)-0.65,padj=0.5,adj=1,las=1,cex=0.85) mtext("Estimated",side=4,line=3,at=3*length(aa)+2.75,padj=0.5,adj=0.5,las=1,cex=0.85) mtext("Deaths",side=4,line=3,at=3*length(aa)+1.25,padj=0.5,adj=0.5,las=1,ce...

...produces two files (Rplot002.tif and Rplot003.tif) showing figures 1 and 3. Here is a simplified ex code tiff(filename ="Rplot%03d.tif",width=24,height=20,units="cm",res=300, pointsize=10, compression = "lzw") plot(1) mtext("Fig 1",side=3,line=4,adj=0.50,padj=2,col="black",cex=1) plot(2) mtext("Fig 2",side=3,line=4,adj=0.50,padj=2,col="black",cex=1) plot(3) mtext("Fig 3",side=3,line=4,adj=0.50,padj=2,col="black",cex=1) dev.off() Using pdf () produces the correct 3 figures but I want to use tiff i...

Hi, In the code below, the labels I put on the x-axis are too high (they cross the axis). Can anyone tell me how to move them down? I've tried adj=, padj=, mar=, and various other things, but cannot move them down. Thanks. -Ben labs <- paste('sample', 1:10) plot(1:10, xaxt='n', xlab='') axis(1, at=1:10, labels=labs, padj=1, las=2) # las is a par() parameter

Hi Kirsten, Perhaps this will help: set.seed(3) kmdf<-data.frame(group=rep(1:4,each=20), prop=c(runif(20,0.25,1),runif(20,0.2,0.92), runif(20,0.15,0.84),runif(20,0.1,0.77))) km.glm<-glm(prop~group,kmdf,family=quasibinomial(link="logit")) summary(km.glm) pval<-0.00845 padjs<-NA npadj<-1 # assume you have five comparisons in this family for(method in p.adjust.methods) { padjs[npadj]<-p.adjust(pval,method=method,n=5) npadj<-npadj+1 } plot(padjs,xaxt="n",main="P plot",xlab="Method",ylab="adjusted p values") abline(h=...

...: > > set.seed(3) > kmdf<-data.frame(group=rep(1:4,each=20), > prop=c(runif(20,0.25,1),runif(20,0.2,0.92), > runif(20,0.15,0.84),runif(20,0.1,0.77))) > km.glm<-glm(prop~group,kmdf,family=quasibinomial(link="logit")) > summary(km.glm) > pval<-0.00845 > padjs<-NA > npadj<-1 > # assume you have five comparisons in this family > for(method in p.adjust.methods) { > padjs[npadj]<-p.adjust(pval,method=method,n=5) > npadj<-npadj+1 > } > plot(padjs,xaxt="n",main="P plot",xlab="Method",ylab=&quot...

...t") mylegend.width = strwidth(mylegend[which.max(nchar(mylegend))], "figure") for (i in 1:4) { mtext(text=mylegend[i], side = 1, line = 3+i, at = unit((1-mylegend.width)/2,"npc"), # centers the legend at the bottom adj=0, padj=0)} ##### plot mydata<-data.frame(x=1:10,y=1:10) par(cex.main=1, cex.axis=1, cex.lab=1, lwd=1, mar=c(5 + 5,4,4,2)+0.1) plot(mydata,oma=c(5 + 5,4,4,2)) mylegend<-c("mylegend A","mylegend B","mylegend C","mylegend test") mylegend.width = strwi...

Hi all, Thank you for taking the time to read my message. I'm trying to make a figure that plots p-values by a range of different adjustment values. (Using the **logit** function in package **car**) My Statistical analyses were conducted on probability estimates ranging from 0% to 100%. As it's not ideal to run linear models on percentages that are bounded between 0 and 1, these

...e="n",xlim=xlim,ylim=ylim,xaxt="n",yaxt="n",lty=1,pch=40,xaxs="i",yaxs="i",xlab="",ylab="") par(xaxt="s") par(xaxs="i") at <- pretty(xlim) print(at) axis(1,at=at,labels=at,las=1,tcl=-0.4,lwd=0.8,cex.axis=1,padj=-1) mtext("x",1,line=1.8,cex=1,padj=-0) par(yaxt="s") par(yaxs="i") at <- pretty(ylim) print(at) axis(2,at=at,labels=at,las=1,tcl=-0.4,lwd=0.8,cex.axis=1,padj=0.3,hadj=0.6) mtext("y",2,line=2.1,cex=1,padj=-0.5,las=3) points(c(xlim[1],xlim[2])~c(ylim[1],y...

..., 0, 0, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2) F2.5 <- ecdf(x) plot(F2.5, verticals= TRUE, do.p = TRUE, lwd=3, ylab = "", xlab = "", main = "Figur 2.12 Frequenztabelle und eVf", xlim = c(-1,4)) abline(h= (0:10)*0.1) mtext(text="x", side=1, adj = 1.03, padj=1.23, cex=1.2) mtext(text="f(x)", side=3, adj = -0.06, padj=-1, cex=1.2) par(mar=c(4,3,1,2)) #Barplot width<-c(0.4, 0.4, 0.4) height<-c(0.5, 0.35, 0.15) barplot(height,width,xlim=c(-1,4), space=1.5,) axis(side=1) #------------------------ Can anyone tell me how I c...

Hi, I hope somebody can help me with this issue: I am doing population pyramids using the barplot command, so in the left side I have male age structure and in the right side the female age structure. To plot the male age structure I put the data in negative numbers. Now, I want to change the sign in the bar plot in such way that I have no-sign numbers, both in left and right side of the graph. I

...) par(mfrow=c(5,2)) plot(DateJonEnd1, End1Jon, main="Weekly Training at Endurance 1", xlab="Date", ylim=c(0,350), ylab="Volume at Endurance 1", type="b", xlim=c(13700,14750), las=1, xaxt="n") axis.Date(1, End1Jon, dates, format="%m", padj=-1, tcl=-0.5) axis.Date(1, End1Jon, dates, format="%y", tick=FALSE) plot(Date500JonTime, Time500Jon, main="500m", ylim=c(41,45), xlab="Date", ylab="Time", type="b", xlim=c(13700,14750), las=1, xaxt="n") axis.Date(1, Time500Jon, dates, f...

...,2.4,2.7,2.9,3.3,3.4,3.4,4,5.2) F2.5 <- ecdf(x) plot(F2.5, verticals= TRUE, do.p = TRUE, lwd=3, ylab = "", xlab = "", xlim = c(1,5.5)) abline(h= (0:5)*0.2) #mean abline(v=mean(x), lwd=2) mtext(text=expression(bar(x) == 3.07), side=1, adj=0.462, padj=3, cex=1) *** Now I would like to shade the two areas: http://www.nabble.com/file/p18334136/ecdf.gif Is it possible to do this without too much effort? Thanks for any suggestion Tobias -- View this message in context: http://www.nabble.com/shading-an-area-in-a-edf-tp18334136p18334136.html Se...

..., at=b, side=1, line=1, cex=1.3) mtext(expression(italic(C)[a]~(more~text)), at=0, line=1, side=1,cex=1.3) As explained in the help files and elsewhere, I understand that the expression is aligned by the bounding box, not the lower end of the 'text' in the expression. Playing with adj or padj in mtext() does not really solve this? Any suggestions or workarounds? PS, I tried using a phantom() expression for the text bits; but this messes up the horizontal alignment). thanks, Remko -- View this message in context: http://r.789695.n4.nabble.com/Align-expression-and-text-in-mtext-tp4...

...ing wrong? Thx Christof x11(width=30, height=20) x<-seq(as.Date("2010-02-27"), as.Date("2011-03-28"),"month") y <- seq(0,100,length=length(x)) plot(y ~ x, type="o", tck=1, xaxt="n") axis.Date(1, at=x, labels=format(x,"%b\n%Y"), padj=0.5) abline(v=as.Date("2011-01-01"), col="red", lty="dashed") -------------- next part -------------- A non-text attachment was scrubbed... Name: plot.png Type: image/png Size: 3933 bytes Desc: not available URL: <https://stat.ethz.ch/pipermail/r-help/attachments/2...

Hi is there a automatic way that long distances between points are not connected. I have something like plot(x,y,type="o",...) atx <- seq(as.Date("2009-04-01"),as.Date("2011-04-01"),"month") axis.Date(1, at=atx,labels=format(atx, "%b\n%Y"), padj=0.5 ) but I do not want lines between points whose distance is greater than two weeks. thx Christof