library(data.table)
data(opinion)
setDT(opinion)
opinion[, .N, by = "race"]
setnames(opinion, "race", "race3")
opinion[, .N, by = "education"]
opinion[, education := as.character(education)]
opinion[education == "1", education := "no hs"]
opinion[education == "2", education := "hs degree"]
opinion[education == "3", education := "some college"]
opinion[education == "4", education := "college degree"]
opinion[education == "5", education := "college degree"]
opinion <- as.data.frame(opinion)
devtools::use_data(opinion, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.