Shiny应用热力图无法渲染及标签异常问题调试求助

一、搞定“figure margins too large”错误 #

• 别指望renderPlot()的height="auto"/width="auto"能解决这个问题——这俩是控制Shiny的容器尺寸，管不了绘图内部的边距设置。得直接改绘图代码里的边距参数：
  • 用基础R绘图的话，在绘图前加par(mar = c(4,4,2,2))，数值分别对应下、左、上、右的边距（单位是线条数），把默认偏大的边距调小。
  • 用ggplot2的话，加theme(plot.margin = margin(5,5,5,5, "mm"))，手动缩小绘图区域的边距，避免超出容器范围。
• 先给renderPlot()设固定宽高试试，比如height = 600, width = 800，排除自适应容器带来的不确定性。

二、找回消失的标签 #

• 先确认响应式过滤后的数据没问题：在UI里加一行verbatimTextOutput("data_check")，然后在server里加output$data_check <- renderPrint({你的响应式数据对象})，看看过滤后的数据有没有丢失标签相关的列，或者行/列数是不是异常（比如只剩1行/列，标签自然显示不出来）。
• 检查绘图函数的标签参数：
  • 用基础heatmap()的话，要确保labRow和labCol指向的是过滤后数据的行/列名，别误用了原始数据的标签。
  • 用ggplot2的geom_tile()的话，确认x/y映射的是过滤后的变量，而且scale_x_discrete()/scale_y_discrete()没把标签隐藏（比如别设labels=NULL）。

三、调试响应式数据过滤 #

• 在响应式表达式里加print()输出中间结果，比如：

  filtered_data <- reactive({
    res <- 你的过滤逻辑代码
    print(str(res)) # 打印数据结构，看过滤后的数据对不对
    res
  })
  

• 在UI里临时加个表格输出（tableOutput("filtered_table")），把过滤后的数据展示出来，确认过滤条件真的生效了，数据没有被意外截断。

四、示例修正（以基础heatmap为例） #

如果你的绘图用的是基础R的heatmap，修改后的server代码大概是这样：

output$heatmap <- renderPlot(height = 600, width = 800, {
  filtered <- filtered_data()
  par(mar = c(5,5,2,2)) # 先调全局边距
  heatmap(as.matrix(filtered), 
          labRow = rownames(filtered), 
          labCol = colnames(filtered),
          margins = c(5,5)) # 再设置heatmap自身的边距
})

内容的提问来源于stack exchange，提问作者jerH