Je cherche à ajouter les valeurs de sommes des lignes et des colonnes sur le résultat des commandes
Code : Tout sélectionner
table
Code : Tout sélectionner
survey::svytable
Je cherche à le faire sans utiliser plusieurs variable au milieu.
Et naturellement à avoir les colonnes et lignes Total en dernière position.
Voici un ecm :
Code : Tout sélectionner
res <- data.frame(
Type_diplome = c("M2", "M2", "M2", "M2", "M2", "MEEF", "M2", "M2", "M2",
"M2", "M2", "LP", "LP", "M2", "M2", "M2",
"MEEF", "LP", "MEEF"),
statut_reponse = c("internet", "internet", "internet", "internet", "internet",
"téléphone","internet", "internet", "téléphone", "internet",
"internet", "téléphone", "téléphone", "téléphone",
"téléphone", "refus", "refus", "refus", "refus")
)
table(res$Type_diplome,
res$statut_reponse) %>%
cbind(table(donnee$ins$Type_diplome, donnee$ins$dip)[,2]) %>%
as.data.frame() %>% rename("Diplomé" = starts_with("V")) %>%
bind_rows(., colSums(.) ) %>%
mutate("Diplôme" = c(unique(donnee$res$Type_diplome), "Total"),
"Total" = colSums(.) ) %>%
plyr::arrange()
kable(format = "latex", booktabs = TRUE)
Mes problèmes avec cet ecm réside surtout sur
-1 comment éviter la perte des rownames pour éviter d'avoir à reconstruire la première colonne ?
-2 comment utiliser la fonction arrange pour avoir pos 1 la colonne reconstruite (sauf si vous avez une solution à 1) et comment avoir Total en dernière colonne ?
Merci déjà d'en être arrivé ici.