data-raw/sticker.R

In trackerproject/trackeR: Infrastructure for Running, Cycling and Swimming Data from GPS-Enabled Tracking Devices

library("hexSticker")
library("png")
library("grid")
library("ggplot2")





"#FF94B7"
"#FFB32F"
"#B6D000"
"#00E380"
"#00E6E6"
"#28CFFF"
"#F3A2FF"


g2 <- readPNG(system.file("icons", "man-running.png", package = "trackeRapp"))
g2 <- matrix(rgb(g2[,,1], g2[,,2], g2[,,3], g2[,,4] * 0.5), nrow = dim(g2)[1])
g2 <- rasterGrob(g2, interpolate = TRUE)

gg <- qplot(c(2, 3), c(2, 3.2), geom = "blank") +
    annotation_custom(g2, xmin = 2, xmax = 3, ymin = 2, ymax = 2.9) +
    geom_text(aes(x = 2.68, y = 3.07, label = "app", vjust = 0, hjust = 0), color = "white", size = 5) +
    theme_minimal() +
    theme(axis.title.x = element_blank(),
          axis.text.x = element_blank(),
          axis.ticks.x = element_blank(),
          axis.title.y = element_blank(),
          axis.text.y = element_blank(),
          axis.ticks.y = element_blank(),
          panel.grid.major = element_blank(),
          panel.grid.minor = element_blank(),
          legend.position = NULL)
sticker(gg,
        package="trackeR",
        p_size = 8, s_x = 1, s_y = .8, s_width = 1.4, s_height = 1,
        p_color = "white",
        h_color = "#0570b0",
        h_fill = "#0099CC",
        filename="~/Downloads/baseplot.png")