在 DT Shiny Table 工具提示中显示 ggplot

大佬教程收集整理的这篇文章主要介绍了在 DT Shiny Table 工具提示中显示 ggplot，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决在 DT Shiny Table 工具提示中显示 ggplot？

我正在尝试在工具提示中显示绘图。我只希望在我悬停在 mpg 行上方时显示工具提示。我试图实现这样的目标：https://laustep.github.io/stlahblog/posts/DTqTips.html，但结果很短。下面是我想显示的图的 reprex 解决方案。

library(shiny)
library(DT)
library(tIDyversE)

shinyApp(
  ui = fluIDPage(
    SELEcTinput('cylSELEct',choices = c(4,6,8),label ="SELEct the # of cylinders"),datatabLeoutput('table'),),server = function(server,input,output) {
    
    cars <- reactive({
      mtcars %>%
        filter(cyl == input$cylSELEct) %>%
        group_by(am) %>%
        summarise(across(everything(),mean))
    })
    
    p <- renderPlot({ 
      cars() %>%
      ggplot(aes(x = am,y=mpg)) +
      geom_bar(stat = 'IDentity')
    })
    
    output$table <- renderDatatable({
      datatable(cars()

      )
    })
  }
)

解决方法

library(shiny)
library(tippy)


tippy("Example Text",tooltip = paste(img(src="http://tippy.john-coene.com/logo.png")),allowHTML = TRUE,placement = "bottom",theme = "light"
)

大佬总结

以上是大佬教程为你收集整理的在 DT Shiny Table 工具提示中显示 ggplot全部内容，希望文章能够帮你解决在 DT Shiny Table 工具提示中显示 ggplot所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。