> p <- df$p_3m/df$p_begin > l <- sort.list(p, dec=TRUE) > df3 <- data.frame(df[l, c(2,5,6)], p=p[l]) > df3[(df3$p_3m > 0.5) | (df3$p_begin > 0.5),] abb p_3m p_begin p 12 クレイモア 0.7745922 0.7243621 1.0693439 11 瀬戸の花嫁 0.7888443 0.75…

下のデータフレームはどうやって作ったの？という話。色々ゴチャゴチャやったけど、.Rhisotry見ると実際の作業はそれほど難しいものではなかったらしい。色々ゴチャゴチャ確認しながらできるのはRの大きな魅力なので、それはそれで問題なし。むしろ作業履歴…

今度は言及数の比＆順位の比。ロミジュリとsolaですねー。solaが再評価されるとうれしい。瀬戸の花嫁はやっぱり低いでしょ？つまらないはずないんだから、どこかにその形跡が出るはずなのよ。 > df2[(df2$total_begin > 100 | df2$total_3m > 100),] total_b…