plot.r refined