Skip to main content
1 / 3

こちらで如何でしょうか。
役に立てれば幸いです。
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
}