サンプルを新しい列に作成する

Question

特定の量の列1と残りの列数0のラベルを付ける新しい列を作成したい。列の20％にこのオプションを設定したい場合は、服用：

は

テストの$ Rand_Num < - サンプル（1：5、nrow（テスト）、置き換える= TRUE） テスト$出力< - ifelse（テストの$ Rand_Num == 1,1,0）しかし

私は1000の列を持っていたら、200は無作為に1で、残りは0とラベル付けされているので、30％などにすばやく変更できます。

ありがとうございます！

Answer 1

あなたがランダムに列の20％（または他のいくつかの割合）は、ランダムに選択されるように列を選択したい場合は、

p <- 0.2 # change me! 
nselect <- round(p*ncol(df), 0) 
whichcolumns <- sample(1:ncol(df), nselect) 

で（入力data.frame dfのための）選択された列のベクトルを返すことができます

は0と1のベクターにこれを有効にするには、あなたが

whichcolumns_01 <- rep(0, ncol(df)) 
whichcolumns_01[whichcolumns] <- 1 

確かのような何かを行うことができ、これはその中のいくつかのダクトテープを持っていますが、それは動作するはずです。