Format Tooltip in googleVis

Question

Ich möchte Nummer (big.mark) in tooltip in googleVis Diagramm formatieren. Gestern habe ich diese Frage gestellt: Hover style of label in googleVis und habe die Antwort bekommen. Heute habe ich ganz simillar Problem bekam - der Unterschied ist, dass es mehr als eine Gruppe, so dass das Hinzufügen tooltip nicht funktioniert ...

Die Visualisierung meines Problems:

Und mein Code:

ui.R:

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

shinyUI(fluidPage(

    htmlOutput("wyk") 

)) 

und 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)) 
    }) 
}) 

Ich wäre für jede Hilfe dankbar!

Answer 1

Sie dies mit roles tun können, hier ein Beispiel:

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)