Создание пропорциональных графов в R

Question

Я хочу создать пропорциональную гистограмму в R. У меня есть две переменные, одна из них «пьяная», а другая «жилье».«пьяный».

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

Пьяный: 0, 1, 0, 1, 1, 1, 1, 0 Корпус: 1, 2, 1, 3,1, 4, 1, 1

Я хочу знать, как составить график доли каждой категории жилья (от 1 до 4), которая соответствует «1» для пьяных.

png("Graphs / Analysis_Figure1.png")

анализ%>%

количество (жилье, пьяный)%>%

group_by (жилье)%>%

mutate (freq = n / sum (n))%>%

ggplot (aes (x = жилье, y = freq, fill = drunk)) +

geom_bar (stat= "identity", position = 'dodge')

dev.off ()

Это дает мне пропорции, но вместо того, чтобы включать только ответы "1" для пьяных, ятакже получить "0". Есть ли способ включить только 1?

Это имаge, сгенерированный с помощью STATA, который я надеюсь скопировать в N R

Это то, что я получаю с R вместо этого.Я хочу удалить «2 или меньше» (закодировано как «0» пьяные ответы

Answer 1

Вы можете использовать функцию filter() из dplyr в вашей линии:

analysis %>%
filter(drunk == 1) %>%
count(housing, drunk) %>% ...