# Example recreated after:
# https://en.wikipedia.org/wiki/File:Piecharts.svg
# Original example by: https://commons.wikimedia.org/wiki/User:Schutz
marketshare <- data.frame(percent = c(17, 18, 20, 22, 23, 20, 20, 19, 21, 20, 23, 22, 20, 18, 17),
company = rep(LETTERS[1:5], 3),
year = rep(c("2015", "2016", "2017"), each = 5))
devtools::use_data(marketshare)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.