热图图例中的颜色不会出现

Question

我正在使用R并创建以下热图图：

library(reshape2) 
library(ggplot2) 
require(gridExtra)
library(RColorBrewer)
colors <- brewer.pal(9, 'Reds')
sample_data <- data.frame(matrix(sample(36, 36), nrow=6))
sample_data$id<-rownames(sample_data)
sample_data2 <- melt(sample_data, id.var="id")
ggplot(sample_data2, aes(as.factor(variable), as.factor(id), group=id)) +
  geom_tile(aes(fill = value)) + 
  geom_text(aes(fill = sample_data2$value, label = sample_data2$value), size=3) +
  scale_fill_gradientn(colours = colors) + 
  labs(x = "variable", y = "id", title="heat map")

当我在Mac上运行此代码时，一切都很棒，图例看起来很好。

但是，当我在Windows上运行它时，图例的颜色根本就不存在，只有数字。是否有ggplot2命令可用于强制图例中的颜色？