根据最后一列的条件过滤R中的数据帧，无需硬编码列名

library(dplyr)

# 创建一个示例数据框
df <- data.frame(
  col1 = c(1, 2, 3, 4),
  col2 = c("A", "B", "C", "D"),
  col3 = c(TRUE, FALSE, TRUE, FALSE)
)

# 根据最后一列的条件过滤数据框
filtered_df <- df %>% filter(.[, ncol(df)] == TRUE)

# 创建一个示例数据框
df <- data.frame(
  col1 = c(1, 2, 3, 4),
  col2 = c("A", "B", "C", "D"),
  col3 = c(TRUE, FALSE, TRUE, FALSE)
)

# 根据最后一列的条件过滤数据框
filtered_df <- df[df[, ncol(df)] == TRUE, ]