更改fa2latex标签命令

更改fa2latex标签命令,latex,knitr,psych,Latex,Knitr,Psych,我正在用knitr和rstudio写一份报告。我正在尝试使用psych包中的fa2latex()函数将结果打印到因子分析中。我想在我的报告文本中引用结果表。fa2latex函数打印一个latex标签命令,但是我没有看到编辑latex命令的方法。 我知道我可以在创建tex文件后编辑标签,但我想在我的rnw文件中进行编辑。是否有人知道如何更改latex输出中的默认标签命令,该命令由psych包中的fa2latex函数生成 下面是一些代码作为示例 library(psych) data(Thursto

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

下面是一些代码作为示例

library(psych)
data(Thurstone)
fa.Thurstone<-fa(Thurstone)
fa2latex(fa.Thurstone)
我想知道的是,是否有办法更改
\label{default}
命令中的默认值

我试过了

fa2latex(fa.Thurstone, label="newlabel")
但这告诉我

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

有人知道如何改变这一点吗?

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


“fa2latex”您始终可以尝试在
fa
的输出上使用
xtable
。它会给你更多的灵活性来处理这类事情。1.3.10版现在已经发布,并且有这个功能。
    Error in fa2latex(fa.Thurstone, label = "newlabel") : 
  unused argument (label = "newlabel")
"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=""
)