Change length of game graph in R script