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))