重複遞增列表部分次數

Question

我想根據週數指定月份。我想：

full = data.frame(group = c('a', 'a', 'a', 'a', 'a', 'b', 'b', 'b', 'c', 'c'), week = c(1, 2, 3, 4, 5, 1, 2, 3, 1, 2)) 
full %>% group_by(group) %>% mutate(month = rep(1, 4, each = length(group)/4)) 

的輸出爲：

group week month 
1  a 1  1 
2  a 2  1 
3  a 3  1 
4  a 4  1 
5  a 5  2 
6  b 1  1 
7  b 2  1 
8  b 3  1 
9  c 1  1 
10  c 2  1 

然而，上面的代碼返回錯誤

錯誤mutate_impl（。數據，點）： 柱month必須是長度5（組大小）或1，而不是4

有無論如何重複一些部分長度的時間：rep(1:2, each = 1.5）是1, 1, 2，而不是1, 2？

Answer 1

你可以把周爲日期和使用lubridate

library(lubridate) 
library(dplyr) 
full %>% 
    group_by(group) %>% 
    mutate(month = lubridate::month(origin + lubridate::weeks(x=week))) 

輸出

# A tibble: 10 x 3 
# Groups: group [3] 
    group week month 
    <fctr> <dbl> <dbl> 
1  a  1  1 
2  a  2  1 
3  a  3  1 
4  a  4  1 
5  a  5  2 
6  b  1  1 
7  b  2  1 
8  b  3  1 
9  c  1  1 
10  c  2  1 

Answer 2

也許你可以使用floor代替：

full %>% group_by(group) %>% mutate(month = floor((1:length(group) + 3)/4))