Contour plot x-labeling

Question

My question is very similar to this question but I wish to write special values on the x-axis.
I have the following code:

x <- c(1:12)
y <- c(1:12)
filled.contour(c(2,4,7,10,14,21,30,60,90,120,180,365), y, outer(x,y))

Gives the following plot :

My problem is that I don't want the plot to be squeezed on the left but want all values in c(2,4,7,10,14,21,30,60,90,120,180,365) to be equally spaced on the x-axis.

How can I do this?
As an extension, how can I put characters "two", "four", ... instead of 2, 4, ... on the x-axis?

Thanks

Answer 1

This is a start:

x <- 1:12
y <- 1:12
xvals <- c(2,4,7,10,14,21,30,60,90,120,180,365)
fx <- as.numeric(as.factor(xvals))
filled.contour(fx, y, outer(x,y),
               plot.axes= {
                   axis(2)  ## plain
                   axis(1,at=fx,labels=xvals)
               })

However, you can see that the '180' label is already getting omitted, which means that things are going to be even worse if you translate the x-axis labels into words (do you really want the last tick label to read "three hundred sixty-five")? (You can use par(las=3) to turn the labels vertical, but that's ugly too.)

This question points us to qdap::replace_number(), but it doesn't seem to work for single-digit numbers ...

 library(qdap)
 filled.contour(fx, y, outer(x,y),
                plot.axes= {
                    axis(2)  ## plain
                    axis(1,at=fx,labels=replace_number(xvals))
 })

update: the qdap maintainer has already fixed this bug; if you need the latest version you could try devtools::install_github("qdap","trinker")

If you're in a big hurry you could just fix the result by hand.