class: center, middle, inverse, title-slide # 如何用R做簡報 ## 資料管理 - 演講幻燈片製作示範 ### 許清芳 ### 民國一零七年三月五日 --- # 大綱 - 簡介資料分析流程 -- - 前置作業 -- - 數學公式 -- - 程式碼 -- - 統計分析 -- - 表格 -- - 繪圖 -- - 總結 --- # 簡介 .center[] --- # 前置作業 - 安裝 R, RStudio, 和 MikTex 或 macTex - 從 [Github](https://github.com/yihui/xaringan) 安裝 **xaringan** 套件: ```r if (!requireNamespace("xaringan")) devtools::install_github("yihui/xaringan") ``` - 從菜单 `File -> New File -> R Markdown -> From Template -> Ninja Presentation (Simplified Chinese)` 開編一個新文件檔案; - 點擊 `Knit` 按鍵編輯文件檔; - 在 RStudio 裡预覽幻燈片; 每次你保存文件檔,它會自動重新編輯。 - 這裡也必須安裝套件 **DT** 和 **xtable**。 --- # 數學公式 數學公式用 LaTeX 语法寫,例如 ``` $$Y_i = \beta_0 + \beta_1 x_i + \epsilon_i, ~~i=1 \ldots n,$$ $$\epsilon_i \sim N(0, \sigma^2).$$ ``` 呈現為 `$$Y_i = \beta_0 + \beta_1 x_i + \epsilon_i,~~~i = 1, \ldots, n,$$` `$$\epsilon_i \sim N(0, \sigma^2).$$` --- # R 程式碼 數據資料,mammals{MASS}, 包含六十二種陸生哺乳動物的腦重與身體重量。 ```r options(digits = 4, show.signif.stars = FALSE) library(MASS) head(mammals) ``` ``` # body brain # Arctic fox 3.385 44.5 # Owl monkey 0.480 15.5 # Mountain beaver 1.350 8.1 # Cow 465.000 423.0 # Grey wolf 36.330 119.5 # Goat 27.660 115.0 ``` --- # 查看資料 ```r DT::datatable( mammals, fillContainer = F, options = list(pageLength = 3) ) ```
--- # 統計分析 ```r # 線性回歸模型 m0 <- lm(log(brain) ~ log(body), data = mammals) coef(summary(m0)) ``` ``` # Estimate Std. Error t value Pr(>|t|) # (Intercept) 2.1348 0.09604 22.23 1.183e-30 # log(body) 0.7517 0.02846 26.41 9.836e-35 ``` ```r anova(m0) ``` ``` # Analysis of Variance Table # # Response: log(brain) # Df Sum Sq Mean Sq F value Pr(>F) # log(body) 1 336 336 697 <2e-16 # Residuals 60 29 0 ``` --- # 表格 ```r library(xtable) xtm0 <- xtable(summary(m0)) knitr::kable(xtm0, format = 'html') ``` <table> <thead> <tr> <th style="text-align:left;"> </th> <th style="text-align:right;"> Estimate </th> <th style="text-align:right;"> Std. Error </th> <th style="text-align:right;"> t value </th> <th style="text-align:right;"> Pr(>|t|) </th> </tr> </thead> <tbody> <tr> <td style="text-align:left;"> (Intercept) </td> <td style="text-align:right;"> 2.1348 </td> <td style="text-align:right;"> 0.0960 </td> <td style="text-align:right;"> 22.23 </td> <td style="text-align:right;"> 0 </td> </tr> <tr> <td style="text-align:left;"> log(body) </td> <td style="text-align:right;"> 0.7517 </td> <td style="text-align:right;"> 0.0285 </td> <td style="text-align:right;"> 26.41 </td> <td style="text-align:right;"> 0 </td> </tr> </tbody> </table> --- # 繪圖 ```r library(lattice) xyplot(log(brain) ~ log(body), data = mammals, type = c("g", "r", "p"), pch = 16, xlab = "Body weight (log(kg))", ylab = "Brain weight (log(g))") ``` <!-- --> --- class: center, middle # 播動畫  --- # 總結 - 幻燈片要簡單,明瞭,有用並且好看 -- - R Markdown 幻燈片製作利器: xaringan (幻燈忍者) -- - 作者為謝益輝 -- - 幻燈片本身即是複製分析流程的文件檔 -- - 可以丟掉微軟的PowerPoint了! --- class: center, middle # 請多指教, 謝謝。
Download inclass3.zip
``` 點案Download inclass3.zip可以下載檔案,謝謝。 ```