Another fun infographic - just about the right complexity to pass time on my train commute.

It serves a threefold purpose:
- investigate social impact of playstation ownership (heh…)
- demonstrate centering of a title over an asymetric chart
- practice drawing of pie charts - frowned upon by statisticians, but beloved by business audience

The code to generate the infographic is following:

library(ggplot2)
library(grid)
library(gridExtra)

frmPstation <- data.frame(reason = c("I don't have a Playstation", "I don't have a girlfriend"),
                    value = c(100,100))

ggpPstation <- ggplot(data = frmPstation, aes(x = value, fill = reason)) +
  geom_bar(width = 1) +
  coord_polar(theta = "y") +
  theme_void() +
  theme(legend.title = element_blank()) +
  scale_fill_manual(values = c('darkgoldenrod1', 'cornflowerblue'))

grid.arrange(textGrob("Why do I not allow my girlfriend to use my PS4?", 
                      gp = gpar(fontsize = 2*11, fontface = "bold")), 
             ggpPstation, 
             heights = c(0.1, 1))