如何创建一个循环来检查每个变量的级别数？

Question

我是rstudio的新手，因此我不得不清理数据。因此，基本上我需要删除所有nlevels <= 2的变量，然后形成干净的新数据。我想创建一个if else语句来为我执行此操作。我该怎么办？我要清除的数据称为“ full_clean”，我在下面编写了代码，但是它无法运行并且看起来很凌乱。预先感谢！

for (i in 1:ncol(full_clean)){
  if(nlevels(as.factor(lapply((head(full_clean,n=0)[2],factor))))){
    full_clean <- select(full_clean, -colnames(full_clean[i]))
  }
}