quartis ou outra classificação automática about rnotebook HOT 4 OPEN

PONTOS60$quartis2 <- cut(
  PONTOS60$`Cic/Hora_2019`,
  breaks = c(0, 15, 30, 45, 100, max(PONTOS60$`Cic/Hora_2019`)),
  labels = c("0-15","15-30","30-45","45-90", ">100")
)

mapview(
  Trotinetas2019PontoHoras,
  zcol = "TrotinetasHora",
  at = quantile(Trotinetas2019PontoHoras$TrotinetasHora),
  lwd = 0.5,
  layer.name = "trotinetas/hora",
  label = Trotinetas2019PontoHoras$Local,
  popup = leafpop::popupTable(
    Trotinetas2019PontoHoras,
    row.numbers = F,
    feature.id = F
  )
)

RedeViaria$declive_class =  RedeViaria$declive %>% 
  cut(
    breaks = c(0, 3, 5, 8, 10, 20, Inf),
    labels = c("0-3: plano", "3-5: leve","5-8: médio", "8-10: exigente", "10-20: terrível", ">20: impossível"),
    right = F #para incluir o intervalo com 0-3] em vez de [
  )