imname <- system.file('extdata/parrots.png',package='imager')
im <- load.image(imname)
boats.small <- imresize(boats,.5)
#I'm aware the result is somewhat ugly
imdraw(im,boats.small,x=400,y=10,opacity=.7) %>% plot
Run the code above in your browser using DataLab