将具有参考数据集的数据拆分为多个人

Question

我需要使用参考数据集将数据分成多个人

数据1

Numbers
680
183
856
661
916
240
68
390
393
722
241
627
77
439
162
943
185
931
117

数据2

Team
A
B
C
D

输出

Numbers Team
680 A
183 A
856 A
661 A
916 A
240 B
68  B
390 B
393 B
722 B
241 C
627 C
77  C
439 C
162 C
943 D
185 D
931 D
117 D

Answer 1

与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]]

code

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