如何在R / Sweave中的Sexpr中使用％in％？

Question

这是我在Rnw文件中的代码：

\Sexpr{length(which(x %in% c('a', 'b')))}

由于％是注释的语法，因此该代码不起作用 如何在R / Sweave中的Sexpr中使用％in％？

Answer 1

我不能将问题标记为重复，但是我从这里和益辉那里得到了答案：\Sexpr{} special LaTeX characters ($, &, %, # etc.) in .Rnw-file

以下代码将允许在\ Sexpr中内联使用特殊的乳胶字符，因此您可以使用％in％。比您发布的问题更普遍。

hook_inline = knit_hooks$get('inline')
knit_hooks$set(inline = function(x) {
  if (is.character(x)) x = knitr:::escape_latex(x)
  hook_inline(x)
})