0

我正在使用 knitr 和 rstudio 编写报告。我正在尝试使用包fa2latex()中的函数将结果打印到因子分析中psych。我想在我的报告文本中引用结果表。该fa2latex函数打印一个乳胶标签命令，但是我还没有看到编辑乳胶命令的方法。我知道我可以在创建 tex 文件后编辑标签，但我想在我的 rnw 文件中进行。有谁知道如何更改包中fa2latex函数产生的乳胶输出中的默认标签命令。psych

这是一些用作示例的代码。

library(psych)
data(Thurstone)
fa.Thurstone<-fa(Thurstone)
fa2latex(fa.Thurstone)

结果是这样的：

% fa2latex % fa.Thurstone 
\begin{tiny} \begin{table}[htdp]\caption{fa2latex}
\begin{center}
\begin{tabular} {l r r r }
 \multicolumn{ 3 }{l}{ A factor analysis table from R } \cr 
 \hline Variable  &   MR1  &  MR1.1  &  MR1.2 \cr 
  \hline 
Sentences   &  0.87  &  0.75  &  0.25 \cr 
 Vocabulary   &  0.88  &  0.77  &  0.23 \cr 
 Sent.Completion   &  0.83  &  0.70  &  0.30 \cr 
 First.Letters   &  0.62  &  0.39  &  0.61 \cr 
 4.Letter.Words   &  0.61  &  0.37  &  0.63 \cr 
 Suffixes   &  0.59  &  0.34  &  0.66 \cr 
 Letter.Series   &  0.57  &  0.32  &  0.68 \cr 
 Pedigrees   &  0.64  &  0.41  &  0.59 \cr 
 Letter.Group   &  0.52  &  0.27  &  0.73 \cr 
\hline \cr SS loadings & 4.32 &  \cr \hline 
\end{tabular}
\end{center}
\label{default}
\end{table} 
\end{tiny}

我想知道是否有办法更改\label{default}命令中的默认值。

我努力了

fa2latex(fa.Thurstone, label="newlabel")

但这告诉我

    Error in fa2latex(fa.Thurstone, label = "newlabel") : 
  unused argument (label = "newlabel")

有谁知道改变这种情况的方法？

4

1 回答 1

1

简短的回答是否定的，但这是一个简单的补丁。更改第 1 行以包含“标签”

"fa2latex" <- 
function(f,digits=2,rowlabels=TRUE,apa=TRUE,short.names=FALSE,font.size ="tiny", heading="A factor analysis table from R",caption="fa2latex",label="default") {

然后将定义页脚的行更改为

footer <- paste(footer,"
\\end{tabular}
\\end{center}
\\label{",label,"}
\\end{table} 
\\end{",font.size,"}
",sep=""
)

我将在下一个版本中包含此更正。

账单

于 2013-08-20T20:27:45.287 回答