Javascript googleVis中工具提示的格式

我想在

googleVis

图表的

tooltip

中格式化数字（添加

big.mark

）。昨天我问了这个问题，得到了答案。今天，我遇到了非常相似的问题-不同的是有多个组，所以添加

工具提示
不起作用

我的问题的形象化：

我的代码是：

ui.R
：

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

shinyUI(fluidPage(

    htmlOutput("wyk")

))

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

和
server.R
：

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

shinyUI(fluidPage(

    htmlOutput("wyk")

))

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

库（“闪亮”）
图书馆（“谷歌视界”）
图书馆（“dplyr”）
shinyServer（功能（输入、输出）{
d%
组别(种类)%>%
总结（ile=1e6*和（萼片长度），
ile2=1e6*总和（花瓣长度））
输出$wyk您可以使用，下面是一个示例：

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)

库（“闪亮”）
图书馆（“谷歌视界”）
d%
组别(种类)%>%
总结（ile=1e6*和（萼片长度），
ile2=1e6*总和（花瓣长度））
d$ile.html.tooltip非常感谢！在我得到第一个问题（）的答案后，我尝试着做同样的事情。唯一的区别是
yvar
的顺序。我从来没有想到这个顺序是重要的。太棒了！