R markdown -- table 그리기

R markdown -- table 그리기

테스트환경 : windows 7 64bit, R 3.1.2 64bit, RStudio 0.98

참고 : http://rfunction.com/archives/2474

         http://cran.r-project.org/web/packages/xtable/index.html

         http://www.inside-r.org/packages/cran/xtable/docs/xtable

         https://nsaunders.wordpress.com/2012/08/27/custom-css-for-html-generated-using-rstudio/

         

xtable package 를 사용한다. 

1. xtable package 설치하기

install.packages("xtable")
 

2. xtable 사용법

  -- print() 내부에 type="html" 을 적어야 html로 출력된다, 아니면 latex 형식으로 출력된다.

library(xtable)
data(iris)
print(xtable(head(iris, 10)), type = "html", include.rownames = F)
 

 
x <- matrix(rnorm(6), ncol = 2)
x.small <- xtable(x, label = 'absmall', caption = 'A margin table')
print(x.small,floating.environment= 'margintable',  table.placement = NULL, type = "html")
 

3. Rmd 파일에서 사용 예

test.Rmd

test.Rmd 파일 내용은 아래와 같다.

 
---
title: "test"
output: html_document
---
 
- Draw table example
 
```{r   comment=NA, results='asis'}
library(xtable)
data(iris)
print(xtable(head(iris, 5)), type = "html", include.rownames = F)
```
 
You can also embed plots, for example:
 
```{r  results="asis"}
d <- data.frame(tail=c(12,11,32,0), legs=c(4,4,4,2), height=c(31,35,62,68))
print(xtable(d), type="html") 
```


```{r  results="asis"}
df <- data.frame(A = c(1.00123, 33.1, 6), B = c(111111, 3333333, 3123.233))
print(xtable(df, display = c("s","f","f"), digits = 4),
  format.args = list(big.mark = " ", decimal.mark = ","), type="html")
```


```{r results="asis"}
x <- matrix(rnorm(6), ncol = 2)
x.small <- xtable(x, label = 'absmall', caption = 'A margin table')
print(x.small,floating.environment= 'margintable',  table.placement = NULL, type = "html")
```

 

** RStudio 에서 knit HTML 버튼 눌러서, 위의 test.Rmd 파일을 실행한 출력결과