Повторите первые две строки для каждого идентификатора два раза

Question

Я хотел бы повторить первые две строки для каждого идентификатора два раза. Я не знаю, как это сделать. У кого-нибудь есть предложение?

id <- rep(1:4,each=6)
scored <- c(12,13,NA,NA,NA,NA,14,20,NA,NA,NA,NA,23,56,NA,NA,NA,NA, 45,78,NA,NA,NA,NA)

df <- data.frame(id,scored)
 df
   id scored
1   1     12
2   1     13
3   1     NA
4   1     NA
5   1     NA
6   1     NA
7   2     14
8   2     20
9   2     NA
10  2     NA
11  2     NA
12  2     NA
13  3     23
14  3     56
15  3     NA
16  3     NA
17  3     NA
18  3     NA
19  4     45
20  4     78
21  4     NA
22  4     NA
23  4     NA
24  4     NA
> 

Я хочу, чтобы оно выглядело так:

df
   id score
1   1    12
2   1    13
3   1    12
4   1    13
5   1    12
6   1    13
7   2    14
8   2    20
9   2    14
10  2    20
11  2    14
12  2    20
13  3    23
14  3    56
15  3    23
16  3    56
17  3    23
18  3    56
19  4    45
20  4    78
21  4    45
22  4    78
23  4    45
24  4    78
> 

................... ............................... ................... ............................... ................... ...............................

Answer 1

Мы можем сделать группу rep для не-NA элементов 'scored'

library(dplyr)
df %>%         
  group_by(id) %>%
  mutate(scored = rep(scored[!is.na(scored)], length.out = n()))
# A tibble: 24 x 2
# Groups:   id [4]
#      id scored
#   <int>  <dbl>
# 1     1     12
# 2     1     13
# 3     1     12
# 4     1     13
# 5     1     12
# 6     1     13
# 7     2     14
# 8     2     20
# 9     2     14
#10     2     20
# … with 14 more rows