R重复n次[重复]

Question

我有一个应用程序需要将 n 个对象分类到 x 个连续编号的组中。当 n 对象可以使用 rep() 函数在 x 组中平均分配时，这很简单：

objects <- c(1: 10)
groups <- 5
assign1 <- rep(1:groups, times= (length(objects)/groups))
assign1
[1] 1 2 3 4 5 1 2 3 4 5

但是，当对象不能按组大小整除时，组分配可能太长或太短：

groups <- 7
assign2 <- rep(1:groups, times= (length(objects)/groups))
assign2
[1] 1 2 3 4 5 6 7

这可以通过以下方式解决：

assign_set <- rep(1:groups, times= (length(objects)/groups)+1 )
assign3 <- assign_set[1:length(objects)]
assign3
[1] 1 2 3 4 5 6 7 1 2 3

这个解决方案似乎效率低下。有没有更有效的方法来完成这项任务？

Answer 1

这个rep_len 可能就是你要找的东西

rep_len(1:7, length.out = length(objects))
# [1] 1 2 3 4 5 6 7 1 2 3