[R] graphical output - customization of x axis

[David Winsemius]

Take out the pos=0 argument in your call to axis.

--  
David.
On Jun 1, 2011, at 8:56 AM, Christine SINOQUET wrote:

> Hello,
>
> I do not understand why the following source does not success in  
> customizing the x axis. The wished customization just consists in  
> labelling the x ticks with  
> "0kb","1kb","5kb","10kb","20kb","50kb","100kb","inf".
>
> pathFileName <- "test1.png"
>
>
> stats4H <- c(0.8623, 0.7142, 0.7211, 0.6753, 0.6290, 0.6157, 0.5919,  
> 0.5218)
> stats4W <- c(0.8724, 0.7889, 0.7253, 0.7235, 0.6860, 0.6630, 0.6424,  
> 0.5228)
>
> stats5H <- c(0.7610, 0.6832, 0.6310, 0.5527, 0.5231, 0.5600, 0.6147,  
> 0.5131)
>
> stats5W <- c(0.7740, 0.7641, 0.7099, 0.6918, 0.6483, 0.5769, 0.5539,  
> 0.4934)
>
>
> plotType <- "b"
>
>
> png(file=pathFileName, bg="transparent")
>
> xxf <- c("0kb","1kb","5kb","10kb","20kb","50kb","100kb","inf")
> xf  <- 1:8
>
> par(lab = c(length(xxf), 5, 7))
> #c(x, y, len)
> # ‘lab’ A numerical vector of the form ‘c(x, y, len)’ which modifies
> # the default way that axes are annotated. The values of ‘x’
> # and ‘y’ give the (approximate) number of tickmarks on the x
> # and y axes and ‘len’ specifies the label length.  The default
> # is ‘c(5, 5, 7)’.  Note that this only affects the way the
> # parameters ‘xaxp’ and ‘yaxp’ are set when the user coordinate
> # system is set up, and is not consulted when axes are drawn.
> # ‘len’ _is unimplemented_ in R.
>
>
> plot(stats4H, xlab = "half-width of window", ylab="AUC",  
> type=plotType, pch=7, col="blue", cex = 0.5,  
> ylim=c(0.4,1),xlim=c(1,8), xaxt = "n") # without x axis
>
> #If you are going to create a custom axis, you should suppress the  
> axis automatically generated by your high level plotting function.  
> The option axes=FALSE suppresses both x and y axes. xaxt="n" and  
> yaxt="n" suppress the x and y axis respectively.
>
> positions <- 1:8
> axis(side = 1, at=positions, labels=xxf , pos=0, lty=1,  
> col.axis="black", las=0)
>
> # side: bottom (1)
> # at: the points at which tick-marks are to be drawn
> # pos:coordinate of defined axis on the other axis
> # lty: linetype
> # col: line and tick marker color
> # las: labels are parallel (=0) or perpendicular(=2) to axis
> # tck: length of tick mark as fraction of plotting region (negative  
> number is outside graph,
> #      positive number is inside, 0 suppresses ticks, 1 creates  
> gridlines) default is -0.01
>
> lines(x = xf, y = stats4W, type=plotType, pch=15, col="green", cex =  
> 0.5)
> lines(x = xf, y = stats5H, type=plotType, pch=16, col="red", cex =  
> 0.5)
> lines(x = xf, y = stats5W, type=plotType, pch=17, col="magenta",cex  
> = 0.5)
>
>
> legend("bottomright",
>        legend = c("H, statistic S1", "W, statistic S1", "H,  
> statistic S2", "W, statistic S2"),
>        col = c("blue", "green", "red", "magenta"),
>        pch = c(7,15,16,17),
>        bty = "n",
>        cex = 0.8,
>        inset = c(0.1, 0.1))
>
> dev.off()
>
>
> I thank you in advance for any help.
>
> Best regards,
>
> Christine Sinoquet
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

David Winsemius, MD
West Hartford, CT