Skip to main content
2 / 3
本文に 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
}

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