Как я могу выбрать только неупорядоченные факторы из моего фрейма данных?

Я не могу найти простой способ выбрать только столбцы номинальных (неупорядоченных факторов) переменных из фрейма данных.

Я пытался использовать выражение "!is.ordered" для захвата переменных фактора, которые не упорядочены, но это выдает ошибку.

df=mtcars
df$am=as.factor(df$am)
df$carb=as.ordered(df$carb)
df2=df[,lapply(df,(is.factor & !is.ordered))]

Ошибка в !is.ordered : неверный тип аргумента

Это тоже не работает:

df=mtcars
df$am=as.factor(df$am)
df$carb=as.ordered(df$carb)
df2=df[,sapply(df, is.factor)]
ords=unlist(lapply(df2,is.ordered))
df2=df2[,-ords]
names(df2)

НУЛЕВОЙ