Dinamik argümanlar ben gibi bir vektör elemanları, çiftleri tüm oluşturmak için <code>expand.grid</code> kullanıyorum

Question

expand.grid için: veren

v <- 1:3 
expand.grid(v,v) 

:

Var1 Var2 
1 1 1 
2 2 1 
3 3 1 
4 1 2 
5 2 2 
6 3 2 
7 1 3 
8 2 3 
9 3 3 

Şimdi, I say aynı şeyi istiyoruz ama üçüz ile ben n-tuple bu genelleme hakkında ben giderdim nasıl

expand.grid(v,v,v) 

kullanmak böylece new.expand.grid(v,5) kullanabilir ve expand.grid(v,v,v,v,v) sonucunu alabilir misiniz?

Answer 1

expand.grid, giriş olarak list alabilir, peki ya replicate? bir fonksiyonu olarak eğlence için

expand.grid(replicate(3, v, simplify=FALSE)) 

---

, (ben bunu nasıl bilemez biliyorum gerçi):

new.expand.grid <- function(input, reps) { 
    expand.grid(replicate(reps, input, simplify = FALSE)) 
} 

new.expand.grid(c(1, 2), 4) 
# Var1 Var2 Var3 Var4 
# 1  1 1 1 1 
# 2  2 1 1 1 
# 3  1 2 1 1 
# 4  2 2 1 1 
# 5  1 1 2 1 
# 6  2 1 2 1 
# 7  1 2 2 1 
# 8  2 2 2 1 
# 9  1 1 1 2 
# 10 2 1 1 2 
# 11 1 2 1 2 
# 12 2 2 1 2 
# 13 1 1 2 2 
# 14 2 1 2 2 
# 15 1 2 2 2 
# 16 2 2 2 2 

Answer 2

do.call bir argümanların bir dizi dinamik geçme standart yoludur fonksiyonu:

new.expand.grid <- function(vec,nrep) do.call(expand.grid,rep(list(vec),nrep)) 

Örnek: new.expand.grid(letters[1:2],4)

Var1 Var2 Var3 Var4 
1  a a a a 
2  b a a a 
3  a b a a 
4  b b a a 
5  a a b a 
6  b a b a 
7  a b b a 
8  b b b a 
9  a a a b 
10 b a a b 
11 a b a b 
12 b b a b 
13 a a b b 
14 b a b b 
15 a b b b 
16 b b b b