Создание многослойного графа столбцов в R без ggplot

Question

У меня есть данные

equip ballots freq %Undercounts 
1 LEVER 427780 17016   3.98 
2 OPTICAL 1436159 39090   2.72 
3 PAPER 3454 113   3.27 
4 PUNCH 823921 38462   4.67 

Я хочу построить оборудование на X-оси. И бюллетени должны составлять 100% для каждого оборудования. Freq должен быть процентом баров и быть представлен в процентах от бюллетеней.

Я пробовал barplot и решетчатые участки. Но я получаю некоторую ошибку, которая кажется, что мои данные не в форме. Может кто-то, пожалуйста, помогите мне в том, что мне может не хватать.

Спасибо.

Answer 1

Это очень просто выполнить с lattice

barchart(freq/ballots + (ballots-freq)/ballots ~ equip, tab, stack=TRUE) 

Базовые графики требуют больше кода и какую-то непонятную параметр настройки, чтобы хорошо выглядеть

attach(tab) 
barplot(rbind(freq/ballots, 1), width=.8, space=.25) 
mtext(equip, side=1, at=1:nrow(tab)-.4)