library(tidyverse)
Titanic %>%
data.frame() %>%
uncount(Freq) %>%
ggplot() +
aes(x = Sex) +
geom_bar(position = "fill") +
aes(fill = Survived)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.