#Bar plot magicplot student install

There are a wider range of pre-built themes available as part of the ggthemes package (more information on these here). #font_import(pattern='kcd') #fonts() fill <- c ( '#56B4E9', '#F0E442' ) p3 <- ggplot () + geom_bar ( aes ( y = export, x = year, fill = product ), data = charts.data, stat = 'identity' ) + geom_text ( data = charts.data, aes ( x = year, y = pos, label = export ), colour = 'black', family = 'xkcd-Regular', size = 4, show_guide = F ) + theme ( legend.position = 'bottom', legend.direction = 'horizontal', legend.title = element_blank ()) + scale_x_continuous ( breaks = seq ( 2006, 2014, 1 )) + labs ( x = 'Year', y = 'USD million' ) + ggtitle ( 'Composition of Exports to China ($)' ) + scale_fill_manual ( values = fill ) + theme ( axis.line = element_line ( size = 1, colour = 'black' ), = element_blank (), = element_blank (), panel.border = element_blank (), panel.background = element_blank ()) + theme ( plot.title = element_text ( family = 'xkcd-Regular' ), text = element_text ( family = 'xkcd-Regular' ), = element_text ( colour = 'black', size = 10 ), = element_text ( colour = 'black', size = 10 )) p3

#Bar plot magicplot student install

In order to create this chart, you first need to import the XKCD font, install it on your machine and load it into R using the extrafont package. Below is an example of a theme Mauricio was able to create which mimics the visual style of XKCD. ggplot2 allows for a very high degree of customisation, including allowing you to use imported fonts. Of course, you may want to create your own themes as well.

P3 <- ggplot () + theme_bw () + geom_bar ( aes ( y = export, x = year, fill = product ), data = charts.data, stat = 'identity' ) + geom_text ( data = charts.data, aes ( x = year, y = pos, label = export, size = 4 ), show_guide = F ) + theme ( legend.position = 'bottom', legend.direction = 'horizontal', legend.title = element_blank ()) + scale_x_continuous ( breaks = seq ( 2006, 2014, 1 )) + labs ( x = 'Year', y = 'USD million' ) + ggtitle ( 'Composition of Exports to China ($)' ) + scale_fill_manual ( values = fill ) p3