使用R语言magick包实现图像圆形裁剪叠加的问题求助

问题背景 #

需要从输入图像2中裁剪出圆形区域，叠加到输入图像1的中心，实现指定的合成效果，但现有代码运行后圆形区域为黑色且带有方形边框，不符合预期。

输入与期望效果 #

• 输入图像1：
  
• 输入图像2：
  
• 期望输出：
  
• 当前错误输出：
  

修正后的代码 #

library(magick)

# 读取两张输入图像
p1 <- image_read("https://i.sstatic.net/uLypl.jpg") 
p2 <- image_read("https://i.sstatic.net/bkd1M.jpg") 

# 获取目标图像（p1）的尺寸信息
p1_info <- image_info(p1)
# 定义缩放比例，控制圆形区域的大小
scale_factor <- 5.48
circle_diameter <- p1_info$width / scale_factor

# 从p2中心裁剪出与圆形直径等大的方形区域
cropped_p2 <- image_crop(p2, geometry = geometry_size_pixels(
  width = circle_diameter, 
  height = circle_diameter, 
  gravity = "center"
))

# 创建圆形蒙版：透明背景上绘制白色圆形
circle_mask <- image_blank(circle_diameter, circle_diameter, color = "transparent") %>%
  image_draw()
symbols(
  x = circle_diameter/2, 
  y = circle_diameter/2, 
  circles = circle_diameter/2, 
  bg = "white", 
  inches = FALSE, 
  add = TRUE
)
dev.off()

# 利用蒙版将裁剪后的p2转为圆形透明图像
circular_p2 <- image_composite(cropped_p2, circle_mask, operator = "copyopacity")

# 将圆形图像叠加到p1的中心位置
final_result <- image_composite(p1, circular_p2, gravity = "center")

# 缩放预览结果
final_result %>% image_scale("20%")

关键修正说明 #

• 蒙版逻辑调整：放弃原代码的minus操作，改用copyopacity运算符，通过白色圆形蒙版保留p2的原图像颜色，仅让圆形外区域变为透明，避免黑色圆形问题。
• 透明背景处理：创建蒙版时使用透明背景的空白图像，确保圆形外区域完全透明，消除方形边框。
• 简化流程：移除不必要的image_background步骤，直接保留原图像色彩，通过蒙版精准控制显示区域。

内容的提问来源于stack exchange，提问作者Thomas