尝试删除R中的列，返回逻辑向量

to_delete <- c(FALSE, TRUE, FALSE, FALSE, TRUE, FALSE)

new_df <- df[, to_delete]

# 创建一个示例数据框
df <- data.frame(
  col1 = c(1, 2, 3),
  col2 = c("a", "b", "c"),
  col3 = c(TRUE, FALSE, TRUE),
  col4 = c(4.5, 6.7, 8.9),
  col5 = c("x", "y", "z")
)

# 创建逻辑向量
to_delete <- c(FALSE, TRUE, FALSE, FALSE, TRUE)

# 删除列
new_df <- df[, to_delete]

# 输出结果
print(new_df)

  col1  col3 col4
1    1  TRUE  4.5
2    2 FALSE  6.7
3    3  TRUE  8.9