Update plot4.R

changing factor to numeric for 2 variables