我目前正在使用 rmarkdown 编写报告,因此我想在 r 代码块中创建部分。我发现这在 的帮助下是可能的。猫()和 结果="asis" .
我对这个解决方案的问题是,我的 R 代码结果和代码没有像往常一样正确显示。
例如
---
title: "test"
output: pdf_document
---
```{r, results='asis'}
for (i in 1:10) {
cat("\\section{Part:", i, "}")
print(summary(lm(data=X, X1~X2))
$\alpha = `r X[1,i]`$
}
```
几乎可以解决问题,但这里仍然存在两个问题:
有人知道解决方案吗,或者是否有一种解决方法可以在循环中创建部分并在本部分中包含 R 代码、R 输出和 LaTeX 公式?
我非常感谢各种建议:)
最佳答案
使用 Markdown 和逐字环境
你可以用 verbatim
包围 R 输出。环境,带有四个 \
的转义码成 block 。
```{r, results='asis'}
for (i in 1:10) {
cat("\\section{Part:", i, "}")
cat("\\begin{verbatim}")
print(summary(lm(data=mtcars, mtcars[,1]~ mtcars[,i])))
cat("\\end{verbatim}")
cat(paste0("$\\\\alpha$ = ", mtcars[1,i]))
}
```
使用列表包更花哨的东西
在某些时候,当运行 Latex 时,我倾向于退出 markdown (.Rmd) 并使用 sweave (.Rnw),我发现它更容易,您可以检查 .tex 文件中发生的情况并找出问题所在。
\documentclass[a4paper]{article}
\usepackage{listings}
\usepackage[usename,dvipsnames]{xcolor}
% create a set of colors
\definecolor{mygreen}{rgb}{0,0.6,0}
\definecolor{mygray}{rgb}{0.5,0.5,0.5}
\definecolor{mymauve}{rgb}{0.58,0,0.82}
% create a listings environment suitable for R code
\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
}
\title{test}
\begin{document}
\maketitle
<<r, 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]))
}
@
\end{document}
关于r - 如何在 R 代码块中创建 R-markdown 部分?具有正确的代码显示,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47414027/