Erstellen eines Datenrahmens aus Stichproben eines Vektors

Question

Angenommen, wir haben einen Vektor v <- 1:3, aus dem wir einen Datenrahmen mit 5 Zeilen generieren möchten, indem wir die sample-Funktion auf v anwenden. Die erwarteten Ergebnisse sollten in etwa so aussehen:

X1 X2 X3 
1 3 2 
2 3 1 
3 1 2 
2 1 3 
3 2 1 

Hinweis: Es ist nicht wichtig, ob einige Zeilen dupliziert werden. Ich würde eine Lösung bevorzugen, die keinen Forloop erfordert.

Answer 1

v = 1:3 
data.frame(matrix(sample(v, 5*length(v), replace = T), nrow = 5, ncol = length(v))) 
# X1 X2 X3 
#1 3 3 1 
#2 1 1 3 
#3 3 3 1 
#4 2 2 1 
#5 3 1 2 

# else 
data.frame(t(replicate(5, sample(v, length(v), replace = F)))) 
# else 
data.frame(t(sapply(1:5, function(x) sample(v, length(v), replace = F)))) 

Answer 2

Ich denke, pryr ‚s %<a-% Betreiber für diese groß ist. %<a-% speichert einen Ausdruck in einer Variablen, aber jedes Mal, wenn die Variable ausgewertet wird, wird der Ausdruck erneut ausgeführt. Perfekt für die Probenahme:

library(pryr) 
#the function sample will be rerun each time sampled is evaluated 
sampled %<a-% sample(v) 

#replicate just replicates an expression 
#t pivots the matrix, so that you get the output you want 
data.frame(t(replicate(5, sampled))) 

#or simply (since the edit makes it simpler) 
#data.frame(t(replicate(5, sample(v)))) 

Ausgang:

X1 X2 X3 
1 3 1 2 
2 2 1 3 
3 1 3 2 
4 2 3 1 
5 2 3 1 

Answer 3

dfV <- data.frame(v1 = sample(v, 5,replace = TRUE), v2 = sample(v, 5, replace = TRUE), v3 = sample(v, 5, replace = TRUE))