在R中创建风险图

我想用100个“人”组成的10×10网格在R中创建一个风险沟通图。这里有一个很好的例子：

一些简单的数据是：

to.plot = data.frame(id=1:100, dead=rbinom(100, 1, 0.5)) 

---

我不确定你的问题是什么。你能详细谈谈你遇到的问题吗？我的主要问题是如何在R中创建（或导入到R中）悲伤/快乐的脸和/或粘人的图像或符号，这些图像或符号可以着色以显示风险。