添加条件以在R中展开网格？

是否有将条件/限制合并到R中的

expand.grid

例如，在创建网格时，如何防止出现组合

c（1,1,1）

和

c（2,2,2）

？是否有一个可扩展的解决方案可以满足许多限制条件？我的网格很大，我的内存无法处理它，例如

错误：无法分配大小为32.0 Gb的向量

，因此创建网格后的子集设置不是一个选项

expand.grid(A = rep(1:2),
            B = rep(1:3),
            C = rep(1:4))

以下代码不起作用：

expand.grid(A[!((A==1 & B==1 & C==1) & (A==2 & B==2 & C==2))] = rep(1:2),
            B[!((A==1 & B==1 & C==1) & (A==2 & B==2 & C==2))] = rep(1:3),
            C[!((A==1 & B==1 & C==1) & (A==2 & B==2 & C==2))] = rep(1:4))

as.data.frame(expand.grid(A = rep(1:2),
                          B = rep(1:3),
                          C = rep(1:4)))[!((A==1 & B==1 & C==1) & (A==2 & B==2 & C==2))]

---

谢谢

如果我们创建数据集

d1 <-  expand.grid(A = rep(1:2),
        B = rep(1:3),
        C = rep(1:4))

---

只需分配

expand.grid

数据框，然后运行所需的逻辑，通过比较所有列的相等性（根据相等的可传递属性，

A==C

不需要），可以缩短所需的逻辑：

---

d1您显示的代码不起作用，因为尚未创建
A
、
B
、
C
d1[!!rowSums(d1 != d1[,1]),]

d1 <-  expand.grid(A = rep(1:2),
                   B = rep(1:3),
                   C = rep(1:4))

d1 <-  with(d1, d1[!(A==B & B==C),])