R 选择包含高于阈值的值的列

我有以下数据集

df<-data.frame(c(1,2,1),c(2,1,3), c(1,3,4))

---

df=3

并使用

索引，其中（df>=3）

但我很难选择列。

过滤器在这里似乎是一个不错的选择：

df <- data.frame(x = c(1,2,1), y = c(2,1,3), z = c(1,3,4))

Filter(
  function(x) max(x) >= 3,
  df
  )

df=3，
df
)
名称（df）[colSums（df>=3）>0]
可能吗？或者
df[colSums（df>=3）>0]
？不确定你到底需要什么。