# Even more images as x-axis labels

October 16, 2018
By

(This article was first published on R – Irregularly Scheduled Programming, and kindly contributed to R-bloggers)

This is the last update to this strange saga… I hope.

Image labels… Photo: http://www.premierpaper.com/shop/custom-labels/

Easily two of the most popular posts on my blog are this one and this one describing a couple of ways in which I managed to hack together using an image as a category label in a ggplot.

There are likely many people who believe one should never do such a thing, but given the popularity, it seems a lot of people aren’t listening to that. Good on you.

via GIPHY

One of these posts was recently shared again by the amazing #rstats amplifier Mara Averick (if you’re not following her on Twitter, you’re missing out) and @baptiste_auguie (the saviour of the previous implementation) mentioned that he had written a ‘hack’ to get chemical symbols as a categorical axis label using `tikzDevice`. That package leverages $\LaTeX$ (of which I am very familiar, having written my PhD thesis entirely in $\LaTeX$ many moons ago) to treat all of the text in an image as potential $\LaTeX$ commands and produce a working source code which generates the required plot.

The example code is straightforward enough

```options(tikzLatexPackages =
c(getOption('tikzLatexPackages'),"\\usepackage{acide-amine}\n"))

d = data.frame(x=1:10, y=1:10, f=factor(sample(letters[1:2], 10, repl=TRUE)))

p <- qplot(x,y,data=d) + theme_bw() +
opts(plot.margin = unit(c(1, 1, 5, 1), "lines"),
axis.text.x = theme_text(size = 12 *
0.8, lineheight = 0.9, vjust = 10)) +
scale_x_continuous(breaks = c(2, 8), labels=c("\\phe{15}", "\\leu{15}"))

tikz("annotation.tex",standAlone=T,width=4,height=4)
print(p)
dev.off()
```

and produces this

annotation.png

This got me curious, though — if it can process arbitrary $\LaTeX$, could it process a `\\includegraphics` call?

Yes, as it turns out.

via GIPHY

A quick test showed that it was indeed possible, which only leaves re-implementing the previous posts’ images using this method.

I’ve done so, and the code isn’t particularly shorter than the other method.

Producing nearly the same end result.

tikzDevice result

There are a few differences compared to the previous version(s):

– I had a request for rotating the additional text, which I actually also updated recently, and it seemed to fit better, so I rotated the labels within the $\LaTeX$ command.
– Since all of the text has been rendered via $\LaTeX$, the fonts are a bit different.
– The rankings have since changed, so I’ve added an 11th to keep Australia in the list.

The $\LaTeX$ component of this also meant that a few changes were necessary in the other labels, such as the dollar sign in the y-axis label, and the underscores throughout (these are considered special characters in $\LaTeX$). Lastly, the result of running the `tikz` command is that a `.tex` ($\LaTeX$ source code) file is produced. This isn’t quite the plot image file we want. It does however have the commands to generate one. The last steps in the above gist are to process this `.tex` file with $\LaTeX$. Here I used the `tools::texi2dvi` function, but one could also use a `system` command to their $\LaTeX$ installation.

That still only produced a PDF. The last step was to use the `magick` package to convert this into an image.

Overall, this is a nice proof of concept, but I don’t think it’s a particularly tidy way of achieving the goal of image axis labels. It does however lay the groundwork for anyone else who decides this might be a useful route to take. Plus I learned a bit more about how `tikzDevice` works and got to revisit my $\LaTeX$ knowledge.

R-bloggers.com offers daily e-mail updates about R news and tutorials on topics such as: Data science, Big Data, R jobs, visualization (ggplot2, Boxplots, maps, animation), programming (RStudio, Sweave, LaTeX, SQL, Eclipse, git, hadoop, Web Scraping) statistics (regression, PCA, time series, trading) and more...