Создание таблиц пропорций

Question

Если у меня есть таблица, такая как:

cc = c("i", "am", "useless", 0, 2, 4, 5)
aa = c("red", "blue", "red", "red", "blue", "green", "green")
bb = c(1, 1, 0, NA, 1, 1, 0)
data <- data.frame(aa, bb, cc)
> data
     aa bb      cc
1   red  1       i
2  blue  1      am
3   red  0 useless
4   red NA       0
5  blue  1       2
6 green  1       4
7 green  0       5

, и я просто хотел что-то вроде

       propOf1
red    1/3
blue   1
green  1/2 

, где по сути я просто получаю пропорцию '1' относительнообщая численность населения каждой уникальной категории.

Answer 1

С базой R вы можете запустить

with(data, tapply(!is.na(bb) & bb == 1, data$aa, mean, na.rm = TRUE))
#      blue     green       red 
# 1.0000000 0.5000000 0.3333333 

Answer 2

data$bb[is.na(data$bb)] <- 0
aggregate(data$bb, by = list(data$aa), FUN = function(x) sum(x)/length(x))

Answer 3

Вы можете сделать это с помощью dplyr.Вы группируете по aa, затем суммируете число 1, деленное на общее количество n().

library(dplyr)
data %>% group_by(aa) %>% summarise(propOf1 = sum(bb=="1",na.rm = T)/n())
## A tibble: 3 x 2
#  aa    propOf1
#  <fct> <dbl>
#1 blue  1.00 
#2 green 0.500
#3 red   0.333