Fonction de création de combinaisons dans R

Question

Je dois créer des combinaisons en utilisant 'n' variables avec une valeur minimale de 5 & maximum de 80, avec une différence de x entre elles et la somme des valeurs pour chaque combinaison doit être égale à 100

Answer 1

Pour n variables, vous devez transmettre une quantité variable de paramètres à expand.grid. Vous pouvez utiliser do.call pour cela:

combs = do.call(expand.grid, rep(list(seq(from = 5, to = 80, by = 5)), n)) 

Si vous souhaitez personnaliser les noms, vous devez les affecter séparément (via setNames). Par exemple, pour obtenir les noms m1 ... mn, utilisez:

values = rep(list(seq(from = 5, to = 80, by = 5)), n) 
names = paste0('m', seq_len(n)) 
combs = do.call(expand.grid, setNames(values, names)) 

De plus, je ne voudrais pas stocker le total de la même data.frame - utiliser une variable séparée:

total = rowSums(combs) 

... Mais Ce n'est même pas nécessaire.

mettre ensemble dans une définition de fonction:

my_combs = function (n, from, to, by, total) { 
    values = rep(list(seq(from, to, by)), n) 
    names = paste0('m', seq_len(n)) 
    combs = do.call(expand.grid, setNames(values, names)) 
    combs[rowSums(combs) == total, ] 
} 

Et vous l'appelez (par exemple) comme ceci:

result = my_combs(n = 2, from = 5, to = 80, by = 5, total = 100) 

Ce qui donne:

> result 
    m1 m2 
64 80 20 
79 75 25 
94 70 30 
109 65 35 
124 60 40 
139 55 45 
154 50 50 
169 45 55 
184 40 60 
199 35 65 
214 30 70 
229 25 75 
244 20 80