ADD: R plot scripts