ggplot2：将透明背景PNG徽标导入R

Question

无法从桌面插入PNG徽标并将其与下面的ggplot图表集成。我在Windows平台上看到有使用raster的问题，但不能确定是否是这种情况。

   library(png)
    library(grid)
    library(ggplot2) 
    library(reshape2)

    img <- readPNG(system.file("img", "Rlogo.png", package="png"))
    g <- rasterGrob(img, interpolate=TRUE)

    df <- melt(economics[, c("date", "psavert", "uempmed")], id="date")

    ggplot(df, aes(x = date, y = value)) +
          geom_line(aes(color = variable), size=1) +
          scale_color_manual(values = c("#999999", "#E69F00")) +
          theme_minimal() +
          annotation_custom(g, xmin=as.numeric(as.Date("1980-01-01")), xmax=as.numeric(as.Date("1990-01-01")), ymin=-Inf, ymax=5)

另外，我导入了我的徽标，但图像只是一个黑盒子或一个白色的盒子而没有显示徽标。我该如何解决这个问题？我检查确保logo.PNG未加密或受保护。感谢您的时间。