# Adding variables --------------------------------- d <- data.frame(x1=c(1,4,3),x2=1:3) cbind(d,matrix(1,3,2)) cbind(d, d$x1-d$x2) d$diff <- d$x1 - d$x2; d d[[4]] <- 1:3; d d[5:6] <- matrix(1,3,2); d

这段代码介绍了 R 语言中如何向数据框中添加新的变量。

假设 d 是一个名为 d 的数据框，其中包含了两列数据：x1 和 x2。

使用 cbind(d, matrix(1, 3, 2)) 可以将一个值全为 1 的 3 行 2 列的矩阵添加到 d 中，得到一个新的数据框。cbind() 函数将两个对象按列拼接起来，要求它们的行数完全相同。在这个例子中，cbind(d, matrix(1, 3, 2)) 的结果为：

x1 x2 1 1
1 1 1 1 1
2 4 2 1 1
3 3 3 1 1

其中新增的两列分别为 1 和 1。

使用 cbind(d, d$x1 - d$x2) 可以将 d 中 x1 列和 x2 列的差作为一个新的变量添加到 d 中，得到一个新的数据框。在这个例子中，cbind(d, d$x1 - d$x2) 的结果为：

x1 x2 d$x1 - d$x2
1 1 1 0
2 4 2 2
3 3 3 0

其中新增的一列为 x1 列和 x2 列的差。

使用 d$diff <- d$x1 - d$x2 可以将 x1 列和 x2 列的差作为一个名为 diff 的新变量添加到 d 中。在这个例子中，d$diff <- d$x1 - d$x2 的结果为：

x1 x2 diff
1 1 1 0
2 4 2 2
3 3 3 0

其中新增的一列为 x1 列和 x2 列的差，并被命名为 diff。

使用 d[[4]] <- 1:3 可以将一个名为 4 的新变量添加到 d 中，并赋值为 1 到 3。在这个例子中，d[[4]] <- 1:3 的结果为：

x1 x2 diff X4
1 1 1 0 1
2 4 2 2 2
3 3 3 0 3

其中新增的一列为 1 到 3。

使用 d[5:6] <- matrix(1, 3, 2) 可以将一个值全为 1 的 3 行 2 列的矩阵添加到 d 的第 5 行和第 6 行中，得到一个新的数据框。在这个例子中，d[5:6] <- matrix(1, 3, 2) 的结果为：

x1 x2 diff X4
1 1 1 0 1
2 4 2 2 2
3 3 3 0 3
4 1 1 1 1
5 1 1 1 1

其中新增的两行分别为 x1 和 x2 全为 1，diff 和 X4 全为 1。