將複製行綁定到數據框

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））代碼崩潰。矩陣和設計的col名稱不同會導致問題。當我嘗試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