能否将ggplot2绘图结果直接传入magick对象，无需磁盘存储？

Absolutely! You don’t need to save ggplot2 plots as PNG files first—you can pipe them straight into magick entirely in memory. This keeps your workspace clean and speeds up the workflow a bit too. Here are two straightforward methods to do this:

Method 1: Use image_graph() to Capture Plots in Sequence #

The image_graph() function from magick creates a temporary graphics device that captures ggplot output directly. You can print your plots to this device, then convert the captured frames into a GIF:

library(ggplot2)
library(magick)

# First, create your ggplot objects as usual
plot1 <- ggplot(mtcars, aes(mpg, wt)) + 
  geom_point(color = "blue") + 
  ggtitle("MPG vs Weight")

plot2 <- ggplot(mtcars, aes(mpg, hp)) + 
  geom_point(color = "red") + 
  ggtitle("MPG vs Horsepower")

plot3 <- ggplot(mtcars, aes(wt, hp)) + 
  geom_point(color = "green") + 
  ggtitle("Weight vs Horsepower")

# Initialize the magick graphics device
# Adjust width/height/res to match your desired output size
graph_device <- image_graph(width = 600, height = 400, res = 96)

# Print each plot to the device—this captures them in memory
print(plot1)
print(plot2)
print(plot3)

# Close the device when done
dev.off()

# Convert the captured frames to an animated GIF
animated_gif <- image_animate(graph_device, fps = 1) # Adjust frames per second as needed

# Optional: Save the final GIF to disk (if you want to keep it)
image_write(animated_gif, "my_animation.gif")

Method 2: Convert Individual ggplot Objects to magick Images #

If you prefer to handle each plot as a separate magick image object first, you can create a helper function to convert ggplot2 plots directly:

# Helper function to turn a ggplot into a magick image
ggplot_to_magick_img <- function(plot, width = 600, height = 400, res = 96) {
  img_device <- image_graph(width = width, height = height, res = res)
  print(plot)
  dev.off()
  return(img_device)
}

# Convert each plot
img1 <- ggplot_to_magick_img(plot1)
img2 <- ggplot_to_magick_img(plot2)
img3 <- ggplot_to_magick_img(plot3)

# Combine images into a GIF
animated_gif <- image_animate(c(img1, img2, img3), fps = 1.5)

# Save the result
image_write(animated_gif, "individual_plots_animation.gif")

How This Works #

Both methods rely on image_graph() which acts as an in-memory canvas for ggplot2 plots. When you print a ggplot to this device, it’s stored as a magick image object instead of being written to disk. You can then manipulate these objects directly to create animations, combine plots, or apply other magick effects.

No more intermediate PNG files cluttering up your folder—clean, efficient, and all in memory!

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