使用ggplotly转换Alpha美学

Question

我一直在使用ggplot2使用热图，现在我正尝试将它们转换为ggplotly以使用它们构建shiny应用程序。 除了geom_tile中的alpha美学翻译（如果我use geom_raster ， geom_tile同样的问题）之外，其他所有内容都可以正常运行（ use geom_raster ）。 经过一整天的搜索和阅读相关答案之后，我还没有找到任何解决方案。

我尝试使用不同的数据和规格，到目前为止根本没有运气。 这个问题似乎特定于热图，因为如果我使用geom_point，alpha转换效果很好。 问题是，我确实需要进行工作的热图。

我制作了一个可重现的示例来说明问题。

library(ggplot2)
library(plotly)
library(dplyr)

sample<- data.frame(a = 1:10,
                b = 11:20,
                c = 31:40,
                d = rep(c("a", "b"), 5))


plot <- sample%>%
  ggplot(aes(x=a, y=b, fill = c, alpha = d))+
  geom_raster()

plot

ggplotly(plot)

您会看到输出完全不同。 有什么想法或有类似的问题吗？

ggplot：

ggplotly：

Answer 1

我同意plotly::ggplotly()并未按预期翻译某些内容。 我尝试了ggplot2::geom_rect()和ggplot2::geom_tile()和ggplot2::scale_color_manual()和ggplot2::scale_color_identity() 。

这是不带ggplot2层而直接编写为散点图的热图示例。 我没有看到直接映射Alpha /不透明度的方法。

如果您不需要在绘图中更改Alpha，而仅需要几何尺寸正确，这应该可以满足您的需求。

ds <- tibble::tibble(
  x   =  1:10,
  y   = 11:20,
  z   = 31:40,
  a1  = rep(c("a", "b"), 5),
  a2  = rep(c( .1,   .4), 5)
)

plot_ly(ds) %>% 
  add_heatmap(x = ~x, y = ~y, z = ~z, opacity = .5,  colors = "YlGnBu")

如果您需要改变alpha值，我猜当前最好的方法是创建一个自定义调色板，该调色板设置rgb a的所有四个通道。

Answer 2

万一有人遇到类似的问题，我找到了解决方法（这似乎是ggplotly的错误），方法是使用geom_point()创建热图，并调整点的形状和大小，直到看起来相同为止。 显然，ggplotly确实很好地转换了该几何图形的alpha aes。

这是最终结果（闪亮的应用程序的目的是能够选择一个具有参考年份的对角线以将其与其他对角线隔离）：