Update plot.R

add pp1, pp2 or pp4 in corresponding figures