add plot3
add plot4
update: render all from R (base) instead of rstudio.