将复制行绑定到数据帧

Question

您可以改进以下代码吗？

A  <- B <- C  <-  c(-1,1) # for Factorial design
design  <- expand.grid(A=A, B=B,C=C) # for Factorial design
design  <- rbind(design, c(0,0,0),c(0,0,0),c(0,0,0))  #  centre points added to design

我想用最简洁的方式做最后一行。

当我尝试使用rbind（设计，矩阵（0,3,3））时，代码崩溃了。矩阵和设计的列名称不同导致问题。当我尝试rbind（design，rep（c（0,0,0），3））时，我只附加了一行而不是三行。

Answer 1

上面的@LyzandeR友好地回答了这个问题

rbind(design, 0, 0, 0)

通过回收每行的每个值来实现。

因此，

A  <- B <- C  <-  c(-1,1) # for Factorial design
design  <- expand.grid(A=A, B=B,C=C) # for Factorial design
design  <- rbind(design,0,0,0)  #  centre points added to design