3

定义:

df <- data.frame(name=c("México","Michoacán"),dat=c(1,2))

英石

> df
        name dat
1    México   1
2 Michoacán   2

当我使用重音字符将此表打印到.tex文件xtable时会出现乱码,这不足为奇。

我想用正确的Latex格式替换口音,例如:

> df
     name dat
1 M\'{e}xico   1
2 Michoac\'{a}n   2

请注意,在实际数据集中,有许多不同的名称具有不同的重音字母,但都具有相同类型的重音(即正斜杠),因此唯一需要更改的\'{.}是字母代替点。

在尝试一位读者的建议时,我做了以下事情:

> df <- data.frame(name=c("México","Michoacán"),dat=c(1,2))
> df
        name dat
1    México   1
2 Michoacán   2
> df$name <- sub("é", "\\\\'{e}", df$name,)
> df
         name dat
1 M\\'{e}xico   1
2  Michoacán   2
> capture.output(
+       print(xtable(df)),
+       file = "../paper/rTables.tex", append = FALSE)

当我在记事本中打开rTables.tex文件时:

% latex table generated in R 2.13.1 by xtable 1.5-6 package
% Fri Jul 15 13:19:17 2011
\begin{table}[ht]
\begin{center}
\begin{tabular}{rlr}
  \hline
 & name & dat \\ 
  \hline
1 & M$\backslash$'\{e\}xico & 1.00 \\ 
  2 & Michoacán & 2.00 \\ 
   \hline
\end{tabular}
\end{center}
\end{table}

这不是所需要的。

4

2 回答 2

2

使用该stringr包,并一次替换每种类型的重音字符。

library(stringr)
df$name <- str_replace_all(df$name, "é", "\\\\'{e}")  
df$name <- str_replace_all(df$name, "á", "\\\\'{a}")
df$name
于 2011-07-14T18:50:35.430 回答
1

我认为问题在于这种情况要求很多xtable尝试将奇怪的字符转换为LaTeX. 尝试sanitize.text.function如下覆盖:

print(xtable(df),sanitize.text.function=function(x){x})

在我的系统上输出:

% latex table generated in R 2.13.0 by xtable 1.5-6 package
% Fri Jul 15 10:30:00 2011
\begin{table}[ht]
\begin{center}
\begin{tabular}{rlr}
  \hline
 & name & dat \\ 
  \hline
1 & M\'{e}xico & 1.00 \\ 
  2 & Michoacán & 2.00 \\ 
   \hline
\end{tabular}
\end{center}
\end{table}

LaTeX但是,这样做可能会破坏其他标记,因此请注意这一点。

于 2011-07-15T17:33:26.187 回答