使用hwrite跨越列

Question

是否可以使用hwrite(或任何其他HTML创建包)跨越多个列的标题？我可以把它伪装成嵌套在一个更大的表中的数据帧,但它不是真正的跨度(它看起来很难看).

我没有在示例中看到这个版本,但也许在其他地方存在.

谢谢,汤姆

Answer 1

编辑:我应该添加该print.xtable方法做html,也(我不应该假设已知).使用该type = "html"选项.

没有使用html的经验,但我使用LaTeX执行以下操作.

在xtable包中,该print.xtable方法有一个选项add.to.row,允许您这样做.为add.to.row您添加列表列表,其中第一个列表是行号列表,第二个列表是要在该点插入的命令列表.来自?print.xtable:

add.to.row - 两个组件的列表.第一个组件(应该称为'pos')是一个列表,其中包含最后应在其上添加额外命令的行的位置,第二个组件(应该称为'command')是一个相同的字符向量包含应在指定行末尾添加的命令的第一个组件的长度.默认值为NULL,即不添加命令.

对于LaTeX,我使用以下自制命令在系数和t-stat列上方添加"(1)".

my.add.to.row <- function(x) {
    first <- "\\hline \\multicolumn{1}{c}{} & "
    middle <- paste(paste("\\multicolumn{2}{c}{(", seq(x), ")}", sep = ""), collapse = " & ")
    last <- paste("\\\\ \\cline {", 2, "-", 1 + 2 * x, "}", collapse = "")
    string <- paste(first, middle, last, collapse = "")
    list(pos = list(-1), command = string)
}

HTH.