Music Purchase graph re-creatgion from /r/dataisbeautiful

data.tsv

musicpurchases.R

library(ggplot2)
library(grid)
purchases = read.csv('data.tsv',head=F,sep="\t",col.names=c('Format','Year','Prevalence'))
purchases$Prevalence = as.double(purchases$Prevalence)
purchases$Year = as.integer(purchases$Year)

p = ggplot(purchases,aes(x=Year,y=Prevalence,fill=Format)) + 
    scale_x_continuous(breaks=seq(1980,2010,5),minor_breaks=seq(1980,2010),expand=c(0,0)) +
    scale_y_continuous(breaks=seq(0,100,25)) +
    theme(
      text=element_text(size=24),
      panel.grid=element_line(size=2),
      panel.grid.minor=element_line(size=1)
    ) +
    labs(title="Music Purchases by Format, 1980-2010\n",x="",y="Percent of Purchases")

png('barchart.png',width=3000,height=1000)
p + geom_bar(stat='identity',position="dodge")
dev.off()

png('linechart.png',width=3000,height=1000)
p + geom_line(aes(color=Format), size=2)
dev.off()

png('splitcharts.png',width=1500,height=2000)
p + geom_area() + facet_wrap(~Format,ncol=3) + 
theme(
  panel.margin=unit(24,'pt'),
  legend.position='none',
  panel.grid=element_line(size=1),
  panel.grid.minor=element_line(size=0.5),
  axis.text.x=element_text(angle=90,vjust=0.5)
)
dev.off()