Pacotes Necessários

library(dplyr)
library(readr)
library(ggplot2)
library(leaflet)

Dataset

O dataset está disponivel em: http://dados.recife.pe.gov.br/dataset/pontos-de-coleta-seletiva

Tratamento dos Dados

Pontos de Coleta por Bairro

lixo_eletronico %>%
  count(bairro, sort = TRUE) %>%
  ggplot(aes(x = reorder(bairro, n), y = n)) +
  geom_col(fill = "steelblue") +
  coord_flip() +
  labs(title = "Pontos de coleta de lixo eletrônico por bairro",
       x = "Bairro", y = "Quantidade") +
  theme_minimal() +
  theme(
    axis.text.y = element_text(size = 10),     # aumenta a fonte dos bairros
    axis.text.x = element_text(size = 10),
    plot.title = element_text(size = 14, face = "bold"),
    plot.margin = margin(10, 10, 10, 20)
  )

Tipos de Resíduos Eletrônicos Coletados

lixo_eletronico %>%
  count(tiporesiduo, sort = TRUE) %>%
  ggplot(aes(x = reorder(tiporesiduo, n), y = n)) +
  geom_col(width = 0.5, fill = "darkgreen") +
  coord_flip() +
  labs(title = "Tipos de resíduos eletrônicos coletados",
       x = "Tipo de Resíduo", y = "Quantidade")

Mapa Interativo Dos Pontos de Coleta

leaflet(data = lixo_eletronico) %>%
  addTiles() %>%
  addMarkers(~longitude, ~latitude, popup = ~paste(endereco, "<br>", tiporesiduo))