Skip to main content
Corrigido pequeno erro no texto.
Fonte Link
Rui Barradas
  • 19mil
  • 2
  • 14
  • 28

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")

inserir a descrição da imagem aqui

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" ou "red" 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")

inserir a descrição da imagem aqui

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 "red" ou "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")

inserir a descrição da imagem aqui

Fonte Link
Rui Barradas
  • 19mil
  • 2
  • 14
  • 28

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" ou "red" 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")

inserir a descrição da imagem aqui