是否可以在R中绘制镜像翻转文本？

Question

我知道文本函数中有str参数;能够绘制镜像字母/字符串对我来说会很好...任何想法？

Answer 1

你可以玩grImport，但它很复杂

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

这是一个基于全能tikzDevice包的解决方案，由此LaTeX处理字符串

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()