r语言代码技巧（论文三线表的制作和修改）

library(dply)

data1<-head(iris)

data1

library(base)

library(table1)

table1(~ Sepal.Length Petal.Length Petal.Width,data = data1,overall = "Total")

table1(~ Sepal.Length Petal.Length Petal.Width,data = data1,overall = "Total",

topclass="Rtable1-zebra Rtable1-grid")

#Zebra：交替出现有阴影和无阴影的行（斑马线）。

#grid：显示所有网格线

#shade：对标题行进行灰色阴影处理

#times：使用衬线字体

#center：将所有列居中，包括包含行标签的第一列。

以上制作并修改的白表格是没有进行分成的，若想要进行分层，示例如下：

table1(~ 属性1 属性2 属性3 ......| 分层的内容, data=数据集, overall = "Total")

PS：表格的制作是不可以根据自己喜好修改表格！