заменить значения в колонке со значениями заказанного

Question

У меня есть data.frame, который выглядит следующим образом:

df <- data.frame(names=c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K"), 
       values=c(1,1,4,6,7,7,7,9,9,14,15)) 

И я хотел бы что-то похожее на это:

df <- data.frame(names=c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K"), 
       values=c(1,1,2,3,4,4,4,5,5,6,7)) 

Я знаю, что это глупый вопрос, но я не знаю, как это сделать. Благодаря

Примечание: значения во втором data.frame должно быть порядка от 1 до п

Answer 1

Вы можете использовать cumsum:

df <- transform(df, values = cumsum(c(1, head(values, -1) != tail(values, -1)))) 

Другая версия, что может быть проще понять, но немного медленнее, я думаю:

df<- transform(df, values = cumsum(c(1, diff(values) != 0)) 

Answer 2

Предполагая, что df$values сортируется, другой способ будет использовать table.

tt <- table(df$values) 
rep(seq_along(tt), tt) 
# [1] 1 1 2 3 4 4 4 5 5 6 7 

Answer 3

Другой вариант заключается в преобразовании фактор и извлечь упорядоченность оттуда:

df$values = as.numeric(as.factor(df$values))