我有一个如下的长格式数据
id <- c(1,1,1,1,2,2,3,3,3)
code <- c(00084, 0094, 4444, 6666, 777, 878, 1010,12, 133)
d <- data.frame(id, code)
我想创建一个字符串序列，在每个id的结尾重复，就像
id <- c(1,1,1,1,2,2,3,3,3)
code <- c(00084, 0094, 4444, 6666, 777, 878, 1010,12, 133)
seq <- c(strn1, strn2, strn3, strn4, strn1, strn2, strn1, strn2, strn3)
d <- data.frame(id, code, seq)