ggplot и gmosaic, чтобы показать процент в гистограмме в R

Question

У меня есть такой фрейм данных

      companies churn
a          0
b          1
c          0
...

Как можно использовать ggplot а также gmosaic иметь такой график:

Я пробовал этот код, но он не работает

      ggplot(data = countchurn)+
  geom_mosaic(aes(x=product(id), fill=n))+theme(axis.text.x=element_text(angle=-25, hjust= .1))