时间戳

首页 > 解决方案 > 在 R Shiny 中绘制 HeatMap 的问题

r - 在 R Shiny 中绘制 HeatMap 的问题

问题描述

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

这是我的 r 闪亮笔记本中的代码

这是插入 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 中的结果：rshiny 中的结果

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

标签： rshinyheatmap

解决方案

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

p<- ggplot(....)

p1<- ggplotly(p)

p1

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

推荐阅读