R用unicode符号而不是条形图制作条形图

Question

我想绘制一个（某种）条形图，但我想使用 unicode 符号而不是使用条形图。这可能吗？

我知道如何使用 unicode 字符作为符号（点）；例如：

plot(1,1,pch=-0x0001F3E2, cex=5, col="gray30")

但是如何让符号代替条形呢？

编辑：
正如 Eric 所建议的，我将尝试编写一个最小的可重现示例...

给定变量 x：

x <- c(2,3,4,2,1)
barplot(x)

我想使用自定义符号而不是条形来生成条形图。比如：

plot(1:5,rep(0,5),pch=-0x0001F3E2, cex=x, col="gray30")

问题是我无法像处理文本那样垂直对齐符号：

plot(1:5,rep(0,5),type="n", ylim=c(0,1),bty="n")
text(1:5,0,"A",cex=c(2,5,3,3,1),adj=c(0.6,0))

所以，我的问题的一种解决方案虽然不理想，但使用 一些带有额外字体包的自定义系统字体。

例如，使用字体“Destiny's Little Houses” (http://www.dafont.com/destiny-little-hous.font) 我可以制作一些漂亮的信息图表：

plot(1:5,rep(0,5),type="n",ylim=c(0,1),bty="n")
text(1:5,0.1,"A",cex=c(2,5,3,3,1),adj=c(0.6,0),family="Destiny's Little Houses")

所以，我有一个图像，其大小根据某个变量（使用“cex”）而变化，而不是条形图。

这并不理想，首先因为我希望能够导入任何图像（例如使用 png 包）。

那么，有没有可能：

1. 导入图像文件并将其用作绘图中的符号（而不是使用 pch 的可用符号之一）？
2. 垂直对齐符号以便获得一种自定义条形图？

谢谢 安东尼奥

Answer 1

这是一个有点骇人听闻的开始（可能没有帮助，因为我不知道您的数据是什么样的）。

counts <- table(mtcars$gear)
foo <- barplot(counts, col = c("white", "white", "white"), border=c("white"), axes=F, xaxt="n") 
points(foo, counts-.5, pch = -0x0001F3E2, cex=2, pos=3)

删除 , axes=F, xaxt="n" 以获取标签和轴。