現在,我有以下由original.df %.% group_by(Category) %.% tally() %.% arrange(desc(n))
創建的data.frame。創建「其他」字段
DF <- structure(list(Category = c("E", "K", "M", "L", "I", "A",
"S", "G", "N", "Q"), n = c(163051, 127133, 106680, 64868, 49701,
47387, 47096, 45601, 40056, 36882)), .Names = c("Category",
"n"), row.names = c(NA, 10L), class = c("tbl_df", "tbl", "data.frame"
))
Category n
1 E 163051
2 K 127133
3 M 106680
4 L 64868
5 I 49701
6 A 47387
7 S 47096
8 G 45601
9 N 40056
10 Q 36882
我想創建一個「其他」字段從最低排名類別n。即
Category n
1 E 163051
2 K 127133
3 M 106680
4 L 64868
5 I 49701
6 Other 217022
現在,我做
rbind(filter(DF, rank(rev(n)) <= 5),
summarise(filter(DF, rank(rev(n)) > 5), Category = "Other", n = sum(n)))
其中倒塌沒有進入前5所有類別到其他類別。
但我很好奇dplyr
或其他現有的軟件包中是否有更好的方法。 「更好」我的意思是更簡潔/可讀。我也有興趣採用更聰明或更靈活的方法來選擇Other
。