<br />
?clip</p>
<p>x <- rnorm(1000)<br />
hist(x, xlim=c(-4,4))<br />
usr <- par("usr")<br />
clip(usr[1], -2, usr[3], usr[4])<br />
hist(x, col = 'red', add = TRUE)<br />
clip(2, usr[2], usr[3], usr[4])<br />
hist(x, col = 'blue', add = TRUE)<br />
do.call("clip", as.list(usr)) # reset to plot region<br />
</p>