推 Edster: a <- c(1,3,4,5,4,3,1,5,8,1,3,4,8,8,8,8) 10/29 20:28
→ Edster: a= a[order(a)] 10/29 20:29
→ Edster: b = as.numeric(table(a)) 10/29 20:29
→ Edster: c = rep(b, b) 10/29 20:29
→ Edster: d = a[order(c)] 10/29 20:29
推 Edster: [1] 5 5 1 1 1 3 3 3 4 4 4 8 8 8 8 8 10/29 20:32
推 Edster: 硬幹也可以, 如果太執著於技巧式的寫法. 是記不起來的. 10/29 20:36
→ andrew43: 樓上說得很好。寫不出來就用笨方法就好。用loop硬幹也行 10/29 22:49
→ xsssxxzz: Data.frame(Sort(table(a)))? 10/30 09:41
推 xsssxxzz: a = data.frame(sort(table(a),decreasing = TRUE)) 10/30 10:38