R- Назначить номер недели серию недельных дней

Question

Я хотел бы присвоить номер недели серию недельных дней (например, «mon», «tue», «wed» ..). Мой набор данных, как это:

2014  
wed   
thu 
fri 
sat 
sun 
mon 
tue 

И я хотел бы создать новый столбец, как это:

2014  Week 2014 
wed   1 
thu   1 
fri   1 
sat   1 
sun   1 
mon   2 
tue   2 

Но этот код должен работать на каждый год, независимо от даты начала. Thanks

Answer 1

x <- c("wed","thu", "fri", "sat", "sun", "mon", "tue") 
cumsum(x == "mon") + (x[1] != "mon") 
#[1] 1 1 1 1 1 2 2