looks like I can avoid some replication by setting n1 <- nPlot(...)