new graph in paper

also new code R to generate the graph