Label design
The layer options can change dynamically based in a column. In the
following example the color of the text will change based in the
treatments: “blue” for irrigated and “red” for
drought.
You can find more fonts in https://fonts.google.com/
library(huito)
font <- c("Permanent Marker", "Tillana", "Courgette")
huito_fonts(font)
label <- fb %>%
mutate(color = case_when(
condition %in% "irrigated" ~ "blue"
, condition %in% "drought" ~ "red"
)) %>%
label_layout(size = c(10, 2.5)
, border_color = "blue"
) %>%
include_image(
value = "https://flavjack.github.io/inti/img/inkaverse.png"
, size = c(2.4, 2.4)
, position = c(1.2, 1.25)
, opts = "image_scale(200)"
) %>%
include_barcode(
value = "barcode"
, size = c(2.5, 2.5)
, position = c(8.2, 1.25)
) %>%
include_text(value = "Inkaverse"
, position = c(4.6, 2)
, size = 25
, color = "brown"
, font[1]
) %>%
include_text(value = "condition"
, position = c(4.6, 1.2)
, size = 18
, color = "color" # dynamic column
, font[2]
) %>%
include_text(value = "genotypes"
, position = c(4.6, 0.5)
, size = 12
, color = "#009966"
, font[3]
) %>%
include_text(value = "plots"
, position = c(9.7, 1.25)
, angle = 90
, size = 15
, color = "red"
, font[1]
) You should comment huito_fonts() after the first running
as we already imported the fonts.
Preview mode
The preview mode label_print(mode = "preview") generate
a example of the label design from a random row of the data set.
