有没有办法在迷你图中定义 X，以便工具提示描述两个轴？答案

【问题标题】：Is there a way to define X in sparkline lines, so that the tooltip describes both axes?有没有办法在迷你图中定义 X，以便工具提示描述两个轴？
【发布时间】：2021-01-29 10:56:44
【问题描述】：

我想为迷你图工具提示添加更多细节。
我如何告诉迷你图为x 使用什么？
如果我将任何其他变量添加到spk_chr(c(Sepal.Length))，它只会将它们附加到y。

我希望工具提示显示“Sepal.Width: Sepal.Length”，例如“3.3：6.5”。目前，它只是显示组内的位置。

（在我的实际应用中，我正在创建一个时间序列，因此 X 将是一个日期）

library(shiny)
library(dplyr)
library(sparkline)
library(DT)

ui <- fluidPage(
    
    htmlwidgets::getDependency('sparkline'),
    dataTableOutput("table")
)


server <- function(input, output) {
    
    cb <- htmlwidgets::JS('function(){debugger;HTMLWidgets.staticRender();}')
    
    mydata <- iris %>%
        group_by(Species) %>%
        arrange(Sepal.Width) %>% 
        summarise(
            "Sepal Length" = spk_chr(
                c(Sepal.Length),
                tooltipFormat = '{{x}}: {{y}}'
            ))
    
    output$table <- renderDataTable({
        datatable(
            data = mydata,
            escape = FALSE,
            options = list(drawCallback = cb)
            )
    })
    
}

shinyApp(ui = ui, server = server)

【问题讨论】：

标签： r shiny tooltip sparklines

【解决方案1】：

我解决了。简单得烦人。将xvalues = Sepal.Width 添加到spk_chr() 这会导致使用此示例数据集进行分组时出现一些问题，但是当x 值都是唯一的时，它可以工作。

    mydata <- iris %>%
        group_by(Species) %>%
        arrange(Sepal.Width) %>% 
        summarise(
            "Sepal Length" = spk_chr(
                c(Sepal.Length),
                xvalues = Sepal.Width,
                tooltipFormat = '{{x}}: {{y}}'
            ))

【讨论】：