オリジナルは http://blog.hoxo-m.com/2017/04/10/imager/

library("imager")
u <- "https://raw.githubusercontent.com/dichika/ojisan/master/takayanagi_dj.jpg" #DJタカヤナギ
dj <- load.image(u)
print(dj)
## Image. Width: 960 pix Height: 720 pix Depth: 1 Colour channels: 3
plot(dj, axes = FALSE)