プロットを画像にする

Question

install.packages("ggpubr")

library("ggplot2")
library("ggimage")
library(tidyverse)
library(jpeg)
library(ggpubr)

## Warning: パッケージ 'tidyverse' はバージョン 3.5.3 の R の下で造られました
## -- Attaching packages --------------------------------------- tidyverse 1.2.1 --
## √ ggplot2 3.1.0     √ purrr   0.2.5
## √ tibble  2.1.3     √ dplyr   0.8.5
## √ tidyr   1.0.0     √ stringr 1.3.1
## √ readr   1.2.1     √ forcats 0.3.0
## Warning: パッケージ 'ggplot2' はバージョン 3.5.1 の R の下で造られました
## Warning: パッケージ 'tibble' はバージョン 3.5.3 の R の下で造られました
## Warning: パッケージ 'tidyr' はバージョン 3.5.3 の R の下で造られました
## Warning: パッケージ 'readr' はバージョン 3.5.1 の R の下で造られました
## Warning: パッケージ 'dplyr' はバージョン 3.5.3 の R の下で造られました
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
reset_df <- function(){
  df <- tibble(
    v0      = 100,         #initial velocity
    theta   = 1.4,         #angle in radians
    gravity = 5,           #this is just picked for the sclale
    adj     = 0,           #used in the bouncing effect
    decay   = 0.8,         #the bounciness of the ball
    color   = "black", #color of the ball
    cex     = 30,           #size of the ball
    pch = "a"
    t       = 0,           #time position of this ball
    xpos    = 0,           #current x position (will be updated)
    ypos    = 0,           #current y position (will be updated)
  )
 return(df) 
}

img <- readPNG("1.png")
ball <- readPNG("e.png")

generate_picture <- function(df, xrange = 1200, yrange = 900){

  range_xy_ratio <- xrange/yrange
  
  gg <- ggplot(df) + 
    background_image(img) +
    geom_point(aes(x = xpos, y = ypos, color = color, size = cex)) +
    labs(x = NULL, y = NULL) +
    scale_x_continuous(breaks = NULL, minor_breaks = NULL) +
    scale_y_continuous(breaks = NULL, minor_breaks = NULL) +
    theme(legend.position = "none", 
          panel.background = element_rect(fill = "transparent", colour = NA)) +
    coord_cartesian(xlim = c(0,xrange), ylim = c(0,yrange))
    
  return(gg)
}


generate_picture(df)

df <- reset_df()

simulate_ball <- function(df, time_lapse=0.3){
  #new t value
  df <- df %>% mutate(t = t + time_lapse)
  
  #calculate new position
  df <- df %>% 
    mutate(
      ypos = v0 * t * sin(theta) - (gravity * t^2),
      xpos = v0 * t * cos(theta) + adj
    )
  
  # check for anything bouncing
  for (x in seq(nrow(df))) {
      if (df$ypos[x] < 0) {
          # reset the bounce
          df$adj[x] <- df$xpos[x]
          df$v0[x] <- df$v0[x] * df$decay[x]
          df$t[x] <- -time_lapse
      }
  }
  # if stuck, settle it.
  df$v0 <- ifelse(df$v0 < 0.01, 0, df$v0)
  df$t <- df$t + time_lapse
  
  return(df)
}

for(i in 1:5){
  print(i)
  df <- df %>% simulate_ball(.,time_lapse = 0.3)
  generate_picture(df) %>% print()
}

av::av_capture_graphics(expr = {
  df <- reset_df()
  for(i in 1:100){
    print(i)
    df <- df %>% simulate_ball(.,time_lapse = 0.3)
    generate_picture(df) %>% print()
  }
}, output = "test2.gif", framerate = 40)

この跳ねるボールですが、ボールを画像（ball）にするにはどうするのでしょうか？？教えて下さい、一応、
https://www.karada-good.net/analyticsr/r-570
このサイトに以下のように、画像をプロットする方法があるのですが、どう融合させれば良いのか分かりません。

#パッケージの読み込み
library("ggimage")
library("ggplot2")
 
###データ例の作成#####
n <- 15
TestData <- data.frame("Group" = sample(paste0("Group", 1:5), n, replace = TRUE),
                       "x" = sample(c(1:100), n, replace = TRUE),
                       "y" = sample(c(1:200), n, replace = TRUE))
 
########
 
#aesオプションで位置も指定できるgeom_imageコマンド
#画像はimageオプションに指定する
#画像URLを指定,例:からだにいいものバナー
img <- "https://www.karada-good.net/wp/wp-content/uploads/2017/02/71a12352149ee8527b2463b5e524b24c.jpg"
#例1
ggplot(TestData, aes(x, y)) +
  geom_image(image = img, size = .5, na.rm = FALSE)
#例2
ggplot(TestData, aes(x, y)) +
  geom_boxplot() +
  geom_image(aes(x = mean(TestData[, 2]), y = mean(TestData[, 3])),
             image = img, size = .8, na.rm = FALSE)

Answer 1

※すいません、質問の意図を誤って認識しておりました。
回答として無意味なものですので無視いただければと思います。

以下ご認識回答

簡単に見ただけですが、参考にされているサイトは「画像を出力する方法」ではなく、プロットエリアに画像をプロット（出力）するだけに見えます。

目的はggplot()によってプロットされたものを画像化（.jpegや.pngなど）する、というものでよろしいでしょうか。

generate_picture関数のreturn(gg)の前に以下を記載してはいかがでしょうか。

ggsave(file = "ball.png", plot = gg)

詳しくはggsave()で調べてみてください。画像の大きさを指定して保存することができたりします。