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

Question

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

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