mapa.R

Home   »   mapa.R

## cli_in_pm_cont_top_c_aux
## um df que faz junção de uma tabela de clientes (possui informações do cliente) e marcas (possui informações das marcas)
## Os campos utilziados são cliente_id, cliente_nome, lat, long, marca_nome, produto_marca_id
## É feito, anteriormente a isto, um rankeamento para que se mostre apenas as 5 maiores marcas
#Usando nome da marca como factor
cli_in_pm_cont_top_c_aux$marca_nome <- factor(cli_in_pm_cont_top_c_aux$marca_nome)

##Adicionando pequenas variações para que mesmo cliente não tenha ícones sobrepostos
cli_in_pm_cont_top_c_aux$lat <- jitter(cli_in_pm_cont_top_c_aux$lat, factor = .1, amount = 0)
cli_in_pm_cont_top_c_aux$long <- jitter(cli_in_pm_cont_top_c_aux$long, factor = .1, amount = 0)


## Aqui eu faço a junção dos ícones com as suas respectivas marcas, juntando pelo ID da marca
marcas_icon <- iconList(
  '1' = makeIcon("Icons/NH_r.png", 23, 24),          ##Caso precise consultar, olhar o csv
  '3' = makeIcon("Icons/CI_r.png", 28, 24),
  '4' = makeIcon("Icons/JD_r.png", 26, 24),
  '5' = makeIcon("Icons/MF_r.png", 34, 24),
  '6' = makeIcon("Icons/agrale_r.png", 34, 24),
  '11' = makeIcon("Icons/valtra_r.png", 26, 24),
  '12' = makeIcon("Icons/yanmar_r.png", 44, 24),
  '13' = makeIcon("Icons/jacto_r.png", 24, 24),
  '120191031172113' = makeIcon("Icons/ponsse_r.png", 24, 24),
  '120130518080852' = makeIcon("Icons/valmet_r.png", 26, 24),
  '120120724031949' = makeIcon("Icons/ideal_r.png", 19, 24),
  '120130802084245' = makeIcon("Icons/SLC_r.png", 26, 24),
  '120130522055326' = makeIcon("Icons/CBT_r.png", 28, 28),
  '120191031162533' = makeIcon("Icons/komatsu_r.png", 26, 24),
  '120191031171837' = makeIcon("Icons/JD_r.png", 26, 20),
  '120191031171708' = makeIcon("Icons/caterpillar_r.png", 38, 20),
  '120191031171942' = makeIcon("Icons/logmax_r.png", 29, 20),
  '120191031172239' = makeIcon("Icons/volvo_r.png", 24, 20),
  '120191031171807' = makeIcon("Icons/hyundai_r.png", 45, 20),
  '201912131603430251' = makeIcon("Icons/man_r.png", 41, 24),
  '120190311052038' = makeIcon("Icons/vw_r.png", 32, 32)
)

### Gráfico m1 de distribuição das marcas (top5) m1_t = tratores, m1_c = colheitadeiras
###################
##Tratores
if (nrow(cli_in_pm_cont_top_t_aux) > 0){
  m1_t <- leaflet(cli_in_pm_cont_top_t_aux) %>%
    addTiles() %>%
    addMarkers(lat = ~lat, lng = ~long, icon = ~marcas_icon[produto_marca_id],
               popup = paste0("Nome do cliente: ", cli_in_pm_cont_top_t_aux$cliente_nome,
                              "
", "Quantidade de máquinas ", cli_in_pm_cont_top_t_aux$marca_nome, " : ", cli_in_pm_cont_top_t_aux$cont), label = ~marca_nome, group = "Ícones") }else { ##Caso não haja informações para plotar o mapa (texto informando que não há informações) m1_t <- include_graphics("s_dados_m.png") }

Leave a Reply

Your email address will not be published. Required fields are marked *