具有未知列数的Expand.grid

Question

我有以下数据框：

textField.inputAccessoryView = toolbar; 

我想找到所有组合，从每个LD组中选择一个。 Expand.grid似乎可以做到这一点，

map_value   LDGroup    ComboNum  
1              1           1  
1              1           2  
1              1           3  
1              2           1  
1              2           2  
1              3           1  
1              3           2  

我的问题是我需要大约500个map_values，但我不知道每个expand.grid(df[df$LDGroup==1,3],df[df$LDGroup==2,3],df[df$LDGroup==3,3]) 会存在多少LDGroups个数字。有没有办法动态提供函数参数？

Answer 1

我们可以将“ LDGroup”划分为第三列，并应用expand.grid

out <- expand.grid(split(df$ComboNum, df$LDGroup))
names(out) <- paste0("Var", names(out))