Маркировка графиков изображениями на графике в ggplot2

Итак, у меня есть R script, который может создавать график рассеяния с метками каждой точки. Sth вот так:

img1<-"http://blog.gettyimages.com/wp-content/uploads/2013/01/Siberian-Tiger-Running-Through-Snow-Tom-Brakefield-Getty-Images-200353826-001-628x419.jpg"
img2<-"http://blog.gettyimages.com/wp-content/uploads/2013/01/Hurricane-Sandy-Andrew-Burton-Getty-Images-154986556.jpg"
imgdata<-data.frame(c(img1,img2,img1,img2,img1,img2,img1,img2,img1,img2))
colnames(imgdata)<-"images"
txtdata<-data.frame(c("A","B","C","D","E","F","G","H","I","J"))

plotdata<-data.frame(seq(1:10),seq(11:20),txtdata,imgdata)
colnames(plotdata)<-c("var1","var2","texts","images")
ggplot(data=plotdata, aes(plotdata[,1],plotdata[,2])) + 
  geom_point(data=plotdata, aes(plotdata[,1],plotdata[,2])) +
  geom_text(aes(label=plotdata$points,size=2, hjust=2))

Это дает график рассеяния, где каждая точка обозначается как "A", "B", "C"... и т.д.

То, что я хочу сделать, почти то же самое, кроме как вместо текстов, я хочу пометить каждую точку изображением, которое находится в ссылках вектора или фрейма данных (в данном случае в "imgdata" ). Обратите внимание, что я выбрал эти изображения так же, как примеры; У меня их гораздо больше, поэтому я не могу их вручную загрузить.

Ответ 1