To avoid repeating codes, you can save a plot and replay it later:
dev.control(displaylist="enable")
[...]
signifPlot <- recordPlot()
replayPlot(signifPlot) 
To avoid repeating codes, you can save a plot and replay it later:
dev.control(displaylist="enable")
[...]
signifPlot <- recordPlot()
replayPlot(signifPlot) 
R plot visualization function