магия комментирует картинку со стрелками - PullRequest
Новая
       12

магия комментирует картинку со стрелками

0 голосов
/ 05 июня 2018

Мне нужно добавить стрелку на картинку.В настоящее время я использую код ниже, но я хочу сделать стрелку длиннее.

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")

enter image description here

1 Ответ

0 голосов
/ 05 июня 2018

Увеличение size должно сделать это 

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

tiger  %>%
  image_annotate(., "Tiger's mouth", size = 20, color = "red",
                 boxcolor = "gold", degrees = 00, location = "+250+250", 
                 font = 'Times') %>% 
  image_annotate( sprintf('\u2191'), size = 50, color = "blue",
                  boxcolor = "transparent", degrees = 270, location = "+190+275")

image

Created on 2018-06-05 by the Представить пакет (v0.2.0).

...