ashton_chess_plot.R

#code by Ashton Anderson
library(tidyverse)
theme_set(theme_minimal())

mt <- read.csv(url('https://gist.githubusercontent.com/ashtonanderson/cfbf51e08747f60472ee2132b0d35efb/raw/80acd2ad7c0fba4e85c053e61e9e5457137e00ee/moveno_piecetype_counts'))

mt <- mt %>%
  group_by(move_number) %>% 
  mutate(tot = sum(count),frac = count/tot)

p <- ggplot(mt %>% filter(move_number <= 80),aes(move_number,frac)) + 
  geom_area(aes(fill = piece_type), position = 'stack') + 
  scale_fill_brewer(type='qual',palette=3,name='Piece type', labels=c('Bishop','King','Knight','Castling','Pawn','Queen','Rook')) + 
  theme(panel.border=element_blank(), panel.grid.major = element_blank(), panel.grid.minor = element_blank()) + 
  xlab('Move number') + ylab('') + 
  scale_y_continuous(labels = scales::percent, breaks=seq(0,1,0.1))

p