Czy można wydrukować tekst z odwróconym lustrem w R?

Question

Wiem, że istnieje argument str w funkcji tekstu; Byłoby mi miło, żebym był w stanie wykreślić również lustrzane litery/smyczki ... Jakiś pomysł?

Answer 1

Można grać z grImport, ale to raczej zawiłe

library(grImport) 

cat("%!PS 
/Times-Roman findfont 
100 scalefont 
setfont 
newpath 
0 0 moveto 
-1 1 scale 
(hello) show", file="hello.ps") 

PostScriptTrace("hello.ps", "hello.xml") 
hello <- readPicture("hello.xml") 
grid.newpage() 
grid.picture(hello) 

Answer 2

Oto rozwiązanie oparte na wszechpotężnego pakietu tikzDevice, przy czym LaTeX przetwarza ciągi

library(tikzDevice) 

tikz("mirror.tex", standAlone = TRUE, height=2,width=4) 
plot(1,1, xlab="\\reflectbox{Otto and Hannah mostly won't care}") 
dev.off()