add plot and R codes

add plot and R codes