An embedded and charset-unspecified text was scrubbed... Name: not available URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20090306/d1cce88e/attachment-0002.pl>
Thousand separator on axis
2 messages · Waldir Leôncio, Duncan Murdoch
Waldir Le?ncio wrote:
Is there an easy way to add a thousand separator mark on the axis of a plot? The best solution I've found so far is the following: y <- seq(0, 100000, 10000) plot(y, yaxt = "n", ylab = "") axis(2, at = y, labels = formatC(y, big.mark = " ", format = "d"), las=2) But that seems like quite a hassle to do every time around. Is there a way to get the same output using less parameteres?
Sure: just write a function to do it. Assuming y is the only thing
that varies,
myplot <- function(y) {
plot(y, yaxt = "n", ylab = "")
axis(2, at = y, labels = formatC(y, big.mark = " ", format = "d"), las=2)
}
then myplot(y) is all you need to type. (If you want to be able to
specify titles, etc., just include a ... arg to myplot.)
Duncan Murdoch