![ファイルへの俊A
猟忖コ`ドのO協
┘妊侫ルトはutf-8)
p <- openPage("report.html",
charset="CP932")
hwrite("朕槌娶", p, br=TRUE)
hwriteImage("year.png", p , br=TRUE)
closePage(p)
俊Aを
]じる](https://image.slidesharecdn.com/tokyor15mod-110703185812-phpapp02/85/Tokyor15mod-55-320.jpg)
Tokyor15mod
- 1. シリ`ズRで辛晒#1 ggplot2と googleVisと hwriterで レポ`トを恬る @dichika
- 2. みなさん はじめまして
- 3. 徭失B初 ? dichika ? 匳狼 ? バタ`デニッシュ
- 4. さて
- 5. 文弖匯から UFO朕椎鵑 レポ`トを mまれる、
- 7. UFO朕椎 デ`タベ`ス
- 9. さて、どうする
- 10. 猜屬T社 こっちは殆繁
- 12. 書晩は そんなつもりで レポ`トを恬りたい と房います
- 13. デ`タは 參和の6朕
- 14. 朕弔靴身娶 鷂罎靴身娶 雨酷或の侘彜 朕諜慯 朕rg 袁個敞
- 15. 脅栽貧 3朕だけ聞います
- 16. 朕弔靴身娶 鷂罎靴身娶 雨酷或の侘彜 朕諜慯 朕rg 袁個敞
- 17. g箭
- 18. 朕弔靴身娶僑2010/4/1 雨酷或の侘彜triangle 朕諜慯鬘Iowa City, IA
- 19. これを鹿して 辛晒
- 20. デ`タクリ`ニング および 鹿は 待 ┘芥`ドはどこかで巷_します
- 21. こんな潤惚に なります ggplot2聞喘
- 22. 朕槌娶
- 23. 150 100 count 50 1950 1955 1960 1965 1970 1975 1980 1985 1990 1995 2000 2005 2010 year
- 24. 雨酷或の侘彜
- 25. light triangle circle disk other unknown sphere fireball oval formation form cigar changing cylinder flash rectangle diamond chevron egg teardrop cone 0 2000 4000 6000 8000 10000 count
- 26. 朕諜慯 ┘肇奪20
- 27. California Washington Texas Florida New York Arizona Illinois Pennsylvania Ohio Michigan state Oregon North Carolina Missouri Colorado New Jersey Indiana Georgia Massachusetts Wisconsin Virginia 0 1000 2000 3000 4000 5000 6000 7000 count
- 28. 繁笥が謹いところは 朕鎚が謹い 辛嬬來があるので 温屎
- 29. Washington Oregon Arizona Colorado California Missouri Indiana Wisconsin Illinois Michigan state Florida Ohio Pennsylvania Massachusetts North Carolina New Jersey Texas New York Virginia Georgia 0 10 20 30 40 per100000
- 30. とりあえずこのY惚を ちゃちゃっとWordとかに Nり原けてコメントをけば レポ`トにはなる
- 31. でも それでいいのか
- 32. 鯵は 文弖さんの挟賀を もっと哈き竃すべきで はないのか
- 33. 挟賀○荷恬來
- 35. そこで googleVis + hwriter という戻宛
- 36. googleVis ? Google Visualization APIをRから 聞えるようにしたパッケ`ジ ? 竃薦はHTML ? 16Nのグラフ ? demo(googleVis)で坪否_J
- 38. gvisAnnotatedTimelinev方 r狼双のグラフ 寄s弌徭喇徭壓 gvisAnnotatedTimeline( data, デ`タフレ`ム 晩原の秘った datevar, 篳を峺協 numvar, 方､糧襪辰 篳を峺協 date.format) 晩原のフォ` マットを峺協
- 41. gvisPieChartv方 劵哀薀 gvisPieChart( data, デ`タフレ`ム ラベルの秘った labelvar, 篳を峺協 numvar) 篳を峺協 方､糧襪辰
- 44. gvisTreeMapv方 秘れ徨になった夛を中e蹐捻蹶F gvisTreeMap( data, デ`タフレ`ム ラベルの秘った篳を峺協 idvar, それぞれのHA咾糧襪辰 parentvar, 篳を峺協 sizebar) 篳を峺協 方､糧襪辰 ☆デ`タ夛はRegionsデ`タをるとわかりやすい
- 47. 朕諜慯 (gvisGeoMap)
- 48. gvisGeoMapv方 秘れ徨になった夛を中e蹐捻蹶F gvisGeoMap( data, デ`タフレ`ム 仇囃ラベルの秘った locationvar, 篳を峺協 numvar) 篳を峺協方､糧襪辰 ☆仇囃を浙┐靴燭栽はoptionで峺協┘悒襯弉燐佞里海硲
- 50. これをレポ`トに まとめる
- 51. hwriter ? HTML竃薦をSにするパッケ`ジ ? hwriteが児云v方 ? 艶恰温馨沿鉛艶(鞄敬姻庄岳艶姻)でh苧慕
- 52. hwritev方 HTMLを竃薦するv方 鮫颪砲hwriteImagev方 hwrite(x, page) x ★ 竃薦したいモノ page ★ 竃薦枠 ☆竃薦枠を峺協しないとコンソ`ルにHTMLが猟忖双として竃薦される
- 53. 箭えばこんな湖じ
- 54. p <- openPage("report.html") charset="CP932") hwrite("朕槌娶", p, br=TRUE) hwriteImage("year.png", p , br=TRUE) closePage(p)
- 55. ファイルへの俊A 猟忖コ`ドのO協 ┘妊侫ルトはutf-8) p <- openPage("report.html", charset="CP932") hwrite("朕槌娶", p, br=TRUE) hwriteImage("year.png", p , br=TRUE) closePage(p) 俊Aを ]じる
- 56. p <- openPage("report.html") charset="CP932") hwrite("朕槌娶", p, br=TRUE) hwriteImage("year.png", p , br=TRUE) closePage(p) 個佩 オプション
- 57. 乙看看乙鉛艶閣庄壊の竃薦は HTML ◎ 書指は インラインフレ`ムで iみzむ
- 58. path <- "C:/Users/dichika/hoge.html" frame <- paste('<iframe src=/slideshow/tokyor15mod/8497044/"& path, ' "frameborder="0" width="1200" height="600" scrolling="no"></iframe>', sep="") iframeタグ で豫んだ hwrite(frame, p, br=TRUE)
- 59. Mみ栽わせて 竃薦すると こうなる
- 61. でも
- 64. contenteditable ? HTML5の碧の匯つ ? contenteditable="true"とすると きzみ辛嬬になる ? こんな湖じ <div contenteditable="true">このI囃にきzめます</div>
- 65. きzめる ようになる
- 66. これでひとまずは 頼撹
- 67. でも飴 ごちゃごちゃ 峺協するのは めんどくさいですよね
- 68. めんどくさいrは v方きますよね
- 69. install.packages("batade") library(batade) mkhtml( ファイル兆を峺協 filename, data) レイアウト夛を 峺協したデ`タフレ`ム
- 70. レイアウト夛 云晩のレポ`ト LL 朕槌娶 L AnnotatedTimeLineIDe41ecf. htm L ここにコメントをきzめます S copyright batade L
- 71. レイアウト夛 云晩のレポ`ト LL 朕槌娶 L AnnotatedTimeLineIDe41ecf. htm 猟忖双、鮫/HTMLファイル兆を峺協 L ここにコメントをきzめます S copyright batade L
- 72. レイアウト夛 云晩のレポ`ト LL 朕槌娶 L AnnotatedTimeLineIDe41ecf. 猟忖サイズを峺協 htm L ┿顱HTMLの栽はoされる S,M,L,LLの4サイズ ここにコメントをきzめます S copyright batade L
- 73. こういう竃薦に なります
- 75. ということで
- 76. まとめ ? ggplot2 ★ かませ溌 ? googleVis ★ 荷恬來のあるグラフ ? hwriter ★ HTML竃薦 ? contenteditable ★ ブラウザ貧で レポ`トがｼ辛嬬に ? batedeライブラリ ★ g壓する
- 77. enjoy!