googleVis中标签的悬停样式

Question

我试图改变googleVis columnChart中悬停标签的风格。我想格式化大数字，因为它是在轴上做的。你知道如何管理它(我读过整个互联网，但仍然不知道如何修复它:D)？

说明我的问题(红色是我想要的格式和绿色)：

​

还有闪亮的应用程序例子：

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

    output$wyk <- renderGvis({

      gvisBarChart(d, xvar = "Species", yvar = "ile",
                      options=list(legend="top", bar="{groupWidth:'90%'}", height=500))

    })

})

Answer 1

您可以使用要显示的文本创建一个额外的列变量，并传递y-变量的向量，给出以".tooltip“结尾的标签aame。工具提示可以使用html标记进行样式化。format和big.mark可以在R中添加逗号。

shinyServer(function(input, output) {

    d <- iris %>% group_by(Species) %>% summarise(ile=1e6*sum(Sepal.Length))
  d$ile.tooltip <- sprintf("<p><b>%s</b><br/><b>%s</b></p>", 
    d$Species, format(d$ile, big.mark=","))

  output$wyk <- renderGvis({
    gvisBarChart(d, xvar = "Species", yvar = c("ile", "ile.tooltip"),
      options=list(legend="top", 
        tooltip="{isHtml:'True'}",  # so you can format it with html
        bar="{groupWidth:'90%'}", height=500))
  })
})