Форматировать всплывающую подсказку в googleVis

Question

Я хотел бы отформатировать номер (добавить big.mark) в tooltip в googleVis диаграмма. Вчера я задал этот вопрос: наведите курсор на стиль ярлыка в googleVis и получил ответ. Сегодня у меня довольно схожая проблема - разница в том, что существует более одной группы, поэтому добавление tooltip не работает...

Визуализация моей проблемы:

И мой код:

ui.R:

library("shiny")
library("googleVis")

shinyUI(fluidPage(

    htmlOutput("wyk")

))

а также server.R:

library("shiny")
library("googleVis")
library("dplyr")

shinyServer(function(input, output) {

    d <- iris %>%
        group_by(Species) %>%
        summarise(ile=1e6*sum(Sepal.Length),
                  ile2=1e6*sum(Petal.Length))

    output$wyk <- renderGvis({
        gvisBarChart(d, xvar = "Species", yvar = c("ile", "ile2"),
                     options=list(legend="top", bar="{groupWidth:'90%'}", height=500))
    })
})

Буду благодарен за любую помощь!

Answer 1

Вы можете сделать это, используя роли, вот пример:

library("shiny")
library("googleVis")

d <- iris %>%
        group_by(Species) %>%
        summarise(ile=1e6*sum(Sepal.Length),
                  ile2=1e6*sum(Petal.Length))

d$ile.html.tooltip <- prettyNum(d$ile,big.mark = ",",scientific = F)
d$ile2.html.tooltip <- prettyNum(d$ile2,big.mark = ",",scientific = F)

ggvis_plot <- gvisBarChart(d, xvar = "Species", yvar = c("ile","ile.html.tooltip","ile2","ile2.html.tooltip"),
                     options=list(legend="top", bar="{groupWidth:'90%'}", height=500))

plot(ggvis_plot)