Create plo2.R