library("R.utils")
local({
dev.new()
on.exit(dev.off())
subplots(4)
for (kk in 1:4) plot(kk, main=kk)
})
local({
dev.new()
on.exit(dev.off())
subplots(1:4)
for (kk in 1:4) plot(kk, main=kk)
})
local({
dev.new()
on.exit(dev.off())
subplots(4, nrow=2)
for (kk in 1:4) plot(kk, main=kk)
})
local({
dev.new()
on.exit(dev.off())
subplots(nrow=2, ncol=4)
for (kk in 1:4) plot(kk, main=kk)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.