1

我想创建一个闪亮的应用程序，在单独的表格中提供与热图中特定点相对应的数据。

在闪亮的.ui中

d3heatmapOutput("HeatPlot", click = "plot1_click" ),
tableOutput("Table")

然后在 shiny.server

output$HeatPlot <- renderD3heatmap(d3heatmap(inc1, scale = 'column',Colv = NA,
                                   Rowv = NA,col = rainbow(256)))

然后，当用户单击热图上的任何位置时，将显示一个表格，其中包含表格中该点的值。

output$Table <- renderTable({
      if (is.null(input$plot1_click$x)) return()
      else {
        keeprows <- round(input$plot1_click$x) == as.numeric(Data)
        head(Data[keeprows, ], 10)

但是当我运行应用程序错误时

Error in d3heatmapOutput("HeatPlot", click = "plot1_click") : 
                      unused argument (click = "plot1_click")

来了。点击功能对 d3heatmap 无效吗？还是我要在这个之前安装一些东西？请帮忙。

数据框 inc1 有点像

在此处输入图像描述

或者

如果我使用 heatmap.2 或 heatmap 具有相同的 shiny.ui 但

inc1 = output$HeatPlot <- renderPlot(heatmap(inc1, scale = 'column',Colv = NA, Rowv = NA,
                                                                        col = rainbow(256)))

我明白了

Warning: Error in renderTable: (list) object cannot be coerced to type 'double'

我应该怎么做？

4

0 回答 0