Add R script and modify the display format