rmagick-r-package
magick annotate picture with arrows
I need to add a arrow to a picture. Currently I'm using the code below but I want to make the arrow longer.
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")
Solution
Increase the size should do it
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")
Created on 2018-06-05 by the reprex package (v0.2.0).
- How to add line breaks to plotly hover labels
- Test whether one factor is nested in another
- Import jmp file into r
- Subset scale_fill_gradient by factor OR add density gradient within count bars of histogram by factor
- How to manage an ordered factor with the functions lubridate () and month() to set time components because they can't read them in R
- Functional programming with dplyr: column_to_rownames() inside function
- How to find the statistical mode?
- tag many-to-many relationship when using left_join in dplyr
- easiest way to discretize continuous scales for ggplot2 color scales?
- extracting the required columns from a data.table with given conditions
- Generating input in the server side of Shiny
- Downloading Sentinel 2 with rsat package in R produces error "argument "espa_orders" is missing, with no default"
- cannot install R tseries, quadprog ,xts packages in Linux
- Print vector name with vector value iteratively in R
- Calculating NDVI in parallel using `lapp()` within `foreach()`
- Plot interaction effect in sem model with observed variables in R
- grepl in multiple columns in R
- Replace variables in a formula with their definitions
- How to count the frequency of values per month so they are in the right order (Jan to Dec) over multiple years
- Easy way to export multiple data.frame to multiple Excel worksheets
- How can I list files in a folder based on version number?
- Can I calculate the standard error of all columns with the "summarise_all" function in R dplyr
- Why aren't stratum sample sizes maintained using rsample bootstraps?
- Creating a Vertical Calendar
- No visible global function definition/no visible binding for global variable in a project?
- Is there a weighted.median() function?
- How many NAs do we have rowwise before the first numerical value in a dataframe?
- Justify multiline text in ggplot2 - title, subtitle, caption, geom_text() etc
- Horizontal scroll overflow works only when vertical scroll overflow is not active
- Create a variable that increases by one in every row but resets based on condition