knitr::opts_chunk$set( collapse = TRUE, message=F )
Le package contient les fonctions :
if (!require("devtools")) install.packages("devtools", dep=T) devtools::install_github("Grisoudre/lourdR")
?freqm ?freqp
A partir des données extraites de l'enquête "Histoire de vie", 2003, Insee, et fournies par le package {questionr} :
library(lourdR) data("hdv2003") # Renommer les variables cibles avec le préfixe "activite_" : index<-match("hard.rock", names(hdv2003)):match("sport", names(hdv2003)) hdv2003 <- hdv2003 %>% rename_at(index,~paste0("activite_",.))
freqm(hdv2003, "activite_")
ordre <- c("Oui","Non") hdv2003 <- hdv2003 %>% mutate(across(matches("^activite_"), ~factor(., levels = ordre))) freqm(hdv2003, "activite_")
levels <- c("name","calc","Oui","Non","Total") freqm(hdv2003, "activite_") %>% select(all_of(levels))
freqm(hdv2003, "activite_", poids = "poids")
freqm(hdv2003, 'activite_', poids="poids", calc="%")
freqm(hdv2003, 'activite_', poids="poids", calc="all",transpose=T)
freqm(hdv2003, 'sexe', poids="poids")
freqm(hdv2003, 'sexe', poids="poids", transpose=T)
freqp(hdv2003, "sexe", poids="poids")
freqp(hdv2003, "sexe", poids="poids", n=F)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.