7

编辑我找到了答案并在下面发布。我认为它在数学模式下工作的唯一原因是因为我正在运行一个示例并且从未看到sanitize-text-function参数被传递给 print 方法。一旦它可用，我会接受这个答案。

我正在排版手稿并对其进行数据分析。在这个分析中，我正在生成一个表 1 并希望缩进表中的一些行名，以使其具有层叠的感觉。

我拥有的数据示例是：

require(xtable)
data <- data.frame(
  'case'=sample(c('case', 'control'), 100, replace=TRUE),
  'age'=sample(c('40-50,', '50-60', '60-70'), 100, replace=TRUE),
  'sex'=sample(c('male', 'female'), 100, replace=TRUE),
  'income'=sample(c('under 50,000', '50-100,000', 'over 10000'), 100, replace=TRUE)
)

tables <- lapply(data[, -1], table, data[, 1])
tables <- lapply(tables, function(x) {
  rownames(x) <- paste('\\hspace{5mm}', rownames(x))
  x
})
tablenames <- names(tables)
tables <- Reduce(rbind, mapply(rbind, '', tables))
rownames(tables)[rownames(tables) == ''] <- tablenames

xtable(tables)

xtable(tables, type='latex', sanitize.text.function=identity)

我知道最后两个 xtable 命令应该返回不同的表。我正在使用最新版本的 R 和 xtable。

4

1 回答 1

12

Welp... 显然，sanitize.text.function是对自身的争论，print.xtable而不是对xtable自身的争论。正在做

print(xtable(tables), type='latex', sanitize.text.function=identity)

解决问题。

于 2013-09-19T17:57:59.337 回答