有没有办法在迷你图中定义 X,以便工具提示描述两个轴?

Is there a way to define X in sparkline lines, so that the tooltip describes both axes?

我想为迷你图工具提示添加更多细节。
我如何告诉迷你图 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)

我解决了。烦人的简单。 将 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}}'
            ))