Create plotting.R