As funções nativas.

## Mostra quantos valores unicos tem em cada coluna
sapply(dados, function(x) length(unique(x)))

## Os iguais a dois ...
sapply(dados, function(x) length(unique(x))) == 2L