Как сделать сложенный барплот до и после со всеми наблюдениями

Question

В настоящее время я работаю с данными подсчета, и я продолжаю пытаться составить столбчатую диаграмму общего количества наблюдений (сгруппированных и дифференцированных по цвету) в одной полосе для представления данных до и после. Однако, когда я создаю свою таблицу сопряженности с данными до данных, она дает мне несколько стековых баров.

Мой код выглядит следующим образом:

pre_table <- table(con_pre$NumofAnts, con_pre$Foodtype) #make a contingency table
barplot(pre_table)

Вот как выглядит con_pre:

head(con_pre)
  NumofAnts Foodtype
1         0 Pink(on)
2         1 Pink(on)
3         2 Pink(on)
4         4 Pink(on)
5         6 Pink(on)
6         4 Pink(on)

То, что я хочу, это общее количество муравьев по типу пищи в одном баре (тип пищи здесь обозначается разными цветами). Спасибо!