1. kawasima

    Posted

    kawasima
Changes in title
+プログラミング言語別のおちんぎん分布を調べる (EnliveとIncanter)
Changes in tags
+Clojure
1.5.1
+Incanter
1.5.4
+Enlive
1.1.5
Changes in body
Source | HTML | Preview
@@ -0,0 +1,92 @@
+```
+※ この集計結果には、統計上の誤謬が多く含まれるので、どの言語を勉強すると儲かるかという視点でなく、あくまでもEnliveとIncanterを使うとWeb上のデータを使って簡単に集計プログラムが作れるよという点をお楽しみください。
+```
+
+どのプログラミング言語が儲かるのか、意識の高いエンジニアには気になるネタですよね。
+
+[indeed.com](http://jp.indeed.com/)という求人サイトがありますが、これは[クローラー型求人サイト](http://www.social-recruiting.jp/archives/13014)とよばれるタイプで、各求人サイトからの情報をかき集めて検索ができるようになっています。
+
+IndeedにもAPIはあるのですが、給与レンジをとることは出来なさそうなので、スクレイピングで対応します。Indeedでキーワード検索すると、右下に推定年収が表示されます。これを拾いだしてグラフを書いてみます。
+
+![Indeed検索結果ページ](https://qiita-image-store.s3.amazonaws.com/0/8475/41d5addf-c3ad-9354-6f41-326cb1e69187.png)
+
+スクレイピングには[Jsoup](http://jsoup.org/)のラッパーとしても使い勝手のよい[Enlive](https://github.com/cgrand/enlive)を使います。
+
+推定年収のDiv要素を取得するのはこんな感じで書けます。
+
+```clj
+(with-open [rdr (io/reader "http://jp.indeed.com/%E6%B1%82%E4%BA%BA?l=&q=java")]
+ (select (html-resource rdr) [:div (attr= :id "rb_Salary Estimate")])
+```
+
+簡単ですね!
+
+ここから、実際の推定年収を抜き出して、Incanterのデータセットにします。総求人件数にはバラつきがあるので、年収レンジの比率を合わせて計算するようにします(:percentage列)。
+
+```clj
+(defn salary-range [lang]
+ (with-open [rdr (io/reader (str "http://jp.indeed.com/%E6%B1%82%E4%BA%BA?l=&q=" lang))]
+ (let [ds (->>
+ (-> (select (html-resource rdr) [:div (attr= :id "rb_Salary Estimate")])
+ (select [:li :a]))
+ (map #(re-matches #"([\d,]+)万円~ \((\d+)\)" (get-in % [:attrs :title])))
+ (map (fn [_] (-> _
+ (update-in [1] #(-> % (.replace "," "") (Long/parseLong)))
+ (update-in [2] #(-> % (.replace "," "") (Long/parseLong))))))
+ (dataset [:label :salary :count]))
+ total (apply + (sel ds :cols :count))]
+ (add-column :percentage ($map #(/ % total) :count ds) ds)
+ ds)))
+```
+
+推定年収のレンジは200万円刻みで表示されるようなのですが、残念なことに検索キーワードによって、開始年収に100万円のズレがあります。これはいかんともしがたいので、あきらめてそれぞれのレンジの下限でプロットすることにします。
+
+次にグラフを書くコードです。作ったデータセットをもとにxy-plotを読んでグラフを作るだけです。viewを呼ぶことでSwingのウィンドウが起動してグラフを表示できます。
+
+```clj
+(defn draw-salary-distribution [words]
+ (let [ds (salary-range (first words))
+ chart (xy-plot (sel ds :cols :salary)
+ (sel ds :cols :percentage)
+ :legend true
+ :series-label (first words)
+ :x-label "Salary"
+ :y-label "Percentage")]
+ (doseq [lang (rest words)]
+ (let [ds (salary-range lang)]
+ (add-lines chart
+ (sel ds :cols :salary)
+ (sel ds :cols :percentage)
+ :series-label lang)))
+ (view chart)))
+```
+
+準備ができました。求人数の比較的多い言語達でグラフを書いてみます。
+
+```clj
+(draw-salary-distribution ["java" "ruby" "scala" "php" "VB" "C#" "Objective-c" "Node.js"])
+```
+
+気になる結果はコチラ!
+
+![language-salary.png](https://qiita-image-store.s3.amazonaws.com/0/8475/39ad1814-5c39-c1eb-439a-a973b9a97a3a.png)
+
+「金が欲しけりゃNodeJSをやれ!」 という結果のようです。
+
+
+おっと[2014年のBest Languageに輝いたClojure](www.efytimes.com/e1/fullnews.asp?edid=128565)が無いではありませんか。
+
+http://jp.indeed.com/clojure%E9%96%A2%E9%80%A3%E3%81%AE%E6%B1%82%E4%BA%BA
+
+… いったい日本はどうしちゃったのでしょうか …
+
+ということでUSのデータを使って同様のグラフを書いてみました。
+
+![language-us.png](https://qiita-image-store.s3.amazonaws.com/0/8475/7af5b9c3-c84a-c7eb-cddc-d5afeaf93474.png)
+
+Scala!!
+
+----
+
+コード
+https://gist.github.com/kawasima/9221666