在Shiny应用中替换ggplot2热图数据标签为实际列名

首先，你的问题根源在于直接使用列索引（gen3[,1]、gen3[,2]）来映射ggplot的美学属性，这会让Plotly在hover时显示索引式的生硬标签，而非你想要的友好格式。我们可以通过两个关键步骤来修复：

步骤1：规范melt后的列名引用 #

当你用melt()处理数据后，默认会生成三列清晰的列名：

• 你指定的id列（这里是gene_symbol）
• variable：存储原数据框的样本列名
• value：存储对应的基因表达状态值

在ggplot中直接使用这些列名而非索引，就能让系统自动识别正确的标签逻辑：

修改server.r中renderPlotly的代码部分：

output$sc<-renderPlotly({
   library(ggplot2); library(reshape2)
   # 明确指定id.vars，保持与原数据列名一致
   gen3 <- melt(rt(), id.var = "gene_symbol")
   # 用列名而非索引映射美学属性
   p1<-ggplot(gen3, aes(x = gene_symbol, y = variable)) +
     geom_tile(aes(fill = value), colour = "white") +
     scale_fill_manual(values=c("yellow", "red", "blue"))+
     labs(x = "Gene Symbol", y = "Sample", fill="Expression State")+
     theme(title = element_text(family = "Calibri", size = 10, face = "bold"),
           axis.title = element_text(family = "Calibri Light", size = 16, face = "bold", color = "black"),
           axis.text = element_text(family = "Calibri", size = 11),
           axis.title.y = element_text(margin = margin(t = 0, r = 25, b = 0, l = 25)),
           panel.background = element_rect(fill = NA),
           panel.grid.major = element_line(colour = "grey50"))
   ggplotly(p1)%>%
     layout(
       autosize = F,
       width = 1450,
       height = 600,
       hoverlabel = list(bgcolor = "white", font = list(family = "Calibri", size = 9, color = "black")))
 })

步骤2：自定义Hover标签格式（可选但推荐） #

如果你想要完全定制hover文本的显示格式（比如严格按照gene_symbol: DADA的样式），可以在aes()中添加text参数手动拼接内容，再告诉Plotly使用这个自定义文本作为tooltip：

p1<-ggplot(gen3, aes(x = gene_symbol, y = variable,
                     # 自定义hover文本的格式
                     text = paste("gene_symbol:", gene_symbol, "\n",
                                  "sample:", variable, "\n",
                                  "value:", value))) +
  geom_tile(aes(fill = value), colour = "white") +
  # 其他绘图设置保持不变...

然后在ggplotly()中指定使用自定义的text作为tooltip：

ggplotly(p1, tooltip = "text")%>%
  # layout设置保持不变...

额外小提示 #

• 如果你不确定melt后的列名，可以临时在renderPlotly中加一行print(colnames(gen3))来查看，确保引用的列名完全正确。
• 尽量避免混用列索引和列名，这会减少很多类似的标签显示问题，也让代码更易读维护。

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