数学 - R言語 - 統計学 - データ解析 - ヒストグラム - 数値の形状(hist関数、引数、データの部分集合)

Head Firstデータ解析
原著

学習環境

• Surface 3 (4G LTE)、Surface 3 タイプ カバー、Surface ペン(端末)
• Windows 10 Pro (OS)
• Nebo(Windows アプリ)
• iPad Pro + Apple Pencil
• MyScript Nebo(iPad アプリ)
• Numbers - Apple(表計算ソフト)
• Excel(Office 365 Solo)
• R言語(プログラミング言語)
• 参考書籍
  • Pythonからはじめる数学入門
  • JavaScriptリファレンス 第6版
  • インタラクティブ・データビジュアライゼーション

Head Firstデータ解析 (Michael Milton (著)、大橋 真也 (監訳)、 木下 哲也 (翻訳)、オライリージャパン)の9章(ヒストグラム - 数値の形状)、自分で考えてみよう(p. 271)を取り組んでみる。

エクササイズ(p. 267)

1. 年(year)を2007年に、棒の数(breaks)を50に設定。
2. 
   

   コード(Emacs)

   R言語

   #!/usr/bin/env Rscript
   
   source("http://www.oreilly.co.jp/pub/9784873114644/hfda.R")
   svg('sample3_1.svg')
   hist(employees$received[employees$year == 2007], breaks = 50)
   svg('sample3_2.svg')
   hist(employees$received[employees$year == 2008], breaks = 50)
   svg('sample3_3.svg')
   hist(employees$received[employees$gender == "F"], breaks = 50)
   svg('sample3_4.svg')
   hist(employees$received[employees$gender == "M"], breaks = 50)
   svg('sample3_5.svg')
   hist(employees$received[employees$negotiated == FALSE], breaks = 50)
   svg('sample3_6.svg')
   hist(employees$received[employees$negotiated == TRUE], breaks = 50)
   

   入出力結果(Terminal)

   $ ./sample3.r
   $