output$amfunnel1 <- rAmCharts::renderAmCharts({
## Data
data('data_funnel')
## Plot
amFunnel(data = data_funnel, inverse = TRUE, margin_right = 250)
})
output$code_amfunnel1 <- renderText({
"
## Data
data('data_funnel')
## Plot
amFunnel(data = data_funnel, inverse = TRUE, margin_right = 250)
"
})
output$amfunnel2 <- rAmCharts::renderAmCharts({
## Data
data('data_funnel')
## Plot
amFunnel(data = data_funnel, main = 'Reversed Pyramid', inverse = FALSE,
label_side = 'left', margin_right = 200)
})
output$code_amfunnel2 <- renderText({
"
## Data
data('data_funnel')
## Plot
amFunnel(data = data_funnel, main = 'Reversed Pyramid', inverse = FALSE,
label_side = 'left', margin_right = 200)
"
})
output$amfunnel3 <- rAmCharts::renderAmCharts({
## Data
data('data_funnel')
## Plot
amFunnel(data = data_funnel, neck_height = 30, neck_width = 40, margin_right = 250)
})
output$code_amfunnel3 <- renderText({
"
## Data
data('data_funnel')
## Plot
amFunnel(data = data_funnel, neck_height = 30, neck_width = 40, margin_right = 250)
"
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.