add r plot