如何在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))