「みんなのR 第2版」サポートサイト
![:カバー](/files/topics/87019_ext_06_0.jpg)
このページは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')
以上