[R Sweave] Cyrillic characters in plots

[artemklevtsov]

Hi.

I was faced with the fact that when create a PDF cyrillic characters not is processed. Simple example:

\documentclass[russian]{article}
\usepackage[T2A]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage[russian]{babel}

\begin{document}

<<"setup", include=FALSE>>=
options(width=65, digits=2)
pdf.options(encoding = "Cyrillic")
@
<<"pie-plot">>=
x <- gl(3, 4, 50, labels=c("Высшее", "Среднее", "Ср.-тех."))
pie(table(x), main="Образование")
@

\end{document}

When I try generate PDF from RStudio I get following ouput:

> grDevices::pdf.options(useDingbats = FALSE); require(knitr); opts_knit$set(concordance = TRUE); knit('111.Rnw')
Loading required package: knitr


processing file: 111.Rnw
  |>>>>>>>>>>>>>                                                    |  20%
  ordinary text without R code

  |>>>>>>>>>>>>>>>>>>>>>>>>>>                                       |  40%
label: setup (with options) 
List of 1
 $ include: logi FALSE

  |>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>                          |  60%
  ordinary text without R code

  |>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>             |  80%
label: pie-plot
Warning in replayPlot(x) : font width unknown for character 0xb2
Warning in replayPlot(x) : font metrics unknown for character 0xb2
Warning in replayPlot(x) : font metrics unknown for character 0xeb
Warning in replayPlot(x) : font metrics unknown for character 0xe1
Warning in replayPlot(x) : font metrics unknown for character 0xe8
Warning in replayPlot(x) : font metrics unknown for character 0xd5
Warning in replayPlot(x) : font metrics unknown for character 0xd5
Warning in replayPlot(x) : font width unknown for character 0xc1
Warning in replayPlot(x) : font metrics unknown for character 0xc1
Warning in replayPlot(x) : font metrics unknown for character 0xe0
Warning in replayPlot(x) : font metrics unknown for character 0xd5
Warning in replayPlot(x) : font metrics unknown for character 0xd4
Warning in replayPlot(x) : font metrics unknown for character 0xdd
Warning in replayPlot(x) : font metrics unknown for character 0xd5
Warning in replayPlot(x) : font metrics unknown for character 0xd5
Warning in replayPlot(x) : font width unknown for character 0xc1
Warning in replayPlot(x) : font metrics unknown for character 0xc1
Warning in replayPlot(x) : font metrics unknown for character 0xe0
Warning in replayPlot(x) : font metrics unknown for character 0xe2
Warning in replayPlot(x) : font metrics unknown for character 0xd5
Warning in replayPlot(x) : font metrics unknown for character 0xe5
Warning in replayPlot(x) : font width unknown for character 0xbe
Warning in replayPlot(x) : font width unknown for character 0x9e
Warning in replayPlot(x) : font width unknown for character 0xe9
Warning in replayPlot(x) : font width unknown for character 0x1
  |>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>| 100%
  ordinary text without R code


output file: /tmp/111.tex

[1] "111.tex"
> 
> 
Running pdflatex on 111.tex...completed

Created PDF: /tmp/111.pdf

Issues: 1 badbox

For post it I launch RStudio with LANG=C rstudio command. My default sessionInfo():

> sessionInfo()
R version 2.15.2 (2012-10-26)
Platform: x86_64-unknown-linux-gnu (64-bit)

locale:
 [1] LC_CTYPE=ru_RU.UTF-8       LC_NUMERIC=C               LC_TIME=ru_RU.UTF-8       
 [4] LC_COLLATE=C               LC_MONETARY=ru_RU.UTF-8    LC_MESSAGES=ru_RU.UTF-8   
 [7] LC_PAPER=C                 LC_NAME=C                  LC_ADDRESS=C              
[10] LC_TELEPHONE=C             LC_MEASUREMENT=ru_RU.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

loaded via a namespace (and not attached):
[1] Rcpp_0.10.1  tools_2.15.2
> packageVersion("knitr")
[1] ‘0.9’

Rnw file in UTF-8 encoding. My system locale is:

locale
LANG=ru_RU.UTF-8
LC_CTYPE="ru_RU.UTF-8"
LC_NUMERIC="ru_RU.UTF-8"
LC_TIME="ru_RU.UTF-8"
LC_COLLATE=C
LC_MONETARY="ru_RU.UTF-8"
LC_MESSAGES="ru_RU.UTF-8"
LC_PAPER="ru_RU.UTF-8"
LC_NAME="ru_RU.UTF-8"
LC_ADDRESS="ru_RU.UTF-8"
LC_TELEPHONE="ru_RU.UTF-8"
LC_MEASUREMENT="ru_RU.UTF-8"
LC_IDENTIFICATION="ru_RU.UTF-8"
LC_ALL=

Enter this commands in RStudio console give a fine results.

x <- gl(3, 4, 50, labels=c("Высшее", "Среднее", "Ср.-тех."))
pie(table(x), main="Образование")

Thanks.

Results:

[yihui]

Search for Encoding and read that section in this page: http://yihui.name/knitr/demo/graphics/

I guess the encoding should be CP1251. Please let me know if it works.

[artemklevtsov]

Windows encoding under Linux? Ok, i tried that and it not work.
Workground solution is use dev="png" ("cairo_pdf" seems also works), but i get some warnings (I use warnings=FALSE to supresss that).

[artemklevtsov]

I tried following code with various encodings without positive results.

pdf("/tmp/graph.pdf", encoding="CP1251")
x <- gl(3, 4, 50, labels=c("Высшее", "Среднее", "Ср.-тех."))
pie(table(x), main="Образование")
dev.off()

Seems this is not knitr bug.
But

cairo_pdf("/tmp/graph.pdf")
x <- gl(3, 4, 50, labels=c("Высшее", "Среднее", "Ср.-тех."))
pie(table(x), main="Образование")
dev.off()

works fine.

Why knitr try processing the symbols when I set dev="png"?

[yihui]

Because kntir records plots using the pdf() device, then redraw the plots using the device specified in the chunk option.

Since cairo_pdf() works better, you can try this:

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

<<cyrillic, dev='cairo_pdf'>>=
x <- gl(3, 4, 50, labels=c("Высшее", "Среднее", "Ср.-тех."))
pie(table(x), main="Образование")
@

[gasyoun]

Sorry for intruding - but what does the "grouping" of Russian letters mean in a plot?

[yihui]

@gasyoun Sorry I have no idea.

[artemklevtsov]

@gasyoun It should work:

<<include = FALSE>>=
options(device = "cairo_pdf")
@

<<echo=FALSE>>=
plot(data = cars, xlab = "Скорость", ylab = "Дистанция")
@

Note: you should define device option before a building plot chunk.

[domq]

Using Cairo to render Cyrillic doesn't work in recent versions of R anymore. Go back to the PNG driver for these.

[github-actions]

This old thread has been automatically locked. If you think you have found something related to this, please open a new issue by following the issue guide (https://yihui.org/issue/), and link to this old issue if necessary.