我正在尝试使用 rep 函数创建固定数量的列(在本例中为 4 列)。在 B 列中提到了数字 1 应该在这些列中重复的频率。其余列应填充 0。
但我收到错误消息
“rep(1, B) 中的错误:‘次’参数无效”
并且不知道如何解决它
test <- data.table(A = c("XYZ", "ZYX", "WER"),
B = c(1, 3, 2))
cols <- LETTERS[3:6]
test[, (cols) := c(rep(1, B), rep(0, length(cols) - B))]
#result should be
result <- data.table(A = c("XYZ", "ZYX", "WER"),
B = c(1, 3, 2),
C = c(1, 1, 1),
D = c(0, 1, 1),
E = c(0, 1, 0),
F = c(0, 0, 0))