October 2, 2012 Mark Bulling

Clegg vs Pleb: An XKCD-esque chart

Tweet about this on TwitterShare on LinkedInShare on FacebookGoogle+Share on StumbleUponEmail to someone

I saw an interesting “challenge” on StackOverflow last night to create an XKCD style chart in R. A couple of hours later & going in a very similar direction to a couple of the answers on SO, I got to something that looked pretty good, using the sin and cos curves for simple and reproducible replication.

Tonight, I thought I’d try and apply the theme and styling to some real word and slightly XKCD content: UK politics. Two of the biggest stories of the month in the UK have been Nick Clegg’s apology over reneging on the Liberal Democrat’s tuition fees pledge and Andrew Mitchell’s “incident” trying to cycle out of Downing Street, the so-called GateGate.

Using the newly redesigned Google Insights for Search, I looked at searches for clegg and pleb over the last 30 days. A quick manipulation into a csv and applying the XKCD theme and some geom_smoothing gives this:

Looks like Andrew Mitchell might be Nick Clegg’s new best friend in terms of deflecting some of the attention away from the sorry song…

And here’s the code (note that you need to have installed the Humor Sans font using install_fonts() ):

### Already have read in fonts (see previous answer on how to do this)
### Clegg and Pleb data
pleb.clegg <- read.csv("pleb and clegg.csv")
pleb.clegg$Date <- as.Date(pleb.clegg$Date, format="%d/%m/%Y")
pleb.clegg$xaxis <- -4
### XKCD theme
theme_xkcd <- theme(
	panel.background = element_rect(fill="white"),
	axis.ticks = element_line(colour=NA),
	panel.grid = element_line(colour="white"),
	axis.text.y = element_text(colour=NA),
	axis.text.x = element_text(colour="black"),
	text = element_text(size=16, family="Humor Sans")
### Plot the chart
p <- ggplot(data=pleb.clegg, aes(x=Date, y=Pleb))+
geom_smooth(aes(y=Clegg), colour="gold", size=1, position="jitter", fill=NA)+
geom_smooth(colour="white", size=3, position="jitter", fill=NA)+
geom_smooth(colour="dark blue", size=1, position="jitter", fill=NA)+
geom_text(data=pleb.clegg[10, ], family="Humor Sans", aes(x=Date), colour="gold", y=20, label="Searches for clegg")+
geom_text(data=pleb.clegg[22, ], family="Humor Sans", aes(x=Date), colour="dark blue", y=4, label="Searches for pleb")+
geom_line(aes(y=xaxis), position = position_jitter(h = 0.1), colour="black")+
coord_cartesian(ylim=c(-5, 40))+
labs(x="", y="", title="Pleb vs Clegg: Google Keyword Volumes")+
ggsave("xkcd_cleggpleb.jpg", plot=p, width=8, height=5)
Tagged: ,

Comments (16)

    • markbulling

      Sorry, my bad, the function that you’re after is called load_fonts() and it’s within the extrafonts package that you need. There are pretty good instructions from another of the answers on stack overflow.

      I found getting the font to work was the biggest issue i encountered in the process – if you’re on a windows machine, it’s a lot easier (I’ll dig out a good link which will help you out).

      • Be a man 🙂 …. write a function to generate each letter as a spline thru a bunch of points and call the function to build and plot the text.

  1. Hi, I am trying to use this, but it’s complaining that the `theme` function doesn’t exist. I replaced it with `ggplot2:theme_update`, but now it complains about `element_rect` and I can’t find what would be a replacement for this one. Are these coming from another package? or a different version of ggplot2? Thanks

  2. Martin

    Any chance you could add a link to the .csv you used? I’m a beginner and it would be a great learning experience to be able to run the script myself…

Leave a Reply

Your email address will not be published. Required fields are marked *

Machine Learning and Analytics based in London, UK