にぱー
> df[sort.list(df$total, dec=TRUE),c("abb","total")] abb total 15 さよなら絶望先生 484 17 もえたん 427 7 School Days 396 5 ドージンワーク 349 6 ケンコー全裸系水泳部ウミショー 254 4 ななついろ★ドロップス 249 13 ぽてまよ 249 11 ひぐらしのなく頃に解 228 10 ムシウタ 188 16 ゼロの使い魔〜双月の騎士〜 129 8 ZOMBIE-LOAN 115 9 CODE-E 78 3 鉄子の旅 66 2 Devil May Cry 41 1 湾岸MIDNIGHT 16 14 ファイテンション☆スクール 10 12 はぴはぴクローバー 5
ほほう。なるほどね。ななついろはもっと健闘するかと思ったけど、やっぱメジャー誌は強いわ・・・。
複数キーワードが絡むとユニークIDの方が信憑性あるような気がする。あと、ゼロの使い魔がどう見ても順位低くないか？と思ったので双月の騎士を入れないキーワードも集計することにしたですよ。「ゼロ魔」「双月」はさすがに誠意なさすぎな略称。まともに書きなさいよ（byかがみん）
> df[sort.list(df$total_uniq, dec=TRUE),c("abb","total_uniq")] abb total_uniq 15 さよなら絶望先生 420 17 もえたん 358 7 School Days 314 5 ドージンワーク 304 16 ゼロの使い魔〜双月の騎士〜 302 4 ななついろ★ドロップス 217 13 ぽてまよ 217 6 ケンコー全裸系水泳部ウミショー 197 11 ひぐらしのなく頃に解 197 10 ムシウタ 169 8 ZOMBIE-LOAN 102 9 CODE-E 71 3 鉄子の旅 55 2 Devil May Cry 36 1 湾岸MIDNIGHT 14 14 ファイテンション☆スクール 10 12 はぴはぴクローバー 5 >
