使用 R 变量作为条件的 knitr/Sweave 中的 If-Else 语句（第 2 部分）

Question

我正在扩展我在这里发布的一个问题：

使用 R 变量作为条件的 knitr/Sweave 中的 If-Else 语句

我想在 LaTeX 中使用 if-else 语法，以便根据 R 变量（比如 x）的值，输出两个 LaTeX 文本段落之一。如果 x>0，则 LaTeX 段落有一个图形和一个表格。但是，如果 x<0，则 LaTeX 段落只有一个数字（没有表格）。

我有一个有效的 MWE，它基于上一篇文章中的检查答案：

\documentclass[12pt,english,nohyper]{tufte-handout}
\usepackage{tabularx}
\usepackage{longtable}

\begin{document}

<<setup, echo = FALSE>>=
library(knitr)
library(xtable)
library(ggplot2)
knit_patterns$set(header.begin = NULL)
@

<<echo=FALSE,results='asis'>>=
fname="myOutput.pdf"
pdf(fname,width=4,height=4)
print(qplot(mpg,cyl,data=mtcars))
{dev.off();invisible()}
cat(sprintf('\\begin{marginfigure}
\\includegraphics[width=0.98\\linewidth]{%s}
\\caption{\\label{mar:dataMtcars}Comments about mtcar dataset.}
\\end{marginfigure}',sub('\\.pdf','',fname)))
@

<<echo=FALSE,results='asis'>>=
x<- rnorm(1)
if (x>0){
  myDF = data.frame(a=rnorm(1:5),b=rnorm(1:5),c=rnorm(1:5))
  print(xtable(myDF,caption='Data frame comments', label='tab:myDataFrame'),floating=FALSE, tabular.environment = "longtable",include.rownames=FALSE)
}
@

<<condition, echo=FALSE>>=
if(x>0){
  text <- "Figure \\ref{mar:dataMtcars} shows the mtcars data set. The x value of \\Sexpr{x} was greater than 0. Table \\ref{tab:myDataFrame} shows my data frame."
  }else{
  text <- "Figure \\ref{mar:dataMtcars} shows the mtcars data set. The x value of \\Sexpr{x} was less than 0. We do not show a data frame."
  }
@

Testing the code: 

<<print, results='asis', echo=FALSE>>=
cat(text)
@

\end{document}

然后我将此 MWE 保存为 testKnitr.Rnw 之类的内容，然后运行：

knit(input = "testKnitr.Rnw", output = "intermediate.Rnw")
knit2pdf(input = "intermediate.Rnw", output = "doc_final.tex")

我想知道我是否有效地创建了这段代码，特别是因为在我之前的帖子中向我指出 - 在仅使用 \Sexpr{} 的情况下 - 有更简单的解决方案。在这里编织两次有点麻烦。

有没有更简单的方法来合并我的 if/else 语句以显示包含变量值、数字和/或表格的两个段落之一，所有这些段落都基于变量的值？谢谢你。

Answer 1

类似于上面链接的相关问题，\Sexpr{}在这种情况下不需要第二次动态生成和解析中间输出。

问题的代码中发生了很多事情，但这是关键块（其中x获取在前一个块中分配的随机值）：

<<condition, echo=FALSE>>=
if (x > 0) {
  text <- "Figure \\ref{mar:dataMtcars} shows the mtcars data set. The x value of \\Sexpr{x} was greater than 0. Table \\ref{tab:myDataFrame} shows my data frame."
  } else {
    text <- "Figure \\ref{mar:dataMtcars} shows the mtcars data set. The x value of \\Sexpr{x} was less than 0. We do not show a data frame."
    }
@

printing 的直接替代品\Sexpr

简单明了的替代品\Sexpr{}是paste与sprintf（我用一个在if分支，一个在else分支只是为了演示）：

<<condition, echo=FALSE>>=
if (x > 0) {
  text <- paste("Figure \\ref{mar:dataMtcars} shows the mtcars data set. The x value of", x, "was greater than 0. Table \\ref{tab:myDataFrame} shows my data frame.")
  } else {
    text <- sprintf("Figure \\ref{mar:dataMtcars} shows the mtcars data set. The x value of %f was less than 0. We do not show a data frame.", x)
    }
@

当有条件显示的文本不太长时，这很有效。否则，使用 LaTeXif语句可能更方便。这样做的优点是没有太多的代码被包裹在字符字符串/代码块中。然后，\Sexpr{}可能再次有用。

使用 LaTeX 条件表达式

在 LaTeX 中有很多方法可以编写条件表达式，但最简单的形式就足够了。

• 首先，定义一个if我们将称之为ifPositive: 的新对象\newif\ifPositive。
• 其次，使用 R 插入\Positivetrue或 \Positivefalse插入文档。

• 第三，使用\ifPositive … \else … \fi。

  \newif\ifPositive
  
  <<condtion2, echo = FALSE, results = "asis">>=
  if (x > 0) {
    cat("\\Positivetrue")
  } else {
    cat("\\Positivefalse")
  }
  @
  
  \ifPositive
  Figure \ref{mar:dataMtcars} shows the mtcars data set. The x value of \Sexpr{x} was greater than 0. Table \ref{tab:myDataFrame} shows my data frame.
  \else
  Figure \ref{mar:dataMtcars} shows the mtcars data set. The x value of \Sexpr{x} was less than 0. We do not show a data frame.
  \fi
  

其他备注

在问题中有一个块生成myOutput.pdf. 在那里，pdf()并且dev.off()被使用。这是不好的作风，会害死小猫。无需绕过knitr的生成图的机制；甚至在使用marginfigure而不是figure使用自定义环境时也不行。该块应替换为以下内容：

<<dataMtcars, echo=FALSE, fig.env = "marginfigure", out.width = "0.98\\linewidth", fig.cap = "Comments about mtcar dataset.", fig.lp = "mar:">>=
print(qplot(mpg,cyl,data=mtcars))
@

fig.lp = "mar:"仅需要生成与问题中完全相同的标签mar:dataMtcars。如果标签fig:dataMtcars也可以，则可以跳过它。

文档

最后，这里是完整的文档：

\documentclass[12pt,english,nohyper]{tufte-handout}
\usepackage{tabularx}
\usepackage{longtable}

\begin{document}

<<setup, echo = FALSE>>=
library(knitr)
library(xtable)
library(ggplot2)
@

<<dataMtcars, echo=FALSE, fig.env = "marginfigure", out.width = "0.98\\linewidth", fig.cap = "Comments about mtcar dataset.", fig.lp = "mar:">>=
print(qplot(mpg,cyl,data=mtcars))
@

<<echo=FALSE,results='asis'>>=
x <- rnorm(1)
if (x > 0) {
  myDF <- data.frame(a = rnorm(1:5), b = rnorm(1:5), c = rnorm(1:5))
  print(xtable(myDF, caption= 'Data frame comments', label='tab:myDataFrame'), floating = FALSE, tabular.environment = "longtable", include.rownames=FALSE)
}
@

<<condition, echo=FALSE>>=
if (x > 0) {
  text <- paste("Figure \\ref{mar:dataMtcars} shows the mtcars data set. The x value of", x, "was greater than 0. Table \\ref{tab:myDataFrame} shows my data frame.")
  } else {
    text <- sprintf("Figure \\ref{mar:dataMtcars} shows the mtcars data set. The x value of %f was less than 0. We do not show a data frame.", x)
    }
@

  Testing the code:

<<print, results='asis', echo=FALSE>>=
  cat(text)
@

\paragraph{Alternative:}

\newif\ifPositive

<<condtion2, echo = FALSE, results = "asis">>=
if (x > 0) {
  cat("\\Positivetrue")
} else {
  cat("\\Positivefalse")
}
@

\ifPositive
Figure \ref{mar:dataMtcars} shows the mtcars data set. The x value of \Sexpr{x} was greater than 0. Table \ref{tab:myDataFrame} shows my data frame.
\else
Figure \ref{mar:dataMtcars} shows the mtcars data set. The x value of \Sexpr{x} was less than 0. We do not show a data frame.
\fi

\end{document}