Легенда отсутствует на графике 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"))

Однако, когда я строил график, моя легенда не отображалась.

Кто-нибудь знает, как решить эту проблему? Спасибо!