R 从原点到某一点绘制箭头

是否可以在plotly中创建箭头？我试着画方向图，我做的变通方法是画一条直线，这和箭头不同

基本上，我有一个数据框，并希望为数据框中的每一组点创建一个从原点轴（0,0）到数据框中的点的箭头

library(plotly)    
# Create a dataframe with a named point
df <- data.frame(x = 2, y = 2)
row.names(df) <- "individual A"

plot_ly() %>% 
add_annotations(x = df$x, y = df$y, text = row.names(df))

library（plotly）
#创建具有命名点的数据帧
除了“x”、“y”之外，还可以使用“ax”和“ay”，以便定义箭头两端的坐标

library(plotly)    
# Create a dataframe with a named point
df <- data.frame(x = 2, y = 2)
row.names(df) <- "individual A"

plot_ly() %>% 
  add_annotations(ax = 0, ay = 0, axref='x', ayref='y', x = df$x, y = df$y, xref='x', yref='y', text = row.names(df))

library（plotly）
#创建具有命名点的数据帧
ggplot2中的df geom_段本来不错，但箭头在转换为plotly（使用ggplotly）图形后丢失。