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

Question

Я хотел был бы отформатировать номер (добавить big.mark) в tooltip в googleVis диаграммы. Вчера я задал этот вопрос: Hover style of label in 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

Вы можете сделать это с помощью roles, вот пример:

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)