made corrections in subset code
created Plot 1