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

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

1 个答案: