Простой способ отобразить из упорядоченного множителя в R непосредственно на предыдущий уровень?

Question

Я пытаюсь найти простой способ найти наибольший показатель меньше, чем X в R. В качестве примера:

>f = factor(c("a", "b", "c"), ordered = T) 
>f 
[1] a b c 
Levels: a < b < c 

То, что я хочу есть функция «предыдущая», которая ведет себя как:

>prev(f[3]) 
[1] b 
Levels: a < b < c 
>prev(f[2]) 
[1] a 
Levels: a < b < c 
>prev(f[1]) 
[1] NA 

Это кажется очень простым, но я ничего не могу найти, любая помощь очень ценится. Спасибо!

Answer 1

Что-то вроде этого должно работать.

prev <- function(x){ 
    levs <- levels(x) 
    index <- as.integer(x) 
    ifelse(index == 1, NA, levs[index -1 ]) 
}