設置一個因子的水平作爲最後的

Question

我知道函數紅寶石將一個指定的級別設置爲第一級。我想知道是否有一個內置函數將指定的級別設置爲最後一個。如果不是，寫這樣一個函數的有效方法是什麼？

Answer 1

沒有內置函數。你可以做這樣的：

lastlevel = function(f, last) { 
    if (!is.factor(f)) stop("f must be a factor") 
    orig_levels = levels(f) 
    if (! last %in% orig_levels) stop("last must be a level of f") 
    new_levels = c(setdiff(orig_levels, last), last) 
    factor(f, levels = new_levels) 
} 

x = factor(c("a", "b", "c")) 
> lastlevel(x, "a") 
[1] a b c 
Levels: b c a 
> lastlevel(x, "b") 
[1] a b c 
Levels: a c b 
> lastlevel(x, "c") 
[1] a b c 
Levels: a b c 
> lastlevel(x, "d") 
Error in lastlevel(x, "d") : last must be a level of f 

---

我覺得有點傻，因爲我只是寫了這一點，當我可以做出一個微小的修改stats:::relevel.factor。改編自relevel的溶液應該是這樣的：

lastlevel = function (f, last, ...) { 
    if (!is.factor(f)) stop("f must be a factor") 
    lev <- levels(x) 
    if (length(last) != 1L) 
     stop("'last' must be of length one") 
    if (is.character(last)) 
     last <- match(last, lev) 
    if (is.na(last)) 
     stop("'last' must be an existing level") 
    nlev <- length(lev) 
    if (last < 1 || last > nlev) 
     stop(gettextf("last = %d must be in 1L:%d", last, nlev), 
      domain = NA) 
    factor(x, levels = lev[c(last, seq_along(lev)[-last])]) 
} 

它檢查幾個更多的輸入，並且還接受一個數字（例如，last = 2將移動第二級到最後）。

Answer 2

包forcats有一個功能，這樣做整齊。

f <- gl(2, 1, labels = c("b", "a")) 

forcats::fct_relevel(f, "b", after = Inf) 

#> [1] b a 
#> Levels: a b