## ----data----------------------------------------------------------------
library(pier)
data <- data.frame(label = c('Environment','Education','Business','Community'),
value = c(104,19,638,1250),
color = c("#A6CEE3","#1F78B4","#B2DF8A","#33A02C"))
## ----simple, fig.width=7, fig.height=6, fig.align='center'---------------
pier(data)
## ----small, fig.width=7, fig.height=6, fig.align='center'----------------
data %>%
pier(smallSegmentGrouping = TRUE, value = 10)
## ----advanced, fig.width=7, fig.align='center'---------------------------
data %>%
pier() %>%
pie.size(inner=70, outer=100, width=700, height=500) %>%
pie.header(text='Segments', font='Impact', location='pie-center') %>%
pie.subtitle(text='by Type') %>%
pie.footer(text='Economic Segments using fake data.',
location = 'bottom-left') %>%
pie.tooltips()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.