Update date_graph.r

Now works as expected