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?

	[[alternative HTML version deleted]]


