[程式] [R] 找一種特殊的 rank function

看板Statistics作者 (Logit(odds))時間12年前 (2012/06/24 19:07), 編輯推噓1(1推 0噓 3→)
留言4則, 3人參與, 最新討論串1/1
x <- c(4,5,5,5,6) 是否有以下這種 fx <- function > fx(x) [1] 1 2 2 2 3 ====================================== 自己寫是這樣 , 還滿醜的 fx <- function(tmp) { RA <- cbind(rank(unique(tmp)),unique(tmp)) DATA <- tmp for(g in 1:dim(RA)[1]){DATA[tmp==RA[g,2]] <- RA[g,1]} return(DATA) } -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.113.239.247 ※ 編輯: gsuper 來自: 140.113.239.247 (06/24 19:17)
→
06/24 19:34, , 1F
rank or order?
06/24 19:34, 1F
→
06/24 19:54, , 2F
兩個都不行 rank 會產生 1 3 3 3 5 , order 是 1 2 3 4 5
06/24 19:54, 2F
推
06/24 19:59, , 3F
可以用as.numeric(factor(rank(x)))
06/24 19:59, 3F
→
06/24 20:52, , 4F
喔喔 謝謝樓上啦~
06/24 20:52, 4F
‣ 更多 gsuper 的文章
文章代碼(AID): #1FvlJc9j (Statistics)