R实战第七篇：绘图文本表

文本表是显示数据的重要图形，一个文本表按照区域划分为：列标题，行标题，数据区，美学特征有：前景样式、背景样式、字体、网格线等。由于报表上需要呈现文本表，我想到用R，R的绘图功能很强大，我本来以为绘制文本表应该是一件非常简单的事。可是，在搜索Google之后，我发现使用GridExtra绘制一个文本表是如此的困难，那些奇怪的参数和函数，让人抓狂，实在没有耐心看下去。

好在，我找到一个简单的绘制文本表的包，ggpubr包，使用ggtexttable绘制文本表，用法非常简单，推荐：

install.packages("ggpubr")
library(ggpubr)

但是，该包的功能不是很完善，例如，无法设置列的长度，这是比较坑爹的地方，用户只能通过填充单元格的方式来控制文本表的宽度。

一，绘制文本表的函数

使用ggpubr包绘制一个文本表，常会用到7个基本函数：

ggtexttable()：用于绘制文本表，并返回ggtexttable类型的对象；
ttheme()：用于设置表的样式，包含colnames、style,rownames.style和tbody.style；
rownames_style(), colnames_style(), tbody_style()：用于设置列标题，行标题和数据区的样式；
table_cell_font()：用于设置单元格中的文本（size，face），对某一个特定的单元格进行格式的设置；
table_cell_bg()：用于设置单元格的背景色（fill，color，linewidth），对某一个特定的单元格进行格式的设置。

这7个基本函数的定义是：

ggtexttable(x, rows = rownames(x), cols = colnames(x), vp = NULL, theme = ttheme(), ...)
 
ttheme(base_style = "default", base_size = , base_colour = "black", padding = unit(c(, ), "mm"),
    colnames.style = colnames_style(size = base_size),
    rownames.style = rownames_style(size = base_size),
    tbody.style = tbody_style(size = base_size))
 
colnames_style(color = "black", face = "bold", size = ,
  fill = "grey80", linewidth = , linecolor = "white", parse = FALSE, ...)
 
rownames_style(color = "black", face = "italic", size = , fill = NA,
  linewidth = , linecolor = "white", parse = FALSE, ...)
 
tbody_style(color = "black", face = "plain", size = ,
  fill = c("grey95", "grey90"), linewidth = , linecolor = "white", parse = FALSE, ...)
 
table_cell_font(tab, row, column, face = NULL, size = NULL)
 
table_cell_bg(tab, row, column, fill = NULL, color = NULL, linewidth = NULL)

参数注释：

vp：可选的视口（viewport），viewport是一个矩形的绘图区域。
parse：设置为TRUE时，表示使用文字表示符号
...：额外的参数，用于设置文本对齐，例如：hjust 和 x，其中，hjust = 1 靠右，= 0 靠左，x是比例，x=0.5 表示居中
fill：填充的背景色，当填充数据区时，如果该参数是含有多个颜色的向量，那么R循环使用向量中颜色来填充表格的背景。
face：字体的效果，有效值是 c("plain", "bold", "italic", "bold.italic")
tab：ggtexttable类型的对象
base_style：系统自定义的基础样式，c("default", "blank", "classic", "minimal", "light", "lBlack", "lBlue", "lRed", "lGreen", "lViolet", "lCyan", "lOrange", "lBlackWhite", "lBlueWhite", "lRedWhite", "lGreenWhite", "lVioletWhite", "lCyanWhite", "lOrangeWhite", "mBlack", "mBlue", "mRed", "mGreen", "mViolet", "mCyan", "mOrange", "mBlackWhite", "mBlueWhite", "mRedWhite", "mGreenWhite", "mVioletWhite", "mCyanWhite", "mOrangeWhite" ). 注意， l = "light"; m = "medium"。
base_size，base_colour：默认的字体大小和颜色
padding：是两个元素的向量，指定每个单元格内的文本的水平和垂直填充

二，绘制基本的文本表

把rows参数设置为NULL，表示移除行名称；使用theme参数自定义表格显示的样式，hjust=1，x=0.9，表示单元格的文本靠右，间距为0.9。

df <- head(iris)
tbody.style = tbody_style(color = "black",
   fill = c("#e8f3de", "#d3e8bb"), hjust=, x=0.9)
ggtexttable(head(iris), rows = NULL,
           theme = ttheme(
             colnames.style = colnames_style(color = "white", fill = "#8cc257"),
             tbody.style = tbody.style
           )
)

三，设置文本表的单元格

使用变量保存文本表的对象，然后对文本表的单元格进行修改：

tab <- ggtexttable(head(iris), rows = NULL, theme = ttheme("classic"))
tab <- table_cell_font(tab, row = , column = , face = "bold")
tab <- table_cell_bg(tab, row = , column = , linewidth = , fill="darkolivegreen1", color = "darkolivegreen4")
tab

当需要对单个单元格进行格式的修改时，可以使用这两个函数来实现。

四，组织多个文本表

使用函数 ggarrange()把多个文本表绘制到一个画布中。

t1 <- ggtexttable()
t2 <- ggtexttable()
ggarrange(t1, t2,  ncol = , nrow = )

参考文档：

Draw a Textual Table

ggtexttable