r - Plotly 分类热图中的对角线注释

Question

考虑以下 R 代码片段来渲染带有分类轴的热图:

library(plotly)

x <- c("Blue", "Red")
y <- c("One", "Two")

plot_ly(x = x, y = y, z = c(1:4)) %>%
    add_heatmap(
        opacity = 0.9
    ) %>%
    add_annotations(
        text = c(1:4),
        showarrow = FALSE
    )

这将呈现以下热图:

从左下单元格开始，注释似乎呈对角线且不均匀地分布。 1 和 3 位于左下角单元格中，2 和 4 位于右上角单元格中。为什么是这样？我的注释文本应该如何构建才能更直观地排序(水平或垂直)？

Answer 1

我只能推测问题，但在提供的图像中，您可以看到 Plotly 仅使用了 4 个 z 值中的两个值。右侧的色阶从 1 到 2，而不是 1 到 4。发生这种情况最有可能是因为您只提供了两个 x 和 y 值。

• 使用数据框

  df <- expand.grid(x, y)
  df <- transform(df, text = paste(Var1, Var2, sep='_'))
  
  print(df)
  
  Var1 Var2     text
  1 Blue  One Blue_One
  2  Red  One  Red_One
  3 Blue  Two Blue_Two
  4  Red  Two  Red_Two
  

• 您现在可以轻松使用add_annotations

  add_annotations(x = df$Var1,
                  y = df$Var2,
                  text = df$text)
  

得到下面的图

完整代码

library(plotly)

x <- c("Blue", "Red")
y <- c("One", "Two")
df <- expand.grid(x, y)
df <- transform(df, text = paste(Var1, Var2, sep='_'))

p <- plot_ly(x = df$Var1, 
             y = df$Var2, 
             z = c(1:4)
             ) %>%
  add_heatmap(opacity = 0.9
              ) %>% 
  add_annotations(x = df$Var1,
                  y = df$Var2,
                  text = df$text)

p

---

或者，您可以循环遍历您的值并为每个值添加注释。

library(plotly)

x <- c("Blue", "Red")
y <- c("One", "Two")

p <- plot_ly(x = x, 
             y = y, 
             z = c(1:4)
             ) %>%
  add_heatmap(opacity = 0.9)

for (val_x in x)
{
  for (val_y in y)
  {
    p <- add_annotations(p, 
                         x = val_x,
                         y = val_y,
                         text = paste(val_x, val_y, sep = '_'))
  }
}

p