r - 在 geom_tile 不存在的地方添加零值

Question

我正在尝试使用 geom_tile 创建热图，但并非所有坐标都有值。因此我的 geom_tile 看起来像这样：

创建图像的代码是

library(dplyr)
data(mpg)
mydata <- mpg %>% group_by(manufacturer, cyl) %>% summarize(count=n())

mydata %>% ggplot(aes(x=manufacturer, y=cyl, fill=count))+geom_tile()+geom_text(aes(label=count))

Answer 1

用于complete填写缺失的序列：

library(tidyverse)

mpg %>%
  count(manufacturer, cyl, name = 'count')  %>%
  complete(manufacturer, cyl = seq(min(cyl), max(cyl)), 
           fill = list(count = 0)) %>%
  ggplot(aes(x=manufacturer, y=cyl, fill=count))+
  geom_tile()+ geom_text(aes(label=count))