可以在R中打印镜像翻转的文本吗？

我知道文本函数中有str参数；如果我也能画出镜像的字母/字符串，那就太好了。。。有什么想法吗？

你可以和格里姆波特一起玩，但这很复杂

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)

库（grImport）
猫（“%！PS
/泰晤士报
100磅
setfont
新路径
0 0移动到
-1 1比例尺
（hello）show“，file=“hello.ps”）
PostScriptTrace（“hello.ps”、“hello.xml”）
hello这是一个基于功能强大的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()

我认为不容易。。。您可能会将文本写成图像，使用ImageMagick将其翻转，然后将图像文件读回…大多数字母都有相应的unicode反向表示。结果发现，每个字母的替代unicode字符将是一个挑战，但这可能比破解镜像更容易。。。。看见不过它很难看。如果您愿意，您可以查看源代码以及对应表（并在R中重新实现功能…），但使用大量对称大写字母和其他临时替换非常难看/不令人满意：uoʜuoʜ410; uyƚuqƨI.bɿoɿim Iƚx᝴uyƚIʜ，你为什么不把它用于这些目的呢？