gender_data <- datasets::Titanic[,,Age="Adult", Survived="Yes"]
gender_data <- reshape2::melt(gender_data)
names(gender_data) <- c("class", "gender", "survivors")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.