dotPlot(~ size, data = PlateSize, width = 0.005, cex = 0.25)
dotPlot(~ resid(lm(size ~ year, data = PlateSize)), width = .001, cex = .05)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.