删除R中每个列表的dataframe列中值小于零的行

# 创建一个包含多个列表的示例数据
list1 <- data.frame(A = c(1, 2, -1, 4), B = c(5, -2, 3, 4))
list2 <- data.frame(A = c(1, -2, 3, 4), B = c(-5, 2, 3, 4))
list3 <- data.frame(A = c(1, 2, 3, 4), B = c(5, 6, -3, 4))
my_list <- list(list1, list2, list3)

# 循环遍历每个列表
for (i in 1:length(my_list)) {
  # 获取当前列表
  current_list <- my_list[[i]]
  
  # 遍历每列
  for (col in 1:ncol(current_list)) {
    # 获取当前列
    current_col <- current_list[, col]
    
    # 删除小于零的行
    current_list <- current_list[current_col >= 0, ]
  }
  
  # 更新列表
  my_list[[i]] <- current_list
}

# 打印结果
for (i in 1:length(my_list)) {
  print(my_list[[i]])
}