Question

最后的工作示例

我想使用knitr在LaTeX文档中包含R代码，但是当存在非ascii字符时，它无法正确打印到PDF中。情况类似于GitHub中用户 unikum 提出的问题，但在那里给出的解决方案仅部分地帮助了我。

理想情况下，打印的行将在普通文本中并具有合适的LaTeX格式，特别是在结果只是一行的情况下。我脑子里有一些用处，研究论文中的例句会自动从数据文件中获取。

我在RStudio（0.98.945）中编写了Rnw文件，我使用XeLaTex进行排版。我只需点击RStudio中的编译PDF 按钮即可创建PDF。我有MacBook Pro和Mavericks。如果需要一些其他信息，请告诉我。如果有帮助，我也可以切换到其他程序（如TeXShop等）。

我还在学习所有这些工具，R，knitr和LaTeX，所以如果我错过任何明显的解决方案或滥用某些术语，我会道歉。我尝试将类似问题的不同解决方案结合起来，例如关于Polish characters或关于Hebrew的问题。有很多人在撰写有关类似问题的文章，但我仍然有问题要将它们结合在一起。我猜这是编码问题。

这是我的LaTeX序言：

\documentclass{article}
\usepackage{hyperref}
\usepackage {fontspec}
\setromanfont{Charis SIL}

<<setup, include=FALSE>>=
options(device = function(file, width = 7, height = 7, ...) {
cairo_pdf(tempfile(), width = width, height = height, ...)
})
@

在普通文本中我可以有任何可能的unicode字符，它们在pdf中显示正确：мичаалыддьыныпозьӧ，met'šužišurse̮kmis-šodasɛ͔dvoɛ͔šent'a·b das-e̮kmi͔sɛ͔dlunɛ。

我认为这与编码有关。

在我的例子中，我扫描到包含以下10行的文本文件（test.txt），它们只是芬兰语和科米语中的随机单词形式：

Серафимлӧн
тшӧктісны
налысь
sivulla
ёрт
дугдыны
sivu-ovi
Esko
Серафим
akkuna

以下代码正确打印结果：

<<test1, echo=FALSE, comment=NA>>=
test <- scan(file="test.txt", what="char", sep="\n")
wordlat <- grep("sivu", test, value=T)
print(wordlat)
@

结果如下：

[1] "sivulla"  "sivu-ovi"

但这不是：

<<test2, echo=FALSE, comment=NA>>=
test <- scan(file="test.txt", what="char", sep="\n")
wordcyr <- grep("Серафим", test, value=T)
print(wordcyr)
@

出来的是：

[1] "" ""

我略微修改了发布到GitHub的示例。我只是想在标签上同时使用拉丁语和西里尔语。正如人们所料，将cairo_pdf添加到开头有助于：

<<pie-plot, dev='cairo_pdf'>>=
x <- gl(3, 4, 50, labels=c("Pretty easy!", "Дзик гӧгӧрвотӧм!", "Кувны позьӧ :("))
pie(table(x), main="How difficult is this question")
@

馅饼出来很完美，但显然仍有问题，因为上面的代码说：

x<-gl(3,4,50,labels=c("Pretty easy!"," !","  :("))pie(table(x),main="How difficult is this question")

工作示例：

我现在看到我应该更加注意提供一段可以复制和运行的代码。我为此道歉。所以下面的示例与我原来的帖子相同，但它可以复制到RStudio中，它应该制作一页PDF，它有我描述的问题。很抱歉重复同样的事情，但是如果我开始编辑整个帖子，我可能会更加不清楚我的问题。

\documentclass{article}
\usepackage {fontspec}
\setromanfont{Charis SIL}

\begin{document}

<<setup, include=FALSE>>=
options(device = function(file, width = 7, height = 7, ...) {
cairo_pdf(tempfile(), width = width, height = height, ...)
})
@

So this comes out fine.

<<test1, echo=FALSE, comment=NA>>=
test1 <- c("Серафимлӧн", "тшӧктісны", "налысь", "sivulla", "ёрт", "дугдыны", "sivu-ovi", "Esko", "Серафим", "akkuna")
wordlat <- grep("sivu", test1, value=T)
print(wordlat)
@

But for some reason this doesn't. How to make it show characters correctly, that's the whole question I posted about.

<<test2, echo=FALSE, comment=NA>>=
test2 <- c("Серафимлӧн", "тшӧктісны", "налысь", "sivulla", "ёрт", "дугдыны", "sivu-ovi", "Esko", "Серафим", "akkuna")
wordcyr <- grep("Сера", test2, value=T)
print(wordcyr)
@

The graphical things come out fine with cairo-package, but only within the graph itself:

<<pie-plot, dev='cairo_pdf'>>=
x <- gl(3, 4, 50, labels=c("Pretty easy!", "Дзик гӧгӧрвотӧм!", "Кувны позьӧ :("))
pie(table(x), main="How difficult is this question")
@

The code above the graph in the PDF has the same problem as in earlier example which contained cyrillic:

c("Pretty easy!"," !","  :("))

\end{document}

感谢您的帮助！

R代码输出中的特殊字符未打印成PDF（虽然图形内容很好）

0 个答案: