R:创建没有环境代码的乳胶表
如何在R中打印latex格式的表(例如汇总统计信息,无回归输出),但没有像begin{table}[!htbp] centering
这样的环境代码?
我尝试了许多在R中用于制作乳胶表的工具中列出的软件包。只有stargazer软件包似乎可以选择抑制Latex环境代码,即out.header=FALSE
。 但是这个选择似乎没有效果。 其他软件包似乎更少选择。
背景:我有两张非常相似的表格(在我的情况下是spearman和pearson相关),我希望在Latex的一个表格中有这种表格。 我想简单地在第三个胶乳文件中调用R生成的乳胶格式输出,最终在Latex文档中调用该输出。 但是,如果在一个.tex
文档中有其他可能性创建两个R生成的Latex样式表,我很乐意使用它们。
你可以用xtable来做到这一点 :
这是默认行为:
> print(xtable(table(1:5)))
% latex table generated in R 3.1.1 by xtable 1.7-4 package
% Sat Nov 08 14:57:56 2014
begin{table}[ht]
centering
begin{tabular}{rr}
hline
& V1
hline
1 & 1
2 & 1
3 & 1
4 & 1
5 & 1
hline
end{tabular}
end{table}
如果在print
方法选项中包含floating = FALSE
,则可以获得所需的结果:
> print(xtable(table(1:5)), floating = FALSE)
% latex table generated in R 3.1.1 by xtable 1.7-4 package
% Sat Nov 08 14:57:51 2014
begin{tabular}{rr}
hline
& V1
hline
1 & 1
2 & 1
3 & 1
4 & 1
5 & 1
hline
end{tabular}
这里有非常细致的控制,但大多数选项都在? print.xtable
? print.xtable
,不是? xtable
? xtable
。
为什么不在第一步中将两个表合并为一个data.frame,然后为您的任务设置合并的内容? 在你的问题中只有很少的细节,但我想这里沿着这些线可以工作:
x <- rbind( cor(mtcars, use="complete.obs", method="spearman"),
cor(mtcars, use="complete.obs", method="pearson" ))
rownames( x )[12:22] <- paste( rownames( x )[12:22], "a", sep = "-" )
xLatex <- xtable( x )
链接地址: http://www.djcxy.com/p/25003.html