从 R 到 LaTeX 的茎叶法

Question

这里是高中统计老师，很抱歉问了这个简单的问题（或者可能不那么简单）。

我正在运行 R 来创建茎叶图。我正在尝试将stem() 的茎叶输出转换为LaTeX。这是我到目前为止所得到的：

y<- c(50, 26, 31, 57, 19, 24, 22, 23, 38, 13, 50, 13, 34, 23, 30, 49, 13, 15, 51)
stem(y)

我尝试使用 xtables （因为它适用于我的简单双向表）：并且

print(xtable(stem(y)), type="latex", latex.environments=c("center"), tabular.environment =    "tabular", NA.string = "")

我收到此错误：

Error in UseMethod("xtable") : no applicable method for 'xtable' applied to an object of class "NULL"

我尝试了选项的变体，但是得到类似的结果。据我所知，stem() 的输出不是数据框或矩阵，因此 xtables 不喜欢它。我尝试使用 as.data.frame() 和 as.matrix() 将其更改为数据框/矩阵，但没有成功。任何帮助将不胜感激。我已经进行了一些谷歌搜索，但没有找到有用的结果，并浏览了 stackoverflow 网站。任何帮助将不胜感激。

Answer 1

大量借鉴 @DWin 提供的解决方案：

您可以使用 capture.output 捕获 print 语句的输出，并使用 latexTranslate 将其转换为 Latex > 在 HMisc 包中：

library(Hmisc)
latexTranslate(capture.output(stem(y)))

[1] ""                                                         
[2] "  The decimal point is 1 digit(s) to the right of the $|$"
[3] ""                                                         
[4] "  1 $|$ 33359"                                            
[5] "  2 $|$ 23346"                                            
[6] "  3 $|$ 0148"                                             
[7] "  4 $|$ 9"                                                
[8] "  5 $|$ 0017"                                             
[9] ""         

Answer 2

我假设您只想将结果导出到乳胶，对吗？

您可能想尝试以下通过测试的 Sweave 代码：

\documentclass{article}

\usepackage{listings}

\begin{document}

\begin{lstlisting}
<<echo=F, results=tex>>=
y<- c(50, 26, 31, 57, 19, 24, 22, 23, 38, 13, 50, 13, 34, 23, 30, 49, 13, 15, 51)
stem(y)
@ 
\end{lstlisting}

\end{document}

Answer 3

stem 函数返回 NULL。它仅通过打印到控制台设备的副作用起作用。

您也可以使用接收器，但我猜这与您的目标并没有很接近

sink("stem.out")
stem(y)
sink()

当我通过 Hmisc 函数 latex 运行它时，我得到：

latex(readLines("stem.out")
#--------file output follows----
% latex.default(readLines("stem.out")) 
%
\begin{table}[!tbp]
 \begin{center}
 \begin{tabular}{l}\hline\hline
\multicolumn{1}{c}{}\tabularnewline
\hline
\tabularnewline
  The decimal point is 1 digit(s) to the right of the |\tabularnewline
\tabularnewline
  1 | 33359\tabularnewline
  2 | 23346\tabularnewline
  3 | 0148\tabularnewline
  4 | 9\tabularnewline
  5 | 0017\tabularnewline
\tabularnewline
\hline
\end{tabular}

\end{center}

\end{table}
#---------  end of file ------