codigo_drogas

gistfile1.txt

ssp_criterios <- ssp_cortes %>%
      mutate(corte = as.numeric(corte) / 10) %>%
      gather(tipo_contagem, valor, maior, menor, total) %>%
      unite(tipo_rubrica_contagem, tipo_rubrica, tipo_contagem, sep = "_") %>%
      spread(tipo_rubrica_contagem, valor) %>%
      mutate(soma = trafico_menor +
               input$peso * porte_maior,
             prop = trafico_menor / trafico_total +
               input$peso * porte_maior / porte_total) %>%
      group_by(droga_tipo) %>%
      arrange(corte) %>%
      mutate_at(vars(soma, prop),
                funs(minimo = min(.), qualmin = corte[which.min(.)])) %>%
      ungroup() %>%
      mutate(prop_impunidade = trafico_menor / trafico_total,
             prop_injustica = porte_maior / porte_total,
             soma_impunidade = trafico_menor,
             soma_injustica = porte_maior)
    ssp_criterios