Create graph.r

initial commit