reset_graphics_par <- function() par(mfrow = c(1,1),
new = F,
xpd = F,
cex = 1,
las = 0,
cex.lab = 1,
cex.axis =1,
oma = c(0,0,0,0),
mar = c(5.1, 4.1, 4.1, 2.1)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.