Discussion :

[InzouM]

Bonjour,

Depuis hier je suis bloqué sur cette question.

J'ai en fait un 1er data frame comportant une colonne date (du 1er janvier à fin mai par exemple) et un second data frame comprenant une colonne date pour des périodes de vacances (nom_vacance, date_début, date_fin).

Je cherche en fait à ajouter une colonne dans mon 1er data frame qui fait que lorsque la date est compris entre les date de mon data frame vacance, il soit écris vacance et sinon normal.

J'avais imaginé quelque chose comme :

Code :

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

periode$dataframe1=ifelse( date$dataframe1 >= date_début$dataframe2 & date$dataframe1<=date_fin$dataframe2, vacance, normal)

Mais bien sûr cela ne marche pas vu qu'il fait une comparaison ligne par ligne.

Je voudrais avoir un résultat final comme ceci :

date	période
01/01/2018	vacance
02/01/2018	vacance
03/01/2018	normal
04/01/2018	normal
05/01/2018	normal
........

Merci de l'aide que vous saurez m'apporter

[marou1991]

Je vous propose ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
#créer une table de la période souhaiter ici du 1/1/2018 au 1/3/2018
data1 =  data.frame( date = seq.Date( from = as.Date("2018/1/1"), to = as.Date("2018/3/1"),by = "day"))
# j'ai simulé un fichier vacances avec le même format que le votre.
data2 = data.frame( vac = c('vac1' , 'vac2') , 
                    debut = c(as.Date("2018/01/20"),as.Date("2018/2/2")) , 
                    fin = c(as.Date("2018/01/25"), as.Date("2018/02/10")))
# je crée une table intermédiaire  ( je considère que la table vacance est trié par date de début ) il faut le trier si c'est pas le cas
v = seq.Date(data2$debut[1], data2$fin[1], by = 'day')
for( i in 2:nrow(data2)){v =  c( v , seq.Date(data2$debut[i], data2$fin[i], by = 'day') )}
data3 = data.frame( date = v, vac = rep("Vacance",length(v)))
 
# étape finale
require(sqldf)
tablefinale = sqldf( " select a.* , case when b.vac is null then 'normal' else b.vac end as vac
from data1 as a left join data3 as b on a.date = b.date")

[InzouM]

Oh géniale @marou1991, la ligne de code avec seq.Date vient de me sauver.

J'ai repris ton code à quelques détails près. (déjà en fait j'ai un dataframe vacance pour les dates de vacances et un dataframe été pour les jours d'été, les deux qui devaient être identifié dans mon 1er dataframe qui s'appelle ici "donnees")
J'ai fais comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
vac$debut_vac=dmy(vac$debut_vac)
vac$fin_vac=dmy(vac$fin_vac)
 
ete$debut_ete=dmy(ete$debut_ete)
ete$fin_ete=dmy(ete$fin_ete)
 
v = seq.Date(vac$debut_vac[1], vac$fin_vac[1], by = 'day')
for( i in 2:nrow(vac)){v =  c( v , seq.Date(vac$debut_vac[i], vac$fin_vac[i], by = 'day') )}
new = data.frame( date = v, periode = rep("PVS",length(v)))
 
e= seq.Date(ete$debut_ete[1], ete$fin_ete[1], by = 'day')
for( i in 2:nrow(ete)){e =  c( e , seq.Date(ete$debut_ete[i], ete$fin_ete[i], by = 'day') )}
new2 = data.frame( date = e, periode = rep("été",length(e))) 
 
calendrier=rbind(new,new2)
 
calendrier$date=ymd(calendrier$date)
 
donnees$periode=ifelse(donnees$date%in%calendrier$date,calendrier$periode,"PS")
 
donnees$periode=factor(donnees$periode, labels=c("PVS","été","PS"))

Le seul hic a été ici pour moi le fait que ça identifiait 1 et 2 au lieu de "PVS" et "été" et donc je devais rajouter une ligne de code pour les labels.