上面三列都有na值

非常抱歉，我的回答有误。正确的方法是使用 `complete.cases()` 函数和逻辑向量来选择不包含 `NA` 值的列。具体代码如下：

# 创建一个包含 NA 的数据框
df <- data.frame(a = c(1, 2, NA, 4), b = c(NA, 6, 7, 8), c = c(9, 10, NA, 12))

# 删除包含 NA 的列
df <- df[, complete.cases(df)]

# 查看结果
df

在上面的例子中，`complete.cases(df)` 函数返回一个逻辑向量，其中 `TRUE` 表示该行不包含 `NA` 值，`FALSE` 表示该行包含 `NA` 值。然后，使用逻辑向量来选择不包含 `NA` 值的列，即可得到删除包含 `NA` 的列后的数据框。