如何将 proptable() 应用于 R 中的所有因子变量

Question

我有一个数据集，其中包含许多不同级别的因子变量。我如何有效地为每个因子变量打印出 proptable()。预期的答案是数据框或 table。非常感谢。

df <- mtcars[, c("am", "gear")]
df$am <- factor(df$am); df$gear <- factor(df$gear)


prop.table(table(df$am))
prop.table(table(df$gear))

Answer 1

也许用 sapply？

sapply(df, function(x) if("factor" %in% class(x)) {prop.table(table(x))})

例如当 prop.table(table(df)) 抛出错误时：

library(palmerpenguins)

prop.table(table(penguins))
#Error in table(penguins) : attempt to make a table with >= 2^31 elements

sapply(penguins, function(x) if("factor" %in% class(x)) {prop.table(table(x))})
#$species
#x
#   Adelie Chinstrap    Gentoo 
#0.4418605 0.1976744 0.3604651 

#$island
#x
#   Biscoe     Dream Torgersen 
#0.4883721 0.3604651 0.1511628 

#$bill_length_mm
#NULL

#$bill_depth_mm
#NULL

#$flipper_length_mm
#NULL

#$body_mass_g
#NULL

#$sex
#x
#   female      male 
#0.4954955 0.5045045 

#$year
#NULL

如何将 proptable() 应用于 R 中的所有因子变量

How to apply proptable() to all the factor variables in R

r

data-manipulation

lapply