也许不是你要找的，但是如果你已经得到了图像，并且想在ggplot中重现它，那么你可以使用下面的方法：

library(tidyverse)
library(magick)
library(terra)

# read image
im <- image_read("./data/kiss_1.png")
# conver to black/white image
im2 <- im %>%
  image_quantize(
    max = 2,
    colorspace = "gray" )
# get a matrix of the pixel-colors
m <- as.raster(im2) %>% as.matrix()
# extract coordinates of the black pixels
df <- as.data.frame(which(m == "#000000ff", arr.ind=TRUE))
df$row <- df$row * -1
# plot point
ggplot(df, aes(x = col, y = row)) + geom_point()