Drawing shot location on an ice rink using images() inside layout()

Plotly R, MATLAB, Julia, Net Plotly R
1

I have this example dataset, df

structure(list(game_date = structure(c(17689, 17689, 17689, 17689, 
17689), class = "Date"), event_team = c("WSH", "WSH", "WSH", 
"VGK", "VGK"), event_description = c("WSH ONGOAL - #8 OVECHKIN, Deflected, Off. Zone, 10 ft. Expected Goal Prob: 25.7%", 
"WSH ONGOAL - #8 OVECHKIN, Wrist, Off. Zone, 38 ft. Expected Goal Prob: 4.9%", 
"WSH ONGOAL - #29 DJOOS, Wrist, Off. Zone, 65 ft. Expected Goal Prob: 1%", 
"VGK ONGOAL - #5 ENGELLAND, Wrist, Off. Zone, 38 ft. Expected Goal Prob: 1.5%", 
"VGK ONGOAL - #88 SCHMIDT, Wrist, Off. Zone, 62 ft. Expected Goal Prob: 1.3%"
), event_type = c(0, 0, 0, 0, 0), home_team = c("VGK", "VGK", 
"VGK", "VGK", "VGK"), away_team = c("WSH", "WSH", "WSH", "WSH", 
"WSH"), coords_x = c(-80, -53, -31, 56, 34), coords_y = c(1, 
-14, 30, -17, -26)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-5L))

I try to plot shot location points on top of an ice rink using the below code

df %>% 
  plot_ly(x = ~coords_x, y=~coords_y, 
          text= ~event_description)  %>% 
  add_markers(size = ~event_type,
              sizes = c(150, 700),
              
              alpha = 0.75,
              color = ~factor(event_team),
              colors = c("black", "slategrey")
  ) %>%
  layout(
    xaxis = list(range = c(-100,100)), 
    yaxis = list(range = c(-45,45)),
    images= list(
      list(
        source= "https://i.imgur.com/Y2kOUX5.png",
        xref= "paper",
        yref= "paper",
        x= 0,
        y= 1,
        sizex= 1,
        sizey= 1,
        opacity= 0.8,
        layer = "below")
      
    )
  )

Unfortunately, the ice rink is misplaced (the coordinates of x,y axis do not align with the ice rink):

54%20PM

I’m not sure what I’m doing wrong…but I have a feeling that changing those x,y, xref, yref parameters have something to do with it…Help!