r - ggplot图中缺少图例

Question

所以这是我用来创建这样的并排条形图的以下代码：

california %>% 
  pivot_longer(4:6, names_to = "Size", values_to = "Num.Sold") %>% 
  select(-c(AveragePrice)) %>% 
  ggplot(aes(x=region,y=Num.Sold,fill=Size))+
  geom_col(position = "fill")+
  facet_wrap(~type)+
  scale_fill_discrete(breaks=c("Small","Large","Extra Large"))

但是，当我绘制图表时，我的图例没有出现。

有人知道如何解决这个问题吗？谢谢！

标签： rggplot2legend