根据序列同时添加多个列

Question

我有以下数据帧 u

 u <- data.frame(a1 = c("a", "b", "c"), a2 = c(2, 1, 3))

我想基于一个简单的序列同时添加14个列,这个序列是通过向最后一列添加常量3来创建新列.结果数据框:

a1  a2  a3  a4  a5  a6  a7  a8  a9  a10 a11 a12 a13 a14 a15 a16
a   2   5   8   11  14  17  20  23  26  29  32  35  38  41  44
b   1   4   7   10  13  16  19  22  25  28  31  34  37  40  43
c   3   6   9   12  15  18  21  24  27  30  33  36  39  42  45

Answer 1

我会按如下方式对此进行矢量化

u[paste0("a", 3:16)] <- matrix(u$a2 + rep(3*1:14, each = 3), nrow = 3)
u
#   a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16
# 1  a  2  5  8 11 14 17 20 23  26  29  32  35  38  41  44
# 2  b  1  4  7 10 13 16 19 22  25  28  31  34  37  40  43
# 3  c  3  6  9 12 15 18 21 24  27  30  33  36  39  42  45