Как добавить "Всего" к категориальной переменной Barchart?

Question

У меня есть набор данных, который имеет две категориальные переменные. Я собираюсь суммировать данные, имея одну из этих категориальных переменных на оси x и счетчики другой переменной в виде столбцов на оси y.

Есть ли простой способ свернуть все переменные оси X в «Итого», которые можно добавить к рисунку? Примерно так:

Следует отметить, что это будет столбчатая диаграмма с накоплением, имеющая три «итога», по одному для каждого категориального ответа.

Answer 1

Если это table выход, то мы можем использовать addmargins

barplot(t(addmargins(table(v1, v2), 1)))

data

set.seed(24)
v1 <- sample(c("Man", "Woman", "Legal Person", "Physical Person"), 
        100, replace = TRUE)
v2 <-  sample(1:4, 100, replace = TRUE)