Discussion :

[preliator]

Bonjour à tous,

Je dispose d'un fichier de donnée de relevé kilometriques, avec Prénom, Date, et Kilometre par jour, de janvier 2012 à février 2019. Je souhaiterais trouver combien de kilomètre ont été parcouru par mois, ou par semaine.

J'ai commencé à utiliser package "lubridate". Aucun problème pour calculer les KM parcourus par année avec cette formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Km_Par_Annee = aggregate(data$KM~year(data$date), data, sum)

Par contre, pour les mois, cette technique ne marche pas. En effet, j'ai l'impression qu'il me cumule les KM de tout les Janvier, février, ... de toute les années. Ainsi, avec cette formule qui ne marche pas comme je voudrais .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Km_Par_Mois = aggregate(data$KM~month(data$date), data, sum)

... je me retrouve avec une table contenant seulement 12 entrées (pour janvier, février, ...) avec les kilometres cumulés sur toute les années. Or moi, je voudrais avec le nombre de kilometre pour chaque mois et par année (Janvier 2012, Fevrier 2012, Mars 2012, ...... Janvier 2019, Fevrier 2019, etc).


Ici pour télécharger le fichier de données : https://drive.google.com/open?id=1il...FazbPW-28myYS4

Merci.

[Puppet_Master]

Bonjour preliator

une piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
library(readr)
 
d <- read_delim("./source.csv", 
                ";",
                escape_double = FALSE,
                col_types = cols(date = col_date(format = "%d/%m/%Y")), 
                trim_ws = TRUE)
 
library(lubridate)
 
Km_Par_Mois = aggregate(d$KM~month(d$date)+year(d$date), d, sum)
 
View(Km_Par_Mois)

[preliator]

Un grand merci je pense que j'ai simplement oublié de faire un "data$DATE = dmy(data$DATE)". Tous marche beaucoup mieux maintenant

J'ai bien réussi en faisant la formule suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Km_Par_Mois = aggregate(KM~month(date)+year(date), data, sum)
 
Km_Par_Mois$`month(date)` = month(Km_Par_Mois$`month(date)`, label = TRUE) #POUR AFFICHER LE NOM DES MOIS, POUR EVITER D'AVOIR DES (1,2,3,4, ETC ...)