如何将逻辑向量合并到新列中

# 创建数据框
data <- data.frame(
  id = c(1, 2, 3, 4, 5),
  value = c(10, 20, 30, 40, 50),
  logic_vec = c(TRUE, FALSE, TRUE, FALSE, TRUE)
)

# 选择逻辑向量为TRUE的行
selected_rows <- data[data$logic_vec, ]

# 创建新列并赋值
selected_rows$new_col <- selected_rows$value

# 输出结果
print(selected_rows)

  id value logic_vec new_col
1  1    10      TRUE      10
3  3    30      TRUE      30
5  5    50      TRUE      50