R计总计数

Question

I have a plotly pie cart and a bar chart on my shiny dashboard and I was wondering if there is way to display 'total count' somewhere on the chart. For instance,

Animals <- c("giraffes", "orangutans", "monkeys")
SF_Zoo <- c(20, 14, 23)
data <- data.frame(Animals, SF_Zoo)
plot_ly(data, x = ~Animals, y = ~SF_Zoo, type = 'bar', name = 'SF Zoo')

I want to display 'Total Count = 57' in the plot somewhere

thanks,

Manoj Agrawal

Answer 1

You can try: The slice() function define where the text will be plotted.

plot_ly(data, x = ~Animals, y = ~SF_Zoo, type = 'bar', name = 'SF Zoo') %>%
  slice(which.min(SF_Zoo)) %>%
  add_annotations(paste("Total=", sum(SF_Zoo)), showarrow=F, y=20)