data(efc)
# proportion of value 1 in e42dep
prop(efc, e42dep == 1)
# expression may also be completely quotes
prop(efc, "e42dep == 1")
# proportion of value 1 in e42dep, and all values greater
# than 2 in e42dep, excluding missing values. will return a tibble
prop(efc, e42dep == 1, e42dep > 2, na.rm = TRUE)
# for factors or character vectors, use quoted or unquoted values
library(sjmisc)
# convert numeric to factor, using labels as factor levels
efc$e16sex <- to_label(efc$e16sex)
# get proportion of female older persons
prop(efc, e16sex == female)
# get proportion of male older persons
prop(efc, e16sex == "male")
# also works with pipe-chains
library(dplyr)
efc %>% prop(e17age > 70)
efc %>% summarise(age70 = prop(., e17age > 70))
# and with group_by
efc %>%
group_by(e16sex) %>%
summarise(hi.dependency = prop(., e42dep > 2))
Run the code above in your browser using DataLab