library(haven)
# create labelled integer
x <- labelled(c(1, 2, 1, 3, 4, 1),
c(Male = 1, Female = 2, Refused = 3, "N/A" = 4))
frq(x)
x <- labelled(c(1:3, tagged_na("a", "c", "z"), 4:1, 2:3),
c("Agreement" = 1, "Disagreement" = 4, "First" = tagged_na("c"),
"Refused" = tagged_na("a"), "Not home" = tagged_na("z")))
frq(x)
# in a pipe
data(efc)
library(dplyr)
efc %>% select(e42dep, e15relat, c172code) %>% frq()
# with grouped data frames, in a pipe
efc %>%
group_by(e16sex, c172code) %>%
select(e16sex, c172code, e42dep) %>%
frq()
Run the code above in your browser using DataLab