Create graphs.R