Объединить сгруппированные и составные гистограммы в R

Вот как выглядит мой фрейм данных:

CatA    CatB   CatC 
1        Y      A
1        N      B
1        Y      C
2        Y      A
3        N      B
2        N      C 
3        Y      A
4        Y      B
4        N      C 
5        N      A
5        Y      B

Я хочу иметь CatA на оси X и рассчитывать на ось Y. Этот график подходит. Однако я хочу создать группу для CatB и сложить ее с помощью CatC, сохраняя счет по оси Y. Это то, что я пробовал, и вот как это выглядит:

Я хочу, чтобы это выглядело так:

Мой код:

ggplot(data, aes(factor(data$catA), data$catB, fill = data$catC)) 
+ geom_bar(stat="identity", position = "stack") 
+ theme_bw() + facet_grid( ~ data$catC)

PS: Прошу прощения за предоставление ссылок на изображения, потому что я не могу их загрузить, это дает мне ошибку, возникающую в imgur, каждый раз, когда я загружаю.