Update plot4.R

Had to make some variables dfNewData, col4DfNewData as global using <<- instead of <-