Distribuzione punteggi sistema valutazione attivitá AUSF Viterbo

(casi_punteggio <- expand_grid(motivazione = 1:4, att_ausf = 1:4, part_eventi = 1:4))

calcola_totale <- function(punti){
 punti %>% 
    mutate(totale = motivazione * 1.6 + att_ausf * 1.4 + part_eventi,
           totale_arr = round(totale))
}

casi_punteggio <- casi_punteggio %>%
  calcola_totale

casi_punteggio

casi_punteggio %>% 
  group_by(totale_arr) %>% 
  count() %>% 
  ungroup() %>% 
  mutate(totale_arr = as_factor(totale_arr)) %>% 
  ggplot() +
  geom_col(aes(totale_arr, n), col="white") +
  geom_label(aes(x = totale_arr, label = n, y = n)) + 
  scale_fill_colorblind()

casi_punteggio %>% 
  filter(totale_arr == 10)

casi_punteggio %>% 
  filter(totale_arr == 10) %>% 
  mutate(id = 1:n()) %>% 
  pivot_longer(c(motivazione, att_ausf, part_eventi), names_to = "criterio", values_to="valore") %>% 
  mutate(criterio = factor(criterio, level = c("part_eventi", "att_ausf","motivazione" ))) %>% 
  ggplot() +
  geom_col(aes(criterio, valore, fill=criterio)) +
  geom_label(aes(criterio, valore, label = valore), alpha=.5) +
  facet_wrap(~id, ncol=4) +
  coord_flip() + 
  scale_fill_colorblind()

plot_comb_casi <- function(data, group){
  p <- data %>% 
    mutate(id = 1:n()) %>% 
    pivot_longer(c(motivazione, att_ausf, part_eventi), names_to = "criterio", values_to="punteggio") %>% 
    mutate(criterio = factor(criterio, level = c("part_eventi", "att_ausf","motivazione" ))) %>% 
    ggplot() +
    geom_col(aes(criterio, punteggio, fill=criterio)) +
    geom_label(aes(criterio, punteggio, label = punteggio), alpha=.5) +
    facet_wrap(~id, ncol=4) +
    coord_flip() +
    labs(title=str_glue("punteggio totale: {group}"))  + 
    scale_fill_colorblind()
  print(p)
}

casi_punteggio %>% 
  group_by(totale_arr) %>% 
  group_walk(plot_comb_casi)