title: ' R package rrtable
'
subtitle: ' Reproducible Research with a Table of R codes '
author: ' Keon-Woong Moon '
date: "2018-04-15"
output:
html_document:
keep_md: true
require(moonBook)
require(ztable)
require(rrtable)
require(ggplot2)
If you are a data scientist or researcher, you will certainly be interested in reproducible research. R package rrtable
makes it possible to make reports with HTML, LaTex, MS word or MS Powerpoint formats from a table of R codes.
You can install R package rrtable
with the following command.
if(!require(devtools)){ install.packages("devtools") }
devtools::install_github("cardiomoon/rrtable")
You can load the rrtable
package with the following R command.
require(rrtable)
Sample data sampleData3 is included in rrtable package. You can see the sampleData3 by following R command.
str(sampleData3)
'data.frame': 15 obs. of 5 variables:
$ type : chr "title" "subtitle" "author" "text" ...
$ title : chr "" "" "" "Introduction" ...
$ text : chr "R package `rrtable`" "Reproducible Research with a Table of R codes" "Keon-Woong Moon" "If you are a data scientist or researcher, you will certainly be interested in reproducible research. R package"| __truncated__ ...
$ code : chr "" "" "" "" ...
$ option: chr "" "" "" "" ...
You can make a paragraph with this data
df2flextable2( sampleData3 ,vanilla= FALSE )
type
title
text
code
option
title
R package `rrtable`
subtitle
Reproducible Research with a Table of R codes
author
Keon-Woong Moon
text
Introduction
If you are a data scientist or researcher, you will certainly be interested in reproducible research. R package `rrtable` makes it possible to make reports with HTML, LaTex, MS word or MS Powerpoint formats from a table of R codes.
header2
Package Installation
You can install R package `rrtable` with the following command.
if(!require(devtools)){ install.packages("devtools") } devtools::install_github("cardiomoon/rrtable")
echo=TRUE, eval=FALSE
header2
Package Loading
You can load the `rrtable` package with the following R command.
require(rrtable)
echo=TRUE
header2
Sample Data
Sample data sampleData3 is included in rrtable package. You can see the sampleData3 by following R command.
str(sampleData3)
echo=TRUE, eval=TRUE
Data
Paragraph
You can make a paragraph with this data
sampleData3
landscape=TRUE
mytable
mytable object
You can add mytable object with the following R code.
mytable(Dx~.,data=acs)
plot
Plot
You can insert a plot into your document.
plot(Sepal.Width~Sepal.Length,data=iris)
ggplot
ggplot
You can insert a ggplot into a document
ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width,color=Species))+ geom_point()
Rcode
R code
You can insert the result of R code. For example, you can insert the result of regression analysis.
fit=lm(mpg~wt*hp,data=mtcars) summary(fit)
2ggplots
Two ggplots
You can insert two parallel ggplots with the following code.
ggplot(iris,aes(Sepal.Length,Sepal.Width))+geom_point() ggplot(iris,aes(Sepal.Length,Sepal.Width,colour=Species))+ geom_point()+guides(colour=FALSE)
2plots
Two plots
You can insert two parallel plots with the following code.
hist(rnorm(1000)) plot(1:10)
header2
HTML Report
You can get report with HTML format(this file) by following R command.
data2HTML(sampleData3)
echo=TRUE, eval=FALSE
You can add mytable object with the following R code.
mytable2flextable( mytable(Dx~.,data=acs) ,vanilla= FALSE )
Dx
NSTEMI
STEMI
Unstable.Angina
p
(N=153)
(N=304)
(N=400)
age
64.3 ± 12.3
62.1 ± 12.1
63.8 ± 11.0
0.073
sex
0.012
- Female
50 (32.7%)
84 (27.6%)
153 (38.2%)
- Male
103 (67.3%)
220 (72.4%)
247 (61.8%)
cardiogenicShock
< 0.001
- No
149 (97.4%)
256 (84.2%)
400 (100.0%)
- Yes
4 ( 2.6%)
48 (15.8%)
0 ( 0.0%)
entry
0.001
- Femoral
58 (37.9%)
133 (43.8%)
121 (30.2%)
- Radial
95 (62.1%)
171 (56.2%)
279 (69.8%)
EF
55.0 ± 9.3
52.4 ± 9.5
59.2 ± 8.7
< 0.001
height
163.3 ± 8.2
165.1 ± 8.2
161.7 ± 9.7
< 0.001
weight
64.3 ± 10.2
65.7 ± 11.6
64.5 ± 11.6
0.361
BMI
24.1 ± 3.2
24.0 ± 3.3
24.6 ± 3.4
0.064
obesity
0.186
- No
106 (69.3%)
209 (68.8%)
252 (63.0%)
- Yes
47 (30.7%)
95 (31.2%)
148 (37.0%)
TC
193.7 ± 53.6
183.2 ± 43.4
183.5 ± 48.3
0.057
LDLC
126.1 ± 44.7
116.7 ± 39.5
112.9 ± 40.4
0.004
HDLC
38.9 ± 11.9
38.5 ± 11.0
37.8 ± 10.9
0.501
TG
130.1 ± 88.5
106.5 ± 72.0
137.4 ± 101.6
< 0.001
DM
0.209
- No
96 (62.7%)
208 (68.4%)
249 (62.2%)
- Yes
57 (37.3%)
96 (31.6%)
151 (37.8%)
HBP
0.002
- No
62 (40.5%)
150 (49.3%)
144 (36.0%)
- Yes
91 (59.5%)
154 (50.7%)
256 (64.0%)
smoking
< 0.001
- Ex-smoker
42 (27.5%)
66 (21.7%)
96 (24.0%)
- Never
50 (32.7%)
97 (31.9%)
185 (46.2%)
- Smoker
61 (39.9%)
141 (46.4%)
119 (29.8%)
You can insert a plot into your document.
hist(rnorm(1000))
You can insert a ggplot into a document
ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width,color=Species))+ geom_point()
You can insert the result of R code. For example, you can insert the result of regression analysis.
fit=lm(mpg~wt*hp,data=mtcars)
summary(fit)
Call:
lm(formula = mpg ~ wt * hp, data = mtcars)
Residuals:
Min 1Q Median 3Q Max
-3.0632 -1.6491 -0.7362 1.4211 4.5513
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 49.80842 3.60516 13.816 5.01e-14 ***
wt -8.21662 1.26971 -6.471 5.20e-07 ***
hp -0.12010 0.02470 -4.863 4.04e-05 ***
wt:hp 0.02785 0.00742 3.753 0.000811 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Residual standard error: 2.153 on 28 degrees of freedom
Multiple R-squared: 0.8848, Adjusted R-squared: 0.8724
F-statistic: 71.66 on 3 and 28 DF, p-value: 2.981e-13
You can insert two parallel ggplots with the following code.
ggplot(iris,aes(Sepal.Length,Sepal.Width))+geom_point()
ggplot(iris,aes(Sepal.Length,Sepal.Width,colour=Species))+ geom_point()+guides(colour=FALSE)
You can insert two parallel plots with the following code.
hist(rnorm(1000))
plot(1:10)
You can get report with HTML format(this file) by following R command.
data2HTML(sampleData3)
You can get a report with MS word format.
data2docx(sampleData3)
You can download sample data: sampleData3.docx - view with office web viewer
data2docx(sampleData2)
You can download sample data: sampleData2.docx - view with office web viewer
You can get a report with MS word format.
data2pptx(sampleData3)
You can download sample data: sampleData3.pptx - view with office web viewer
data2pptx(sampleData2)
You can download sample data: sampleData2.pptx - view with office web viewer
You can get a report with pdf format.
data2pdf(sampleData3)
You can download sample data: sampleData3.pdf
data2pdf(sampleData2)
You can download sample data: sampleData2.pdf
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.