Complete plotting R scripts