set.seed(42)
n <- 3000
individus <- data.frame(
age = round(rexp(n, 1/30)),
sexe = sample(c("H","F"), n, TRUE),
poids = runif(n, 0.8, 1.3)
)
individus$age <- pmin(individus$age, 85)
pyramide_age(individus, "age", "sexe", poids="poids",
titre="Pyramide des ages", source="Recensement 2024")
Run the code above in your browser using DataLab