使用 knitr 时 stargazer 乳胶表的新字体样式

Question

我想以等宽字体打印使用stargazer() 生成的乳胶表，并且我想使用knitr 以可重现的方式执行此操作（即，无需手动乳胶编码）。我尝试定义一个名为mymono 的环境，然后通过\begin{} 和\end{} 将knitr 块包装在此环境中。这是行不通的;表格以默认字体样式打印。

\documentclass{article} 
\newenvironment{mymono}{\ttfamily}{\par}
\begin{document}   
<<lm, echo=FALSE>>=  
df <- data.frame(x=1:10, y=rnorm(10))
library(stargazer)  
lm1 <- lm(y ~ x ,data=df)  
@

% reproducible
\begin{mymono}
<<table_texstyle, echo=FALSE, results='asis', message=FALSE>>=  
stargazer(lm1, label="test")  
@  
\end{mymono}

\end{document}

我认为stargazer() 中除了font.size 之外没有字体设置。

# > sessionInfo()
# R version 3.0.2 (2013-09-25)
# Platform: x86_64-apple-darwin10.8.0 (64-bit)
# other attached packages:
# [1] stargazer_5.1

比将整个 table{} 包裹在新字体样式中更好的是仅包裹 tabular{} 以便标题保持默认样式。我不知道是否有办法以编程方式将乳胶代码插入stargazer() 输出。

Answer 1

评论太长了，所以这里是一个答案的开始。使用问题中的模型：

\documentclass{article} 
\begin{document}  

<<lm, echo=FALSE, message=FALSE, include=FALSE>>=
df <- data.frame(x=1:10, y=rnorm(10))
library(stargazer)  
lm1 <- lm(y ~ x ,data=df)  

tabular_tt <- function(orig.table) {
    library(stringr)
    tabular.start <- which(str_detect(orig.table, "begin\\{tabular\\}"))
    tabular.end <- which(str_detect(orig.table, "end\\{tabular\\}"))
    new.table <- c(orig.table[1:(tabular.start - 1)],
                   "\\texttt{",
                   orig.table[tabular.start:tabular.end],
                   "}",
                   orig.table[(tabular.end + 1):length(orig.table)])
    return(new.table)
}
@

<<print, results='asis', echo=FALSE>>=
cat(tabular_tt(capture.output(stargazer(lm1, label="test"))), sep="\n")
@

\end{document}

您可以根据需要轻松调整它。如果你遇到问题，我会确保你的目标 LaTeX 语法是正确的，只在 LaTeX 中玩一个小玩具表，也许玩你编织时生成的 tex 文件。

您可能需要创建函数cat(new.table, sep = "\n") 才能将其正确输出到 knitr 文档中。