updated the R figure