Adding directional lines from images in the legend to plots

Not able to figure out how to add lines from images in the legend to the related plots

   data <- iris

   plot <- ggplot(data, aes(Sepal.Length, Sepal.Width, col = Species)) +
   geom_point() +
   facet_wrap( ~ Species) +
   theme(legend.position = "bottom")


   Species <- axis_canvas(plot, axis = 'x') +
   cowplot::draw_image('setosa.png', x = 0.5, scale = 0.5) +
   cowplot::draw_image('versicolor.png', x = 1.5, scale = 0.5) +
   cowplot::draw_image('virginica.png', x = 2.5, scale = 0.5)

  images <-
  ggdraw(insert_xaxis_grob(plot, Species, position = "bottom"))

Plot with lines from legend to plot

How many English words
do you know?
Test your English vocabulary size, and measure
how many words do you know
Online Test
Powered by Examplum