load("SampCountries.rda")
l <- c("Under 2500", "2500 - 5000", "Over 5000")
SampCountries <- transform(SampCountries,
kwhPerCap = ordered(l[Developed],levels=l))
rm(l)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.