从在R中的变量下包含特定值的列表中移除数据框

# 创建包含特定值的列表
my_list <- list(df1 = data.frame(x = c(1, 2, 3), y = c("a", "b", "c")),
                df2 = data.frame(x = c(4, 5, 6), y = c("d", "e", "f")),
                df3 = data.frame(x = c(7, 8, 9), y = c("g", "h", "i")))

# 遍历列表中的每个数据框
for (df_name in names(my_list)) {
  df <- my_list[[df_name]]
  
  # 判断数据框中是否包含特定值
  if ("a" %in% df$y) {
    # 移除包含特定值的行
    df <- subset(df, y != "a")
  }
  
  # 更新列表中的数据框
  my_list[[df_name]] <- df
}