3

私はRを使用していますが、誰かが私を助けてくれるのだろうか. このベクトルを変換したい:

y<-c(1,1,1,1,2,2,3,3,3,4,4,4)

y<-c(1,2,3,4,1,2,1,2,3,1,2,3)

だから私は次のことができます:

v<-c(rep("a",4), rep("b",2), rep("c",3), rep("d",3)) 
paste (v, y, sep="")
[1] "a1" "a2" "a3" "a4" "b1" "b2" "c1" "c2" "c3" "d1" "d2" "d3"
4

2 に答える 2

8

私はaveまだここにいないことに驚いています:

> paste0(letters[y], ave(y, y, FUN=seq_along))
 [1] "a1" "a2" "a3" "a4" "b1" "b2" "c1" "c2" "c3" "d1" "d2" "d3"
于 2013-10-16T08:53:24.230 に答える