0

我正在尝试使用表格命令在 R/Sweave 中创建一个表格。我希望行标签成为我的数据框的标题consca。（每一列是一个问题，每一行是学生对每个问题的回答。）我使用的命令是这样的：

latex(tabular(Heading('Questions')*(paste(labels(consca)[[2]],collapse='+')) ~ (n=1) + (mn + 
          sdev),data=consca))

引发此错误：

Error in term2table(rows[[i]], cols[[j]], data, n) : 
Argument paste(labels(consca)[[2]], collapse = "+") is not length 298

粘贴参数有效...

 paste(labels(consca)[[2]],collapse='+')
    [1] "Q02+Q03+Q06+Q17+Q19+Q25+Q31+Q33+Q36+Q39+Q45+Q50"

并产生我想要的输出：

latex(tabular(Heading('Questions')*(Q02+Q03+Q06+Q17+Q19+Q25+Q31+Q33+Q36+Q39+Q45+Q50) ~ (n=1) + 
                (mn + sdev),data=consca))

但是，我想使用多个比例来执行此操作（即我想更改consca为其他对象并且我想消除复制/粘贴步骤。）

我曾摆弄evaland as.symbol，但无济于事。也许我没有以正确的方式使用它们。

好的，对于那些想要一个最小可重复示例的人来说，这里是：

require(tables)
a <- rnorm(10)
b <- rnorm(10,2)
c <- rnorm(10,100)
x <- data.frame(a,b,c)
# This works:
tabular(a+b+c ~ (mean + sd), x)
# This fails:
tabular(paste(labels(x)[[2]],collapse='+') ~ (mean+sd),x)
# Even though:
paste(labels(x)[[2]],collapse='+')
[1] "a+b+c"
4

1 回答 1

0

我找到了使用包中的describe函数的解决方法psych。（最终，我想要的不仅仅是平均值和 sd，并且 describe 函数会自动计算它们。）这会创建一个 data.frame，将其转换为 \LaTeX 表是微不足道的。

于 2013-08-21T13:02:18.047 回答