添加for循环以包括我的数据集中的所有列

Question

我如何使用for-loop操作此代码？

tbl1 <- table(Column1Name)

cbind(tbl1,prop.table(tbl1))

此代码适用于一列，但有超过100列 我目前正在处理的数据集，因此对我来说效率非常低 重复此操作并每次更改列名等。

非常感谢任何帮助。

tbl1 <- table(Column1Name)

cbind(tbl1,prop.table(tbl1))

给出每个变量中每个因子的计数和百分比，我想这样做 对于我的所有变量，使用通用代码。

Answer 1

一些数据：

data <- as.data.frame(matrix(sample(1:5,1000,replace=TRUE),nrow=100))

听起来像你想要的东西：

lapply(data,FUN=function(x) rbind(table(x),prop.table(table(x))))

或者也许：

t(sapply(data,FUN=function(x) cbind(table(x),prop.table(table(x)))))