CurrentPlotLims <- function() { return(list(xlim=par("usr")[1:2], ylim=par("usr")[3:4])) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.