如何将图片附加到ggplot？

Question

我试图将图片（png文件）附加到ggplot2中的geom_line图。我正在使用的方法是：

Data<-read.csv("file.csv",check.names=FALSE)
Pic<-readPNG("pick.png")
PicGrob<-rasterGrob(Pic,interpolate=TRUE)


ggplot(Data,aes(x=`Xdata`,y=value))+annotation_custom(PicGrob,ymin=75,xmin = 1)+
geom_line(aes(y=`Value1`,col="Value1"))+geom_line(aes(y=`Value2`,col="Value2"))+ 
theme(legend.background = element_rect(colour = "black"), legend.position=c(0.8,0.7))+ 
ggtitle("GGtitle")+ylab("Ylabel")

输入后会出现以下错误：

>Error in eval(expr, envir, enclos) : object 'value' not foundError in eval(expr, envir, enclos) : object 'value' not found

如果省略annotation_custom(PicGrob,ymin=75,xmin = 1)，情节可以正常工作。

（加载包ggplot2，png和网格）