Plot images as points

ggimage_demo.R

if (!require("pacman")) install.packages("pacman")
pacman::p_load(ggimage)


presidential_icons <- data.frame(
    x = c(15, 30),
    y = c(2.5, 4.5),
    name = c('trump', 'obama'),
    image = c(
            'http://www.stickpng.com/assets/images/5841c17aa6515b1e0ad75aa1.png',
            'http://www.stickpng.com/assets/images/580b57fbd9996e24bc43be4e.png'
        ),
    size = c(.15, .2)
)

ggplot2::ggplot(mtcars, aes(mpg, wt)) +
    ggplot2::geom_point(aes(color = cyl)) +
    ggimage::geom_image(data = presidential_icons, aes(x = x, y = y, image = image, size = size)) +
    scale_size(range = c(.15, .2))