Chèn hình ảnh vào ggplot2

Question

Có thể chèn hình ảnh raster hoặc hình ảnh pdf bên dưới geom_line() trên lô đất ggplot2 không?

Tôi muốn có thể nhanh chóng vẽ dữ liệu trên một lô được tính toán trước đó, mất nhiều thời gian để tạo ra vì nó sử dụng một lượng lớn dữ liệu.

Tôi đọc qua số example này. Tuy nhiên, vì nó đã hơn một tuổi, tôi nghĩ có thể có một cách khác để làm điều này ngay bây giờ.

Answer 1

thử ?annotation_custom trong ggplot2

dụ,

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

qplot(1:10, 1:10, geom="blank") + 
    annotation_custom(g, xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf) + 
    geom_point() 

Answer 2

Chỉ cần thêm một bản cập nhật từ các gói Magick tuyệt vời:

library(ggplot2) 
library(magick) 
library(here) # For making the script run without a wd 
library(magrittr) # For piping the logo 

# Make a simple plot and save it 
ggplot(mpg, aes(displ, hwy, colour = class)) + 
    geom_point() + 
    ggtitle("Cars") + 
    ggsave(filename = paste0(here("/"), last_plot()$labels$title, ".png"), 
     width = 5, height = 4, dpi = 300) 

# Call back the plot 
plot <- image_read(paste0(here("/"), "Cars.png")) 
# And bring in a logo 
logo_raw <- image_read("http://hexb.in/hexagons/ggplot2.png") 

# Scale down the logo and give it a border and annotation 
# This is the cool part because you can do a lot to the image/logo before adding it 
logo <- logo_raw %>% 
    image_scale("100") %>% 
    image_background("grey", flatten = TRUE) %>% 
    image_border("grey", "600x10") %>% 
    image_annotate("Powered By R", color = "white", size = 30, 
       location = "+10+50", gravity = "northeast") 

# Stack them on top of each other 
final_plot <- image_append(image_scale(c(plot, logo), "500"), stack = TRUE) 
# And overwrite the plot without a logo 
image_write(final_plot, paste0(here("/"), last_plot()$labels$title, ".png"))