graph.R amélioré