## Function to use the mouse to zoom in on plots.
## Author: Bill Dunlap <bill@STAT.WASHINGTON.EDU>
zoom <- function(fun, ...) {
on.exit(par(oldpar))
oldpar <- par('err')
par(err = -1)
fun(...)
while(TRUE) {
cat("Click mouse over corners of zoom area: ")
p <- locator(n = 2)
if(length(p$x) != 2) break
xlim <- range(p$x)
ylim <- range(p$y)
cat("xlim=", xlim, "ylim=", ylim, "\n")
fun(..., xlim=xlim, ylim=ylim)
}
cat("Bye! \n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.