计算多列中“Y”和“N”的百分比？

Question

我希望能够在我的数据框中为多个列（例如 Y 和 Z）计算“Y”和“N”的百分比，所以我尝试了：

Data <- data.frame(
X = sample(1:10),
Y = sample(c("Y", "N"), 10, replace = TRUE),
Z = sample(c("Y", "N"), 10, replace = TRUE), stringsAsFactors=FALSE)
table(Data$Y)
prop.table(Data$Y)

...但这会产生：sum(x) 中的错误：参数的“类型”（字符）无效

所以，我尝试不更改为可变类型字符，而是使用因子：

Data <- data.frame(
X = sample(1:10),
Y = sample(c("Y", "N"), 10, replace = TRUE),
Z = sample(c("Y", "N"), 10, replace = TRUE))
table(Data$Y)
prop.table(Data$Y)

...但这会产生：Summary.factor 中的错误（c(1L, 2L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L), na.rm = FALSE) : 'sum' not对因子有意义

所以，我尝试将其转换为数字：

transform(Data, Y = as.numeric(Y))

...但这产生了先前的因素错误。

如何计算用于图表、图形等的多列中“Y”和“N”的百分比？

Answer 1

你需要做的

prop.table(table(Data$Y))
###  N   Y 
### 0.4 0.6 

（使用任一版本的 data.frame）

编辑：如果您需要对每一列重复计算（假设它们都是二进制变量），您可以这样做：

sapply(Data[, -1], function(x) prop.table(table(x)))
###     Y   Z
### N 0.3 0.4
### Y 0.7 0.6

（这里的'Data[, -1]'是去掉第一列）