Update plot4.R

Forgot to assign summary to DF