1 2 3 4 5 6 7 8 9 10 11 12 13
|
library(truncnorm)
library(lubridate)
library(tidyverse)
#Générer des colonnes numériques et catégorielles
data = data.frame(annee = as.integer(rtruncnorm(1000, a = 1975, b = 2020, mean = 2000, sd = 1000)), type_equipement = sample(c("Equipement1", "Equipement2", "Equipement3", "Equipement4", "Equipement5"), 1000, replace = TRUE), nombre_creation = as.integer(rtruncnorm(1000, a = 0, b = 10, mean = 3, sd = 1.5)))
#Convertir la colonne annee en variable de type "year"
data$annee = year(ymd(data$annee, truncated = 2L))
#Grouper par annee et type_equipement
data = data %>% group_by(annee, type_equipement) %>% summarise(nInAnnee = sum(nombre_creation)) %>% arrange(annee, type_equipement) |
Partager