Good afternoon,
I created a bar chart using a gauge to fill in the colors of the bars, where the nearest to red is bad, and the closer to green is good. It turns out that he adjusted according to the data, so the number 29 turned green when it's a very bad value. I would like to manually adjust the range that will adjust the colors. How to make? Thanks!
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)