vec <- c(1,1,2,3,3,3,5,5,7,7,7,7)
まず同じ数ごとにリストに格納する
testlist <- list()
for (i in vec){
testlist[[i]] <- vec[vec == i]
}
testlist # 1,2,3,5,7番目の要素に数値、4,6番目にはNULLが入ったリスト
NULLの部分を削除して詰める
newlist <- testlist[unique(vec)]
リストの各要素の名前を続き番号でリネーム
names(newlist) <- 1:length(newlist) # リストの要素はvecのまま欠番を保持しているがnamesは続き番号
newlistのnamesすなわち続き番号を取り出して、その番地のリスト要素の
中身を続き番号と同じになるように書き換える
finallist <- list()
for (i in 1:length(newlist)){
tmp <- names(newlist)[i]
finallist[[i]] <- rep(tmp, length(newlist[[i]]))
}
finallist
newvec <- unlist(finallist)
newvec <- as.numeric(newvec)
newvec # 1,1,2,3,3,3,4,4,5,5,5,5
vec <- c(1,1,2,3,3,3,5,5,7,7,7,7)
# まず同じ数ごとにリストに格納する
testlist <- list()
for (i in vec){
testlist[[i]] <- vec[vec == i]
}
testlist # 1,2,3,5,7番目の要素に数値、4,6番目にはNULLが入ったリスト
# NULLの部分を削除して詰める
newlist <- testlist[unique(vec)]
# リストの各要素の名前を続き番号でリネーム
names(newlist) <- 1:length(newlist) # リストの要素はvecのまま欠番を保持しているがnamesは続き番号
# newlistのnamesすなわち続き番号を取り出して、その番地のリスト要素の
# 中身を続き番号と同じになるように書き換える
finallist <- list()
for (i in 1:length(newlist)){
tmp <- names(newlist)[i]
finallist[[i]] <- rep(tmp, length(newlist[[i]]))
}
finallist
newvec <- unlist(finallist)
newvec <- as.numeric(newvec)
newvec # 1,1,2,3,3,3,4,4,5,5,5,5