R/hex_sticker.R

In ffp: Fully Flexible Probabilities for Stress Testing and Portfolio Construction

# library(ggplot2)
# library(ffp)
# p <- autoplot(exp_decay(EuStockMarkets, 0.001), color = TRUE) +
#   labs(x= NULL, y = NULL) +
#   scale_color_viridis_c(option = "C") +
#   theme(axis.text.y = ggplot2::element_blank(), axis.ticks.y = ggplot2::element_blank(),
#         axis.text.x = ggplot2::element_blank(), axis.ticks.x = ggplot2::element_blank(),
#         panel.background = element_blank())
#
# hexSticker::sticker(p,
#                     package = "Fully Flexible Probabilities",
#                     p_family = "open_sans",
#                     p_size = 10, s_x = 1, s_y = 0.8, s_width = 1, s_height = 1,
#                     h_color = "steelblue",
#                     h_fill = "white",
#                     p_color = "black",
#                     filename = "man/figures/ffp_sticker.png")