我目前正在尝试使用“draw_image”函数显示一些 PNG。更准确地说，这些是某些表情符号。

当我通过 draw_image 加载 PNG 时，不幸的是它们被扭曲了，所以表情符号看起来像这样：

当然，表情符号应该看起来更像这样：

很遗憾，我的测试解决方案目前没有达到我的目标。例如，我已经尝试通过降低高度或增加宽度来手动调整图片大小。不幸的是没有成功。

如果你们中的任何人发现我的代码中的错误（文章结尾）或者有其他解决方案，我将不胜感激！

谢谢你，祝你周日愉快！

代码：

bg <-
  image_read(paste("randomimage.png",sep = ""))%>%
  image_resize("1748x2480!")

dx <- ggdraw() +
  draw_image(bg) +
  draw_image(Emoji3,width = 1,height = 1,scale = 0.04)+
  draw_image(Emoji2,scale = 0.04)+
  draw_image(Emoji1,scale = 0.04)
grid.arrange(dx)

ggsave(path = "xxx",filename = paste("randomname.png",sep = ""),dx,width = 210,height = 297,units = "mm",dpi = 100)