在 R Shiny 中绘制 HeatMap 的问题

Question

我想在 rshiny 应用程序中绘制热图。我设法让它在 r 笔记本上工作，结果正确。但是，当我将相同的代码放入我的 rshiny 应用程序时，热图结果却有所不同。

Here is the code in my r shiny notebook

这是插入到 rshiny 应用程序中的相同代码：

output$heatmapPlot <- renderPlotly({

heat_map_data <- data %>% 
   group_by(year,town,estate_type,flat_type,storey_range) %>% 
  summarise(median_sales = median(resale_price ))

df_matrix <- data.frame(heat_map_data)
print(df_matrix)

ggplot(df_matrix, aes(x = flat_type, y = storey_range, fill = median_sales)) + 
  geom_tile() +
  scale_y_discrete(limits = rev(levels(as.factor(df_matrix$storey_range))))              
})

rshinyapp 中的结果：Result in rshiny

有人可以帮我解决这个问题吗？谢谢！

Answer 1

由于您使用了renderPlotly()，请将ggplot() 对象分配给ggplotly()。

p<- ggplot(....)

p1<- ggplotly(p)

p1

在ggplot() 函数之前比较 print() 函数的结果。将您的数据集包含在反应函数中并相应地使用它。