如何在R的5个数据框中删除列中的常见元素

# 存储5个数据框的列表
dataframes <- list(df1, df2, df3, df4, df5)

# 常见元素的向量
common_elements <- c("common_element1", "common_element2", "common_element3")

# 遍历列表中的每个数据框
for (i in 1:length(dataframes)) {
  # 遍历数据框的每一列
  dataframes[[i]] <- lapply(dataframes[[i]], function(column) {
    # 判断每个元素是否为常见元素，并进行替换
    ifelse(column %in% common_elements, NA, column)
  })
  
  # 删除包含常见元素的列
  dataframes[[i]] <- dataframes[[i]][, !colnames(dataframes[[i]]) %in% common_elements]
}

# 检查结果
print(dataframes)