R magick用箭头注释图片

我需要在图片上加一个箭头。目前，我正在使用下面的代码，但我想使箭头更长

library(magick)
tiger <- image_read_svg('http://jeroen.github.io/images/tiger.svg', width = 400)
print(tiger)

tiger  %>%
  image_annotate(., "Tiger's mouth", size = 15, color = "red",
  boxcolor = "gold", degrees = 00, location = "+196+250", font = 'Times') %>% 
  image_annotate( sprintf('\u2191'), size = 15, color = "red",
  boxcolor = "gold", degrees = 270, location = "+180+265")

库（magick）
老虎%
图像注释（，“虎口”，尺寸=15，颜色=“红色”，
boxcolor=“gold”，度数=00，位置=“+196+250”，字体='Times'）%>%
图像注释（sprintf（'\u2191'），大小=15，color=“red”，
boxcolor=“金色”，度数=270，位置=“+180+265”）

---

增加

大小

即可

库（magick）
老虎%
图像注释（，“虎口”，尺寸=20，颜色=“红色”，
boxcolor=“gold”，度数=00，位置=“+250+250”，
字体='Times'）%>%
图像注释（sprintf（'\u2191'），大小=50，color=“blue”，
boxcolor=“透明”，度数=270，位置=“+190+275”）

由（v0.2.0）于2018年6月5日创建