load('CaffeineTaps.rda')
levels(CaffeineTaps$Group)[2] <- "No Caffeine"
CaffeineTaps$Caffeine <- "No"
CaffeineTaps$Caffeine[CaffeineTaps$Group == "Caffeine"] <- "Yes"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.