How to add a border to a rectangular rasterGrob in ggplot2?

Question

I\'m trying to add a border to a rectangular png image (found here) I\'ve added to a ggplot, with positioning specified using npc.

library(png)
library(grid)