在googleVis中悬停标签样式

Question

我试图在googleVis columnChart中更改悬停标签的样式。我想在轴上进行大数字格式化。你知道如何管理它（我已经阅读了整个互联网，但仍然不知道如何解决它：D）？

我的问题的例证（红色是我拥有的格式和我希望拥有的绿色）：

而且有光泽的应用示例：

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

    output$wyk <- renderGvis({

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

    })

})

Answer 1

您可以使用要显示的文本创建一个额外的列变量，并传递一个y变量向量，使标签以“.tooltip”结尾。工具提示可以使用html标签设置样式。带有;WITH Ranked AS ( SELECT *, RANK() OVER (PARTITION BY Category ORDER BY RowId) * 100 RANK, COUNT(*) OVER (PARTITION BY Category ) COUNT FROM #Test), Grouped AS ( SELECT *, COALESCE(LAG(RANK) OVER (PARTITION BY Category order BY Rank) / COUNT, 0) BracketStart, RANK / COUNT BracketEnd FROM Ranked ) SELECT G.RowID ,G.Customer ,G.Category FROM Grouped G WHERE G.BracketEnd <= G.Percentage OR G.Percentage BETWEEN G.BracketStart AND G.BracketEnd ORDER BY G.Category RowID Customer Category ----------- -------- -------- 1 A CAT-1 2 B CAT-1 3 C CAT-1 4 D CAT-1 6 F CAT-2 9 I CAT-3 的{​​{1}}可以在R中添加逗号。

format