こちらで如何でしょうか。 役に立てれば幸いです。 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 } 追記 すみません、既にエレガントな回答来てましたね。失礼しました。