添加一個for循環以包含我的數據集中的所有列

Question

我該如何使用可能的for循環來操作此代碼？

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)))))