如何“装箱" "summary()"的输出；在Rmarkdown中 [英] How to "box" the output of "summary()" in Rmarkdown

问题描述

我看过这篇文章: 如何创建R R代码块中的-markdown部分?显示正确的代码

其中一名响应者塞德里克(Cedric)用装箱R中summary()命令输出的方式给我留下了深刻的印象.

and one of the responders, Cedric, impressed me with the way he or she boxed the output of summary() command in R.

我了解用户使用Sweave创建了如此出色的输出. 我很好奇，是否有一种方法可以使用Knit以类似的方式输出到PDF文件.

I understand that the user used Sweave to create such a great output. I am curious that whether there is a way to use Knit to output to a PDF file in the similar fashion.

谢谢！

推荐答案

此处Sweave与R Markdown没什么特别的.您可以将链接到的Cered的答案复制并粘贴到文件example.sty中，并使用以下R降价文件

There's nothing special about Sweave vs. R Markdown here. You can copy and paste the LaTeX code from Cedric's answer that you linked to into a file example.sty and use the following R Markdown file

---
title: "Stack Overflow Answer"
author: "duckmayr"
header-includes:
    - \usepackage{example}
output: pdf_document
---


```{r boxed-summary, results='asis'}
for (i in 1:10) {
  cat("\\section{Part:", i, "}")
  cat("\\begin{lstlisting}")
  print(summary(lm(data=mtcars, mtcars[,1]~ mtcars[,i])))
  cat("\\end{lstlisting}")
  cat(paste0("$\\\\alpha$ = ", mtcars[1,i]))  
}
```

创建

或者，您可以将LaTeX放入正在编辑的R Markdown文档中:

Alternatively, you could put the LaTeX into the R Markdown document you're editing:

---
title: "Stack Overflow Answer"
author: "duckmayr"
header-includes:
    - \usepackage{listings}
    - \usepackage[usename,dvipsnames]{xcolor}
    - \definecolor{mygreen}{rgb}{0,0.6,0} 
    - \definecolor{mygray}{rgb}{0.5,0.5,0.5}
    - \definecolor{mymauve}{rgb}{0.58,0,0.82}
output: pdf_document
---

\lstset{ %
  backgroundcolor=\color{white},   % choose the background color; you must add \usepackage{color} or \usepackage{xcolor}
  basicstyle=\footnotesize\ttfamily, % the size of the fonts that are used for the
  % code
  breakatwhitespace=false,         % sets if automatic breaks should only happen at whitespace
  breaklines=true,                 % sets automatic line breaking
  captionpos=b,                    % sets the caption-position to bottom
  commentstyle=\color{mygreen},      % comment style
  deletekeywords={...},            % if you want to delete keywords from the given language
  escapeinside={\%*}{*)},          % if you want to add LaTeX within your code
  extendedchars=true,              % lets you use non-ASCII characters; for 8-bits encodings only, does not work with UTF-8
  frame=single,                    % adds a frame around the code
  keepspaces=true,                 % keeps spaces in text, useful for keeping indentation of code (possibly needs columns=flexible)
  keywordstyle=\color{blue},       % keyword style
  language=R,                       % the language of the code
  morekeywords={*,...},            % if you want to add more keywords to the set
  numbers=left,                    % where to put the line-numbers; possible values are (none, left, right)
  numbersep=5pt,                   % how far the line-numbers are from the code
  numberstyle=\tiny\color{mygray},   % the style that is used for the line-numbers
  rulecolor=\color{black},         % if not set, the frame-color may be changed on line-breaks within not-black text (e.g. comments (green here))
  showspaces=false,                % show spaces everywhere adding particular underscores; it overrides 'showstringspaces'
  showstringspaces=false,          % underline spaces within strings only
  showtabs=false,                  % show tabs within strings adding particular underscores
  stepnumber=2,                    % the step between two line-numbers. If it is 1, each line will be numbered
  stringstyle=\color{mymauve},      % string literal style
  tabsize=2,                       % sets default tabsize to 2 spaces
  title=\lstname                   % show the filename of files included with \lstinputlisting; also try caption instead of title
}

```{r boxed-summary, results='asis'}
for (i in 1:10) {
  cat("\\section{Part:", i, "}")
  cat("\\begin{lstlisting}")
  print(summary(lm(data=mtcars, mtcars[,1]~ mtcars[,i])))
  cat("\\end{lstlisting}")
  cat(paste0("$\\\\alpha$ = ", mtcars[1,i]))  
}
```

这将导致相同的输出.

出处说明

我想在这里再次强调，我没有提出创建盒装清单的LaTeX代码；塞德里克(Cedric)如上所述.我只是在这里为OP演示如何在R Markdown文档中使用该代码，而不是如链接答案中所展示的通过Sweave.

I want to re-emphasize here that I did not come up with the LaTeX code that creates the boxed listing; Cedric did that as mentioned above. I merely demonstrate here for the OP how to use that code in an R Markdown document rather than via Sweave as was demonstrated in the linked answer.

这篇关于如何“装箱" "summary()"的输出；在Rmarkdown中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！