bunfight.csv

economist_bunfight.R

library(ggplot2);
bunfight = read.csv('bunfight.csv');

base_size = 12;
economist = theme_update(plot.background = theme_rect(fill = 'lightblue',
colour = 'black'), panel.background = theme_rect(fill = 'lightblue', colour =
NA), axis.text.x = theme_text(colour = 'black', size = base_size * 0.8,
lineheight = 0.9, vjust = 1), axis.text.y = theme_text(colour = 'black', size
= base_size * 0.8, lineheight = 0.9, hjust = 1), panel.border = theme_blank()
)

base = ggplot(bunfight, aes(x = reorder(country, loccurover), y = loccurover)) +
	   geom_bar(stat = 'identity', fill = 'blue') +
	   coord_flip() +
	   xlab(NULL) + ylab(NULL) + opts(axis.ticks = theme_blank()) +
	   geom_hline(yintercept = seq(-40, 80, by = 20), colour = 'white', 
				  size = 0.25) +
	   geom_text(aes(label = text), y = 85, size = 3, colour = 'black') +
	   economist

makeFootnote('Sources: McDonalds, The Economist');
makeTitle('Bunfight');

makeFootnote.R

## code adapted from Mark Heckmann: http://goo.gl/llx3

makeFootnote <- function(footnoteText =
                         format(Sys.time(), "%d %b %Y"),
                         size= .7, color= grey(.2))
{
   require(grid)
   pushViewport(viewport())
   grid.text(label= footnoteText ,
             x = unit(0,"npc") + unit(7, "mm"),
             y= unit(2, "mm"),
             just=c("left", "bottom"),
             gp=gpar(cex= size, col=color))
   popViewport()
}

makeTitle.R

makeTitle <- function(titleText = 'Title',
                      size = 1, color = 'black')
{
   require(grid)
   pushViewport(viewport())
   grid.text(label = titleText ,
             x = unit(0,"npc") + unit(7, "mm"),
             y = unit(0.99, "npc"),
             just=c("left", "top"),
             gp=gpar(cex= size, col=color, fontface = 'bold'))
   popViewport()
}