finished plotting.R