使用針織機時用於觀星乳膠表的新字體樣式

Question

我想用等寬字體打印用stargazer()生成的乳膠表，並且我想以與knitr（即，沒有手動乳膠編碼）的可重現方式生成乳膠表。我試圖定義一個名爲mymono的環境，然後通過\begin{}和\end{}將編織塊包裹在此環境中。這是行不通的;表格以默認字體樣式打印。

\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} 

我不認爲這是除了font.size在stargazer()字體設置。

# > 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文檔中。