A minha solução é muito parecida com a do @Marcus Nunes, mas com uma diferença que me parece importante, por isso decidi também responder.
A diferença está no vetor de cores usadas na geom_label
. Para ter contraste com o fundo as cores são ou "white""red"
ou "red""white"
consoante os valores de Freq
sejam menores ou maiores que a mediana desse vetor dos dados
.
Há ainda outra diferença mas de menor importância. A função scale_fill_gradient
aceita os limites como strings com os nomes das cores, evitando assim ter que saber os valores haxadecimais RGB correspondentes. (Não faz mal nenhum sabê-los, já agora, é até muito útil.)
cols <- ifelse(dados$Freq < median(dados$Freq), "red", "white")
ggplot(data=dados, aes(x=Freq, y=Tipo, fill=Freq)) +
geom_label(label=rownames(dados), size=3, colour=cols) +
labs(x = "Frequência", y = "Tipo") +
scale_fill_gradient(low = "white", high = "red")