library(magick)

path <- '.../the_office.jpg'
mick <- image_read(path) ; print(mick)

text <- 'Which Michael Scott are you today?'
image_annotate(mick, text,
               size=45, color='white', location='+25+450')