『みんなのR 第2版』サポートサイト | マイナビブックス

「みんなのR 第2版」サポートサイト

:カバー

このページは2018年12月発行、マイナビ出版刊『みんなのR 第2版』(ISBN978-4-8399-6215-9)のサポートページです。

 発売日:2018年12月20日
 更新日:2021年1月29日
 発行:マイナビ出版

商品紹介ページへ戻る

関連サイト

 原著者のサポートサイト:www.jaredlander.com/r-for-everyone/

 出版社のサイト:R for Everyone, 2nd Edition(Addison-Wesley)

 

・データセット

 書籍で利用するデータ:https://www.jaredlander.com/data/

 DataInRFE.csv:www.jaredlander.com/backdata/DataInRFE.csv

 datasets:www.jaredlander.com/datasets/

 使用パッケージ:www.jaredlander.com/backdata/packagesInRFE.csv

   

[サポート情報]データのダウンロードができない場合

 著者のサイトが書籍発刊後にhttpからhttpsに変更されておりコマンドが実行できないケースがあります。以下のデータサイト
 https://www.jaredlander.com/data/
から各ファイルを「作業ディレクトリ」にダウンロードし、URLでなくファイル名を指定して実行してください。次のようなコマンドでもダウンロードできます。

 

[121pの例]
> download.file( 'http://www.jaredlander.com/data/PizzaFavorites.json ',destfile = 'PizzaFavorites.json ', quiet=TRUE)
> pizza <- fromJSON('PizzaFavorites.json')

 

※105p、121p、250p、256p、502p、508pの著者サイトから読み込むコマンドがうまくいかないようです

 

[サポート情報]HTMLページがスクレイピングができない場合

・117ページ:「6.7 Webサイトからの抽出」で、XMLパッケージのreadHTMLTable関数ではhttpsサイトに対応できないためエラーとなります。以下のように一度ローカルに保存すると動作します。

 

> library(XML)
> theURL <- 'http://www.jaredlander.com/2012/02/another-kind-of-super-bowl-pool'
> download.file(theURL,destfile = 'P117.html', quiet=TRUE) #この行を追加
> bowlPool <- readHTMLTable('P117.html', which = 1, header = FALSE,stringsAsFactors = FALSE)
> bowlPool

 

・118ページ「6.7.2 Web データのスクレイピング」のrvestパッケージread_html関数についても一度ダウンロードして実行してみてください。

> library(rvest)
> download.file('http://www.jaredlander.com/data/ribalta.html',destfile = "P118.html", quiet=TRUE)#この行を追加
> ribalta <- read_html('P118.html')
> class(ribalta)
> ribalta

 

正誤情報

 正誤が見つかり次第掲載いたします。

 
108ページ:「6.2 Excelの読み込み」1つ目のコマンド
誤)> download.file(url='http://www.jaredlander.com/data/ExcelExample.xlsx',
+ destfile='data/ExcelExample.xlsx', method='curl')
正)> download.file(url='http://www.jaredlander.com/data/ExcelExample.xlsx',
+ destfile='data/ExcelExample.xlsx', mode='wb')
392ページ:4-5行目
誤)一般的にラッソーよりもリッジに傾くのが良いとされるため
正)一般的にリッジ(ridge)よりもラッソー(lasso)に傾くのが良いとされるため
395ページ下部 # いくつかの準備 のコード修正
正) > alphaMelt$Measure <- str_replace(string=alphaMelt$Measure,
+ pattern="\\.(min|1se)",
+ replacement="")
> alphaCast <- dcast(alphaMelt, Alpha + Type ~ Measure,
+ value.var="Value")
※ pattern の nn を \\ に、
dcast() 関数の Type ? Measure の ? を ~ に修正
465ページ:1つ目のコマンド(7行目)
誤)> download.file(url = "http://jaredlander.com/data/worldmap.zip" ,
+ destfile = "data/worldmap.zip" , method = "curl")
正)> download.file(url = "http://jaredlander.com/data/worldmap.zip" ,
+ destfile = "data/worldmap.zip" , mode='wb')
 

 以上