小编yap*_*aph的帖子

我在下面的switch语句中遇到问题:

names <- rep(1:num.bins, 3)
names <- sort(names)
c.names <- sapply(1:(3*num.bins), function(i){

   switch( i %% 3,
           1 = paste0("M", names[i]),
           2 = paste0("F", names[i]),
           0 = paste0("E", names[i])
            )
    })

如果我的'num.bins'是3,我想要以下输出:

print(names)
[1] 1 1 1 2 2 2 3 3 3

print(c.names)
[1] "M1" "F1" "E1" "M2" "F2" "E2" "M3" "F3" "E3"

但是,我收到了一个错误.非常感谢您的帮助.