Create time_graph.r