在LaTeX格式的列联表的行和列标题中包含维名称

Question

如果列联表中的属性类别仅仅是数字,仅使用这些数字作为列/行标题是不够的 - 需要描述数字的含义.下图显示了家庭样本中家庭人数与外国人人数的交叉分类:

有没有人有使用R + LaTeX生产此类表的经验？

Answer 1

我有一个相当自我的解决方案,但我也希望看到其他方法.当然,如果添加此代码的变体会很好xtable.

我的解决方案包括更新的rownames()和colnames()表.行标题进入rownames()[1],列标题进入colnames()[1].必须记住几件事:

• 如果使用行标题,则结果表中的列数会更大.因此,tabular环境必须由用户创建.
• 如果添加了行标题,则列标题必须包含其他标题 &
• 在此操作之后,请勿清理或重新格式化行或列名称

该add.crosstab.headers功能可以处理所有事情.它可以应用于xtable()呼叫的结果.还需要一些辅助函数.

macrify <- function(m, s, bs='\\') {
  paste(bs, m, '{', s, '}', sep='')
}

boldify <- function(s) {
  macrify('textbf', s)
}

add.crosstab.headers <- function(t, row.header=NA, col.header=NA,
                                 sanitize=boldify) {
  rownames(t) <- sanitize(rownames(t))
  colnames(t) <- sanitize(colnames(t))
  if (!is.na(row.header)) {
    colnames(t)[1] <- paste('&', colnames(t)[1])
    rownames(t) <- paste('&', rownames(t))
    row.header <- sanitize(row.header)
    row.header <- macrify('rotatebox{90}', row.header)
    multirow <- macrify('multirow', nrow(t))
    multirow <- macrify(multirow, '*', bs='')
    row.header <- macrify(multirow, row.header, bs='')
    rownames(t)[1] <- paste(row.header, rownames(t)[1])
  }
  if (!is.na(col.header)) {
    col.header <- sanitize(col.header)
    multicolumn <- macrify('multicolumn', ncol(t))
    multicolumn <- macrify(multicolumn, 'c', bs='')
    col.header <- macrify(multicolumn, col.header, bs='')
    col.header <- paste(col.header, '\\\\\n')
    col.header <- paste(col.header, '&')
    if (!is.na(row.header)) {
      col.header <- paste('&', col.header)
    }
    colnames(t)[1] <- paste(col.header, colnames(t)[1])
  }
  t
}

用法就是这样.

dat <- matrix(round(rnorm(9, 20, 10)), 3, 3)
t <- xtable(dat)
t <- add.crosstab.headers(t, row.header='Foreigners', col.header='Total persons')

print.xtable(t,
             only.contents=TRUE,
             booktabs=TRUE
             , sanitize.text.function=identity
             )

Answer 2

它可以ftable将列联表转换为二维格式化表，并允许指定行中显示的内容和列中显示的内容（对于二维以上的表也很有用）。该memisc包有助于将其变成漂亮的 LaTeX：

library(magrittr)
library(memisc)
expand.grid(Foreigners = 0:5, `Total persons` = 1:8) %>%
  cbind(Freq = rnorm(6*8, 20, 10)) %>%
  xtabs(formula = Freq~.) %>%
  ftable %>%
  toLatex

不需要黑客攻击，并且 LaTeX 可以用于列的名称expand.grid（以支持例如旋转和/或跨越多行）。生成的 LaTeX 代码需要booktabs和dcolumn包。

相关：从 R 中的 ftable 对象创建乳胶表。