r - IR ggplot2，当我使用“geom_tile”和“geom_text”时，一些单元格文本将被覆盖

Question

使用 R ggplot2，当我使用geom_tileand时geom_text，一些单元格的文本将被覆盖，导致背景颜色变深。我知道我们可以使用geom_text(color=)一些特定的值，但这有点微不足道。关于这个的任何建议。谢谢。

md <- outer(LETTERS[1:5],
      letters[1:5],paste,sep="_") %>% as.data.frame() %>% gather(key="colname",value="link") %>% 
  select('link') %>% unique()

plot_data <- str_split(md$link,"_",simplify = TRUE) %>% as.data.frame()
names(plot_data) <- c("region","sub_region")
plot_data$amount <- round(rnorm(25)*3000,0)


plot_data %>% ggplot(aes(x=region,y=sub_region,fill=amount))+
  geom_tile()+
  geom_text(aes(label=amount))

标签： rggplot2