Correction graph.R