add more realistic R graph