Skip to main content
書式の改善
ソース リンク
cubick
  • 2.1万
  • 5
  • 27
  • 64

こちらで如何でしょうか。
 役に立てれば幸いです。
vec <- c(1,1,2,3,3,3,5,5,7,7,7,7)

target1 <- setdiff(1:max(vec), unique(vec))

for(i in 1:length(target1)){
vec[target1[i]<=vec] <- vec[target1[i]<=vec]-1
}

vec <- c(1,1,2,3,3,3,5,5,7,7,7,7)

target1 <- setdiff(1:max(vec), unique(vec))

for(i in 1:length(target1)){
vec[target1[i]<=vec] <- vec[target1[i]<=vec]-1
}

追記
すみません、既にエレガントな回答来てましたね。失礼しました。

こちらで如何でしょうか。
 役に立てれば幸いです。
vec <- c(1,1,2,3,3,3,5,5,7,7,7,7)

target1 <- setdiff(1:max(vec), unique(vec))

for(i in 1:length(target1)){
vec[target1[i]<=vec] <- vec[target1[i]<=vec]-1
}

追記
すみません、既にエレガントな回答来てましたね。失礼しました。

こちらで如何でしょうか。役に立てれば幸いです。

vec <- c(1,1,2,3,3,3,5,5,7,7,7,7)

target1 <- setdiff(1:max(vec), unique(vec))

for(i in 1:length(target1)){
vec[target1[i]<=vec] <- vec[target1[i]<=vec]-1
}

追記
すみません、既にエレガントな回答来てましたね。失礼しました。

本文に 36 文字追加
ソース リンク

こちらで如何でしょうか。
役に立てれば幸いです。
vec <- c(1,1,2,3,3,3,5,5,7,7,7,7)

target1 <- setdiff(1:max(vec), unique(vec))

for(i in 1:length(target1)){
vec[target1[i]<=vec] <- vec[target1[i]<=vec]-1
}

追記
すみません、既にエレガントな回答来てましたね。失礼しました。

こちらで如何でしょうか。
役に立てれば幸いです。
vec <- c(1,1,2,3,3,3,5,5,7,7,7,7)

target1 <- setdiff(1:max(vec), unique(vec))

for(i in 1:length(target1)){
vec[target1[i]<=vec] <- vec[target1[i]<=vec]-1
}

こちらで如何でしょうか。
役に立てれば幸いです。
vec <- c(1,1,2,3,3,3,5,5,7,7,7,7)

target1 <- setdiff(1:max(vec), unique(vec))

for(i in 1:length(target1)){
vec[target1[i]<=vec] <- vec[target1[i]<=vec]-1
}

追記
すみません、既にエレガントな回答来てましたね。失礼しました。

ソース リンク

こちらで如何でしょうか。
役に立てれば幸いです。
vec <- c(1,1,2,3,3,3,5,5,7,7,7,7)

target1 <- setdiff(1:max(vec), unique(vec))

for(i in 1:length(target1)){
vec[target1[i]<=vec] <- vec[target1[i]<=vec]-1
}