library(tidyverse)
library(openxlsx)
wb.df1 <- loadWorkbook(file = "./data/crackers.xlsx")
img <- "./images/crackers21-25a.png"
insertImage(wb=wb.df1, sheet="crackers", img, 
            startRow = 3, startCol = 5, 
            width = 4, height = 3)
saveWorkbook(wb=wb.df1, "scatterplot1.xlsx",
             overwrite = TRUE)