googleVisでのツールヒントのフォーマット

Question

の数字（big.markを追加）をgoogleVisにフォーマットします。昨日私はこの問いに尋ねました：Hover style of label in googleVisと答えました。今日、私はかなりsimillar問題を持っている - の違いは、複数のグループがあるということですので、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)) 
    }) 
}) 

私はどんな助けでもgratfullだろう！

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)