如何在R中gsub（'％'，'\\％'，…？

Question

我想导出带有单位栏的乳胶表，该单位栏具有百分比（％）符号。

library(xtable) 
foo <- data.frame(units='%', citation = '\\citep{authorYYYYabc}')
print(xtable(foo), sanitize.text.function = function(x) {x})

注意：以上代码自Joris回答以来已更改。

在这种情况下，LaTeX将'％'解释为注释。

我努力了

gsub('%', '\\%', foo)

回报

[1] "1"

如何将％转换为\\％，以便LaTex注释掉？

这个问题有点像先前的问题“ R可以粘贴（'\\'）吗？” ; 甚至抛光同一张桌子，但我无法弄清楚这种特殊情况。

Answer 1

我不确定我是否完全了解您。 如果我执行xtable（foo），则％可以正确转义：

...
  \hline
1 & \% \\ 
   \hline
...

如果要为其他内容加上转义斜线，则需要在gsub中添加四倍的转义：

> x <- gsub('%', '\\\\%', foo[,1])
> x
[1] "\\%"
> cat(x,"\n")
\% 

提醒您，您不能在数据框中gsub，而只能在向量中gsub。 这可以显示为

> as.character(foo)
[1] "1"

Answer 2

将Joris的答案与注释中的代码结合起来：

library(xtable)
foo <- data.frame(units='%', citation = '\\citep{authorYYYYabc}')
print(xtable(foo), sanitize.text.function = function(x)gsub('%', '\\\\%', x))