Use image_flatten() or image_mosaic() to overlap image over another to create new image or picture.
Syntax: image_flatten(imgs) or image_mosaic(imgs)
Ex:
library(magick)
img = image_read("C:\\Users\\Cherukuri_Sindhu\\Downloads\\teams.jpg")
nba = image_read("C:\\Users\\Cherukuri_Sindhu\\Downloads\\teams.jpg")
nba = image_border(image_scale(image_scale(img,"200"),"x200"),color = "black","10x8")
img_flat = image_flatten(c(img,nba))
img_mos = image_mosaic(c(nba,img))
img_flat
img_mos