graphics using r 6018662