Skip to main content
コード部分の整形
ソース リンク
Hideki
  • 4,893
  • 1
  • 18
  • 28

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

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
ソース リンク
Dicek
  • 11
  • 1

ベクトルの欠番を詰めて欠番が無いように要素を置換する方法(R言語)

1,1,2,3,3,3,5,5,7,7,7,7のように欠番があり、かつ各数字の数が異なるベクトルがあった場合に、
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