当x轴是离散变量时，在geom_boxplot中注释.png图形

Question

我想在ggplot中的geom_box图中注释小的.png图形。 例如，使用数据集：

diam <- dplyr::select(diamonds, cut, price)
ggplot(diam, aes(x= cut, y= price, color= cut))+
  geom_boxplot()

所以问题是：
1）如何从本地文件上传数字；
2）当x轴是离散变量时，如何定义这五个图形的位置。
谢谢。