plt <- function() { par(mar = c(15, 4, .5, .5)) barplot(setNames(dat$number, dat$name), las = 2) } png("mygraph.png") plt() dev.off() pdf("mygraph.pdf") plt() dev.off()
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.