结合使用rep()和each和length-out参数

在此示例中，我使用了data.table。

样本数据

library(data.table)
dt <- fread("Numbers
680
183
856
661
916
240
68
390
393
722
241
627
77
439
162
943
185
931
117")

team <- fread("Team
A
B
C
D")[[1]]

代码

dt[,Team := rep( team,each = ceiling( nrow(dt)/length(team) ),length.out = nrow(dt) )]

输出

#     Numbers Team
#  1:     680    A
#  2:     183    A
#  3:     856    A
#  4:     661    A
#  5:     916    A
#  6:     240    B
#  7:      68    B
#  8:     390    B
#  9:     393    B
# 10:     722    B
# 11:     241    C
# 12:     627    C
# 13:      77    C
# 14:     439    C
# 15:     162    C
# 16:     943    D
# 17:     185    D
# 18:     931    D
# 19:     117    D