通过多个dataframe删除na列

我想删除多个数据框中充满na值的列 我试图使用一个函数并循环遍历一个数据帧列表，但它不能正常工作

---

我希望获得列表中没有na列的每个数据帧作为输出，我们可以将数据集放在列表中，然后将其删除

lst1 <- lapply(lst, function(dat) Filter(function(x) !all(is.na(x)), dat))
lst1
#[[1]]
#  col2 col3
#1   NA   12
#2   24   22

#[[2]]
#  col2 col3
#1   NA   12
#2   24   22

数据

---

使用的脚本：当您说delete NA columns时，drop_empty_cols_for_loop。这是列中的任何NA元素，然后删除该列，还是列中充满了NAs，然后删除列中充满了NA，我想删除它们。您应该在问题中添加此详细信息，而不是在注释中。这不起作用。似乎是我的dataframe列表的问题，我使用以下脚本获取列表：data\u frame_list@dam我展示了一个可复制的示例，它对me@dam您需要mget lst我得到一个错误：错误：valeur pour'df_cx'introvableYes，抱歉，找不到值'df_cx'。当我删除mget函数时，它会工作

data_frame_list <- paste0('df_',unique(df3$DATE))

lst2 <- mget(paste0('df_',unique(df3$DATE)))

df1 <- data.frame(col1 = NA, col2 = c(NA, 24), col3 = c(12, 22))
df2 <- df1
lst <- mget(paste0("df", 1:2))