在 LaTeX 表格环境中使用 \Sexpr{}

Question

我正在尝试使用 \Sexpr{} 将 R 对象中的值包含在 LaTeX 表中。我本质上是试图在 R 中复制 lm 对象的摘要输出，因为 xtable 的内置方法 xtable.lm 和 xtable.summary.lm似乎不包括 Fstats、调整后的 R 平方等（R 控制台中 lm 对象的摘要打印输出底部的所有内容）因此我尝试通过构建一个矩阵来复制 xtable 来完成此任务.summary.lm 输出然后为额外的内容构建相关信息的数据帧，以便我可以使用 \Sexpr{} 引用这些值。我尝试通过使用 add.to.row 附加 \multicolumn{} 命令来合并 LaTeX 表最后一行的所有列，然后只是将我需要的所有信息传递到表格的该单元格中。

问题是我在 \multicolumn{} 表达式中得到 \Sexpr{} 表达式的 “未定义控制序列”。这两个不兼容吗？如果是这样，我做错了什么，如果没有，有人知道如何做我想做的事吗？

谢谢，

这是我的代码的相关部分：

<<Test, results=tex>>=

model1 <- lm(stndfnl ~ atndrte + frosh + soph)

# Build matrix to replicate xtable.summary.lm output

    x <- summary(model1)
    colnames <- c("Estimate", "Std. Error", "t value", "Pr(<|t|)")
    rownames <- c("(Intercept)", attr(x$terms, "term.labels"))
    fpval <- pf(x$fstatistic[1],x$fstatistic[2], x$fstatistic[3], lower.tail=FALSE)
    mat1 <- matrix(coef(x), nrow=length(rownames), ncol=length(colnames), dimnames=list(rownames,colnames))

# Make a data frame for extra information to be called by \Sexpr in last row of table
    residse <- x$sigma
    degf <- x$df[2]
    multr2 <- x$r.squared
    adjr2 <- x$adj.r.squared
    fstat <- x$fstatistic[1]
    fstatdf1 <- x$fstatistic[2]
    fstatdf2 <- x$fstatistic[3]

    extradat <- data.frame(v1 = round(residse,4), v2 =degf, v3=round(multr2,4), v4=round(adjr2,4),v5=round(fstat,3), v6=fstatdf1, v7=fstatdf2, v8=round(fpval,6))   

    addtorow<- list()
    addtorow$pos <-list()
    addtorow$pos[[1]] <- dim(mat1)[1]
    addtorow$command <-c('\\hline \\multicolumn{5}{l}{Residual standard error:\\Sexpr{extradat$v1}} \\\\ ')

    print(xtable(mat1, caption="Summary Results for Regression in Equation  \\eqref{model1} ", label="tab:model1"), add.to.row=addtorow, sanitize.text.function=NULL, caption.placement="top")

Answer 1

您的 R 代码中不需要包含 Sexpr； R代码可以直接使用表达式。 Sexpr 不是一个 LaTeX 命令，尽管它看起来像一个；它是一个 Sweave 命令，因此无法将其作为 R 代码的输出。

另外，无需完全重新创建

addtorow$command <-paste('\\hline \\multicolumn{5}{l}{Residual standard error:',
                         extradat$v1, '} \\\\ ')

xtable 使用的矩阵，您只需在默认输出的基础上进行构建即可。基于您上面的内容，类似于：

mytab <- xtable(model1, caption="Summary Results", label="tab:model1")
addtorow$pos[[1]] <- dim(mytab)[1]
print(mytab, add.to.row=addtorow, sanitize.text.function=NULL, 
             caption.placement="top")

请参阅 http://people.su.se /~lundh/reproduct/sweaveintro.pdf 作为示例，您可以按原样使用。