Create graph.R