如何解决有没有办法在迷你图中定义 X,以便工具提示描述两个轴?
我想为迷你图工具提示添加更多细节。
我如何告诉迷你图用于 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}}'
))
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。