Update Q4_1-plotting.R