別のベクトルに基づいてインデックス付きベクトルを作成しようとしています。ソース ベクトルは次のとおりです。
a <- c("A", "A", "B", "C", "D", "E", "E", "E")
結果のインデックス ベクトルは次のようになります。
x <- c(1, 2, 1, 1, 1, 1, 2, 3)
これを試しましたが、正しい結果が得られません:
a <- c("A", "A", "B", "C", "D", "E", "E", "E")
rle.a <- rle(a)
m <- max(rle.a$lengths)
rep(1:m, each=rle.a$lengths)
どうやって進める？