使用 dplyr 对热图进行排序答案

【问题标题】：Sort Heatmap with dplyr使用 dplyr 对热图进行排序
【发布时间】：2016-01-08 03:31:41
【问题描述】：

我正在构建一个交互式热图Shiny 应用程序，并希望从下拉菜单中选择要排序的列（例如：mtcars 中的“mpg”或“wt”从低到高排序）。我正在使用d3heatmap 包实现热图，并希望使用dplyr 缩短数据帧的反应性。运行代码时出现以下错误：

eval(substitute(expr), envir, enclos) 中的错误：下标无效输入“关闭”

我也尝试过使用reactiveValues 而不是reactive，并将代码作为注释包含在内。使用reactiveValues 方法我得到以下错误：

警告：观察者中未处理的错误：无效的下标类型“闭包”

任何帮助使热图排序正常工作将不胜感激！

app.R

library(ggplot2)
library(d3heatmap)
library(dplyr)
library(shiny)

## ui.R
ui <- fluidPage(
  sidebarPanel(
    h5(strong("Dendrogram:")),
    checkboxInput("cluster_row", "Cluster Rows", value=FALSE),
    checkboxInput("cluster_col", "Cluster Columns", value=FALSE),
    selectInput("sort", "Sort By:", c(names(mtcars),"none"), selected="mpg")
  ),
  mainPanel(
    h4("Heatmap"),
    d3heatmapOutput("heatmap", width = "100%", height="600px") ##
  )
)

## server.R
server <- function(input, output) {

#   values <- reactiveValues(df=mtcars)
#   
#   observe({
#     if(input$sort != "none"){
#       values$df <- arrange(mtcars, input$sort)
#     }else{
#       values$df <- mtcars
#     }
#   })

  df_sort <- reactive({
    df <- mtcars
    if(input$sort != "none"){
      df <- arrange(mtcars, input$sort)
    }else{
      df <- mtcars
    }
  })

  output$heatmap <- renderD3heatmap({
    d3heatmap(df_sort(),
      colors = "Blues",
      if (input$cluster_row) RowV = TRUE else FALSE,
      if (input$cluster_col) ColV = TRUE else FALSE,
      yaxis_font_size = "7px"
    ) 
  })
}

shinyApp(ui = ui, server = server)

【问题讨论】：

标签： r shiny dplyr d3heatmap

【解决方案1】：

input$sort 是作为字符串传递的，因此您需要使用arrange_（参见vignette on NSE）。

以下应该可以解决问题：

server <- function(input, output) {
  df_sort <- reactive({
    df <- if(input$sort=='none') mtcars else arrange_(mtcars, input$sort)
  })
  output$heatmap <- renderD3heatmap({
    d3heatmap(
      df_sort(),
      colors = "Blues",
      RowV <- if(input$cluster_row) TRUE else FALSE,
      ColV <- if(input$cluster_col) TRUE else FALSE,
      yaxis_font_size = "7px"
    )
  })
}

ui <- fluidPage(
  sidebarPanel(
    h5(strong("Dendrogram:")),
    checkboxInput("cluster_row", "Cluster Rows", value=FALSE),
    checkboxInput("cluster_col", "Cluster Columns", value=FALSE),
    selectInput("sort", "Sort By:", c(names(mtcars),"none"), selected="mpg")
  ),
  mainPanel(
    h4("Heatmap"),
    d3heatmapOutput("heatmap", width = "100%", height="600px") ##
  )
)

【讨论】：