変数のレベルの比率を取得する方法は？

Question

c1 <- rep(1,47) 
c2 <- rep(0,53) 
c <- c(c1,c2) 
cweight <- c(1:100) 

私は重みを使ってcの1と0の割合を知りたいと思います。私はwtd.tableコマンドを使用すると、私は周波数を取得します。私は分数以上のパーセンテージが欲しい。

install.packages("weights") 
library(weights) 
wtd.table(c,weight=cweight) 

これは私が得る出力です。

wtd.table(c,weight=cweight) 
    0 1 
3922 1128 

私はパーセンテージが必要です。私は変数についての非常に簡単な情報のように見えますが、これを行う簡単な方法は得られませんでした。

Answer 1

なぜ単にない：

x <- wtd.table(c,weight=cweight) 
x/sum(x) 

また、それは私にwtd.table()を使用する必要がいないようです。サイドコメントとして

x <- table(c) 
x/sum(x)