x <- data.frame(Level=c(6.5))
x_poly <- poly(x$Level, 4, raw=TRUE)
x1 <- cbind(x, x_poly[, 2:4])
这是我的代码，当我出于某种原因使用cbind时，它打印了3行和3列，尽管x和x_poly都只有1行.
x_poly <- as.data.frame(x_poly[, 2:4])
print(dim(x_poly))
我try 打印x_poly和x_poly[，2:4]的尺寸.由于某种原因，x_poly显示1行on；但x_poly[2:4]显示3行.
当使用`[`进行提取时，R使用drop(请参见?drop)，以将其强制到可能的最低维度.
所以从矩阵来看，
> dim(x_poly)
[1] 1 4
你会得到一个矢量.
> dim(x_poly[, 2:4])
NULL
我们可以做drop=FALSE个.
> dim(x_poly[, 2:4, drop=FALSE])
[1] 1 3
因此，您要寻找的是
> cbind(x, x_poly[, 2:4, drop=FALSE])
Level 2 3 4
1 6.5 42.25 274.625 1785.062
Data:个
x <- data.frame(Level=c(6.5))
x_poly <- poly(x$Level, 4, raw=TRUE)