Discussion :

[Puppet_Master]

Bonjour.

Dans un fichier Rmd j'utilise le code suivant pour générer une partie du data frame qui me sert a créer des graphiques:

Code :

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

1
2
library(stringr)
aaaa_ss = paste0( c("2018-"), str_sub( paste0( "0", seq(1,52)), -2))

le vecteur aaaa_ss représente l'année et la semaine.

J'aimerai avoir une création de ce vecteur plus "dynamique", dans le sens ou j'aimerai avoir les 52 dernières semaines à partir de la date courante.

Et avec le même format 'AAAA-SS'.

Si quelqu'un a une idée

PS N’hésitez pas à demander des précisions si mon explication n'est pas assez claire!

EDIT: Ajout de la librairie 'stringr'

[marou1991]

Hello,

Je pense que ce bout de code peut t'aider

Code :

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

1
2
3
4
5
 
 
library(lubridate)
 
weeks <- week(seq( Sys.Date() -365 ,  Sys.Date()  , by = 'weeks' ))

[Puppet_Master]

Merci de votre réponse.
Oui cela m'aide beaucoup!
Voici la solution que cela m’inspire:

Code :

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

1
2
3
4
5
6
7
8
9
10
library(stringr)
library(lubridate)
 
aaaa_ss <- paste0(
  year( seq( Sys.Date() -365 ,  Sys.Date()  , by = 'weeks' )),
  '-',
  str_sub( paste0( '0', week( seq( Sys.Date() -365 , Sys.Date() , by = 'weeks' ))),  -2)
)
 
aaaa_ss