Even more images as x-axis labels
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
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.
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](https://twitter.com/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() +
theme(plot.margin = unit(c(1, 1, 5, 1), "lines"),
axis.text.x = element_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)
and produces this
This got me curious, though – if it can process arbitrary \(\LaTeX\), could it process a \\includegraphics call?
Efficient! If it's arbitrary LaTeX, could the labels just be \includegraphics calls?
— Jonathan Carroll (@carroll_jono) October 11, 2018
Yes, as it turns out.
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.
{{% gist jonocarroll 08a1ccff36be628430d768e5b9426e54 %}}
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[(https://gist.github.com/jonocarroll/2f9490f1f5e7c82ef8b791a4b91fc9ca#file-images_as_xaxis_labels_updated-r), 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.
devtools::session_info()
## ─ Session info ────────────────────────────────────────────────────────── ## setting value ## version R version 3.5.2 (2018-12-20) ## os Pop!_OS 19.04 ## system x86_64, linux-gnu ## ui X11 ## language en_AU:en ## collate en_AU.UTF-8 ## ctype en_AU.UTF-8 ## tz Australia/Adelaide ## date 2019-08-13 ## ## ─ Packages ────────────────────────────────────────────────────────────── ## package * version date lib source ## assertthat 0.2.1 2019-03-21 [1] CRAN (R 3.5.2) ## backports 1.1.4 2019-04-10 [1] CRAN (R 3.5.2) ## blogdown 0.14.1 2019-08-11 [1] Github (rstudio/blogdown@be4e91c) ## bookdown 0.12 2019-07-11 [1] CRAN (R 3.5.2) ## callr 3.3.1 2019-07-18 [1] CRAN (R 3.5.2) ## cli 1.1.0 2019-03-19 [1] CRAN (R 3.5.2) ## colorspace 1.4-1 2019-03-18 [1] CRAN (R 3.5.2) ## crayon 1.3.4 2017-09-16 [1] CRAN (R 3.5.1) ## desc 1.2.0 2018-05-01 [1] CRAN (R 3.5.1) ## devtools 2.1.0 2019-07-06 [1] CRAN (R 3.5.2) ## digest 0.6.20 2019-07-04 [1] CRAN (R 3.5.2) ## dplyr 0.8.3 2019-07-04 [1] CRAN (R 3.5.2) ## evaluate 0.14 2019-05-28 [1] CRAN (R 3.5.2) ## filehash 2.4-2 2019-04-17 [1] CRAN (R 3.5.2) ## fs 1.3.1 2019-05-06 [1] CRAN (R 3.5.2) ## ggplot2 * 3.2.1 2019-08-10 [1] CRAN (R 3.5.2) ## glue 1.3.1 2019-03-12 [1] CRAN (R 3.5.2) ## gtable 0.3.0 2019-03-25 [1] CRAN (R 3.5.2) ## htmltools 0.3.6 2017-04-28 [1] CRAN (R 3.5.1) ## knitr 1.24 2019-08-08 [1] CRAN (R 3.5.2) ## lazyeval 0.2.2 2019-03-15 [1] CRAN (R 3.5.2) ## magrittr 1.5 2014-11-22 [1] CRAN (R 3.5.1) ## memoise 1.1.0 2017-04-21 [1] CRAN (R 3.5.1) ## munsell 0.5.0 2018-06-12 [1] CRAN (R 3.5.1) ## pillar 1.4.2 2019-06-29 [1] CRAN (R 3.5.2) ## pkgbuild 1.0.4 2019-08-05 [1] CRAN (R 3.5.2) ## pkgconfig 2.0.2 2018-08-16 [1] CRAN (R 3.5.1) ## pkgload 1.0.2 2018-10-29 [1] CRAN (R 3.5.1) ## prettyunits 1.0.2 2015-07-13 [1] CRAN (R 3.5.1) ## processx 3.4.1 2019-07-18 [1] CRAN (R 3.5.2) ## ps 1.3.0 2018-12-21 [1] CRAN (R 3.5.1) ## purrr 0.3.2 2019-03-15 [1] CRAN (R 3.5.2) ## R6 2.4.0 2019-02-14 [1] CRAN (R 3.5.1) ## Rcpp 1.0.2 2019-07-25 [1] CRAN (R 3.5.2) ## remotes 2.1.0 2019-06-24 [1] CRAN (R 3.5.2) ## rlang 0.4.0 2019-06-25 [1] CRAN (R 3.5.2) ## rmarkdown 1.14 2019-07-12 [1] CRAN (R 3.5.2) ## rprojroot 1.3-2 2018-01-03 [1] CRAN (R 3.5.1) ## scales 1.0.0 2018-08-09 [1] CRAN (R 3.5.1) ## sessioninfo 1.1.1 2018-11-05 [1] CRAN (R 3.5.1) ## stringi 1.4.3 2019-03-12 [1] CRAN (R 3.5.2) ## stringr 1.4.0 2019-02-10 [1] CRAN (R 3.5.1) ## testthat 2.2.1 2019-07-25 [1] CRAN (R 3.5.2) ## tibble 2.1.3 2019-06-06 [1] CRAN (R 3.5.2) ## tidyselect 0.2.5 2018-10-11 [1] CRAN (R 3.5.1) ## tikzDevice * 0.12.3 2019-08-07 [1] CRAN (R 3.5.2) ## tinytex * 0.15 2019-08-07 [1] CRAN (R 3.5.2) ## usethis 1.5.1 2019-07-04 [1] CRAN (R 3.5.2) ## withr 2.1.2 2018-03-15 [1] CRAN (R 3.5.1) ## xfun 0.8 2019-06-25 [1] CRAN (R 3.5.2) ## yaml 2.2.0 2018-07-25 [1] CRAN (R 3.5.1) ## ## [1] /home/jono/R/x86_64-pc-linux-gnu-library/3.5 ## [2] /usr/local/lib/R/site-library ## [3] /usr/lib/R/site-library ## [4] /usr/lib/R/library
R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.