# Prepare data subset
dat <- data.frame(HairEyeColor, stringsAsFactors = FALSE)[1:32 %% 4 == 1, ]
# View data
dat
# Hair Eye Sex Freq
# 1 Black Brown Male 32
# 5 Black Blue Male 11
# 9 Black Hazel Male 10
# 13 Black Green Male 3
# 17 Black Brown Female 36
# 21 Black Blue Female 9
# 25 Black Hazel Female 5
# 29 Black Green Female 2
# Sort by Frequency
res1 <- proc_sort(dat, by = Freq)
# View results
res1
# Hair Eye Sex Freq
# 29 Black Green Female 2
# 13 Black Green Male 3
# 25 Black Hazel Female 5
# 21 Black Blue Female 9
# 9 Black Hazel Male 10
# 5 Black Blue Male 11
# 1 Black Brown Male 32
# 17 Black Brown Female 36
# Sort by Frequency descending
res2 <- proc_sort(dat, by = Freq, order = d)
# View results
res2
# Hair Eye Sex Freq
# 17 Black Brown Female 36
# 1 Black Brown Male 32
# 5 Black Blue Male 11
# 9 Black Hazel Male 10
# 21 Black Blue Female 9
# 25 Black Hazel Female 5
# 13 Black Green Male 3
# 29 Black Green Female 2
# Get unique combinations of Eye and Sex
res3 <- proc_sort(dat, keep = v(Eye, Sex), options = nodupkey)
# View results
res3
# Eye Sex
# 1 Brown Male
# 17 Brown Female
# 5 Blue Male
# 21 Blue Female
# 9 Hazel Male
# 25 Hazel Female
# 13 Green Male
# 29 Green Female
Run the code above in your browser using DataLab