下面是一个示例代码,演示如何遍历数据框的每一行,并根据条件向数据框添加一个元素:
# 创建一个示例数据框
df <- data.frame(A = c(1, 2, 3), B = c(4, 5, 6))
# 定义一个空向量用于存储新元素
new_element <- vector("numeric", nrow(df))
# 遍历数据框的每一行
for (i in 1:nrow(df)) {
# 根据条件判断是否添加新元素
if (df$A[i] > 2) {
new_element[i] <- 10
} else {
new_element[i] <- 0
}
}
# 将新元素添加到数据框中
df$C <- new_element
# 打印更新后的数据框
print(df)
这个示例中,我们首先创建了一个名为df
的数据框。然后,我们定义了一个空向量new_element
,用于存储新元素。接下来,我们使用for
循环遍历数据框的每一行。在循环中,我们根据条件判断df$A[i]
的值是否大于2,如果是,则将新元素设为10,否则设为0。最后,我们将新元素添加到数据框中,并通过打印数据框来查看更新后的结果。