r - R でより良い度数分布表を作成する

Question

ここにいくつかのデータがあります：

dta <- data.frame(
  id = 1:10, 
  code1 = as.factor(sample(c("male", "female"), 10, replace = TRUE)),
  code2 = as.factor(sample(c("yes", "no", "maybe"), 10, replace = TRUE)),
  code3 = as.factor(sample(c("yes", "no"), 10, replace = TRUE))
)

コード変数の適切にフォーマットされた度数表が欲しいです。

codes <- c("code1", "code2", "code3")

たとえば、組み込みコマンドを実行できますtable。

> sapply(dta[, codes], table)
$code1

female   male 
     4      6 

$code2

maybe    no   yes 
    5     2     3 

$code3

 no yes 
  4   6 

すべての情報はここにありますが、次のようにテーブルがあると便利です。

library(plyr)
ddply(dta, .(code1), summarize, n1 = length(code1))
   code1 n1
1 female  4
2   male  6

しかもこれで3回。個別のデータフレームまたはオールインワンにすることができます。

変数をループするにはどうすればよいでしょうか。または他のアプローチ。