Boa tarde,
Criei um gráfico de barras utilizando um indicador para preencher as cores das barras, onde o mais próximo de vermelho é ruim, e mais próximo de verde é bom. Acontece que ele ajustou de acordo com os dados, de modo que o número 29 ficou verde, quando é um valor muito ruim. Eu gostaria de ajustar manualmente o range que vai ajustar as cores. Como fazer? Obrigado!
graf_pecas_tipo <- dados_expandido %>%
filter(hierarquia0 == "PEÇAS + ACESSORIOS") %>%
group_by(hierarquia3) %>%
summarise(Qtd_busc = n(),
Qtd_vend = sum(ind_venda == "S"),
Tx_Conv = round(Qtd_vend / Qtd_busc * 100,2),
Clie_dt = n_distinct(cpf_cliente),
Preco_Med_vend = round(mean(valor_unitario_sem_acrescimo[ind_venda == "S"]),2),
Preco_Med_sem_vend = round(mean(valor_unitario_sem_acrescimo[ind_venda == "N"]),2),
Desc_Med = round(mean(desconto, na.rm = T)),2) %>%
arrange(desc(Qtd_busc))%>%
top_n(30, Qtd_busc) %>%
mutate(desc_produto = reorder(hierarquia3, - Qtd_busc),
Tx_Conv = as.integer(Tx_Conv))%>% #ordenando as barras do gráfico
ggplot(aes(x = desc_produto, y = Qtd_busc)) +
geom_col(aes(fill = Tx_Conv)) +
geom_text(aes(label = Tx_Conv, vjust = -0.5))+
scale_fill_distiller(type = "div", palette = "RdYlGn", direction = 1) +
labs(x = "Tipo de Peça",
y = "Quantidade de Orçamentos",
title = "Quantidade de buscas e Taxa de Conversão por Tipo de Peça",
subtitle = NULL,
fill = "Taxa de Conversão")+
theme_bw()+
theme(axis.text.x=element_text(angle = 45, hjust = 1))
ggplotly(graf_pecas_tipo)
dput(base)
? (Oudf
, seja como for que se chame o dataframe.) Nota: na instruçãoggplot
o primeiro argumento édata
e esse argumento está em falta no seu código.ggplot
, edite a pergunta com o resultado do últimomutate
para um dataframe. Qualquer coisa comomutate(...) -> pecas_acess
. E depoisggplot(pecas_acess, aes(x = desc_produto, y = Qtd_busc)) +
. No fim o taldput(pecas_acess)
. Ou com o nome que preferir. Peço isto porque assim podemos nos concentrar no gráfico e não no processamento dos dados até os termos prontos para plotar.