R2HTML使用合集

target <- HTMLInitFile(file.path("C:\\HTML"),filename="sample", BackGroundColor="#BBBBEE") 

初始化一个html文件，指定文件路径，文件名，背景色 

HTMLCSS(target,CSSfile="myownCSS.CSS") 

添加css文件

HTML.title("HR=1*************************************",file=target, HR=1) 

HTML.title("HR=2*************************************",file=target, HR=2) 

HTML.title("HR=3*************************************",file=target, HR=3) 

HTML.title("HR=4*************************************",file=target, HR=4) 

HTML.title("HR=5*************************************",file=target, HR=5) 

HTML.title("HR=6*************************************",file=target, HR=6) 

HTML.title("HR=7*************************************",file=target, HR=7) 

HTML.title("HR=8*************************************",file=target, HR=8) 

生成h标签测试

HTML.title("HTMLhr(file=target)",file=target, HR=1) 

HTMLhr(file=target) 

生产hr标签

HTML.title("HTMLbr(file=target)",file=target, HR=1) 

HTMLbr(file=target) 

生成br标签

HTML.title("HTMLli(file=target)",file=target, HR=1) 

HTMLli(file=target) 

HTMLli(file=target) 

HTMLli(file=target) 

生成li标签

HTML.title("iris ",file=target, HR=1) 

data(iris) 

HTML(cor(iris[,1:4]), file=target) 

HTML.cormat(cor(iris[,1:4]), file=target) 

打印二维表格

HTML.title("HTMLInsertGraph(graph1,file=target,caption='Sample discrete distribution plot') ",file=target, HR=1) 

fit=lm(mpg~ hp+wt+hp:wt,data=mtcars) 

测试lm模型

HTML(summary(fit),file=target) 

打印模型summary

graph1="C:\\HTML\\graph1.png" 

指定生成图片位置

png(file.path(graph1)) 

plot(table(rpois(100,5)), type = "h", col = "red", lwd=10,main="rpois(100,lambda=5)") 

绘图

dev.off() 

关闭绘图

HTMLInsertGraph(graph1,file=target,caption="Sample discrete distribution plot") 

插入图片

HTML.title("HTMLstem(log10(islands),tmpfic) ",file=target, HR=1) 

data(islands) 

HTMLstem(log10(islands),target) 

绘制茎叶图

 

HTMLEndFile() 

生产html文件尾部

来自为知笔记(Wiz)