如何在R中创建平铺图？改善以显示图块中的实际因素？

Question

我目前在R中创建了以下平铺图

library(tidyverse)

set.seed(123)

#create age vector for dataframe
age<- factor(sample(c("Under 16", "16 -25", "26 - 35", "36 - 50", "50+"), size = 100,
                    replace = T),
             levels = c("Under 16", "16 -25", "26 - 35", "36 - 50", "50+"))


#create habit
habit <- factor(sample(c("Smoker", "Alcoholic", "Sugar", "Candy Crush"), size = 100,
                       replace = T))

mortality <- factor(sample(c("Highly likley", "Likely", "Unlikley", "Highly unlikley"), size = 100,
                           replace = T),
                    levels = c("Highly likley", "Likely", "Unlikley", "Highly unlikley"))



#Data frame mortality rates
df_combined <- data.frame(Age = age, Habit = habit, Mortality = mortality)


ggplot(data = df_combined, aes(x = age, y = mortality, fill = habit))+
  geom_tile() +
  scale_x_discrete(position = "top")+
  theme_bw()

代码很正常-我创建了3个变量，它们都是具有不同顺序级别的因子，

例如，我想做的是：

如果我们查看该图并查看其生成方式-我们发现，对于年龄在“ 16-25”和“极不可能”的人，其死于“糖果粉碎”（绿色方块）的死亡，

我们可以在此处使用此代码查看结果：

df_combined %>% filter(Age %in% c("16 -25"))

是否可以仅在一个图块中实际显示不同的级别？所以我想展示这个的不同层次：

df_combined %>% filter(Age %in% c("16 -25"), Mortality == "Highly unlikley")

但是就在一个图块中，而不仅仅是一种颜色

是这样的情节吗？

所以专注于16 -25和极不可能的瓷砖-我在这一节中获得了所有颜色-这可能吗？