私は千個の行と4つの属性を持つ大規模なR行列を持っており、4つのレベルごとになるように属性をあらかじめ指定された周波数

Question

してテーブルを作成します。

Row A B C D 
    1  1 3 4 2 
    2  2 1 3 4 
    3  1 2 4 3 
    ... ... 
    1000 3 4 1 2 

が、私はそのようにあらかじめ指定された割合で新しいテーブルを作成したいです属性Aのレベル1は、時間の25％、レベル2の50％、レベル3の10％、レベル4の15％である。テーブルのサイズは1,000行より小さく、行はユニークでなければなりません。

proportions <- c(0.25,0.5,0.1,0.15) 

私はそれが基本的な質問のようなものだ知っているが、私は2時間、私の頭が壊れていると、スタックオーバーフローやインターネット上で何かを発見していません。

UPDATE

私は列内の同じ組み合わせを維持したいです。だから私は与えられた比率で新しいテーブルを作成したいと思いますが、すでに使用しているテーブル、つまり組み合わせを使用しています。

Answer 1

「再シャッフル」したい割合でセットを作成できます。

A <- c(rep(1,250), rep(2,500), rep(3,100), rep(4,150)) 
B <- sample(A, 1000) 

EDIT： それはOPが望んでいるものを完全にクリートではありません。あなたがしたい場合

はまったく同じテーブルには、すべての新しいカウントが古いカウント 中で割り切れるように、あなたは観察の数に制限されているのと同じ正確な比率を得るために

df_new <- df[sample(1:nrow(df), nrow(df)),] 

を試すことができ、ランダム化あなたが試みることができるそれぞれのユニークな行の割合を得るために：

# simulating the table 
a <- c(rep(1,250), rep(2,500), rep(3,100), rep(4,150)) 
b <- sample(a, 4000, replace = T) 

df <- as.data.frame(matrix(b, ncol = 4)) 

names(df) <- c('a','b','c','d') 

# getting the proportions 
z <- aggregate(row.names(df), list(df$a, df$b, df$c, df$d), function(x) freq = length(x))