Create Graph ~ graph.R