In RajLabMSSM/echodata: echoverse module: Fine-mapping data access and formatting

pkg <- read.dcf(here::here("DESCRIPTION"), fields = "Package")[1]
description <- read.dcf(here::here("DESCRIPTION"), fields = "Description")[1]

You can make awesome hex stickers for your R packages using:

hexSticker
ggimage lets you render images as data points.
ggpattern lets you fill objects with patterns or images.
magick modify PNGs.

`r pkg`

# If you're using R<4.1.1, need this version of rvcheck
# devtools::install_version('rvcheck',version='0.1.8') 
library(hexSticker)
library(dplyr)
library(ggplot2)
library(ggimage)
# library(ggpattern)# remotes::install_github("coolbutuseless/ggpattern")

File path

Create file path.

filename <- here::here("inst/hex/hex.png")
dir.create(dirname(filename), showWarnings = FALSE, recursive = TRUE)

Bat logo

Download bat logo from the echoverseTemplate GitHub Release.

tmp <- tempfile()
#### Side view ####
URL <- "https://github.com/RajLabMSSM/echoverseTemplate/releases/download/latest/bat_silhouette.png"   
#### Front view ####
# URL <- "https://github.com/RajLabMSSM/echoverseTemplate/releases/download/latest/bat_silhouette_front.png"   
download.file(URL, tmp)

Background

Create background with ggplot2.

set.seed(1234)
n_bats <- 20
d <- data.frame(x = -rexp(n_bats, rate = 3),
                y = rexp(n_bats, rate = 3)
                ) %>%
  dplyr::mutate(image = URL,
                bsize = abs(x*y^2)) %>%
  dplyr::arrange(dplyr::desc(x), dplyr::desc(y))
qplot(d$x, d$y, size=d$bsize)

Import data points for reproducibility.

d <- data.table::fread("https://github.com/RajLabMSSM/echoverseTemplate/releases/download/latest/echoverse_points.csv.gz")

gg_bats <- ggplot(d, aes(x = x, y = y, color=bsize, image=image)) + 
  geom_image(aes(size=I(bsize)), alpha=1) +
  scale_color_gradient(low = "#194f68", high = "#56ffff") +   
  coord_cartesian(clip = "off") +
  labs(title = "echoverse") +  
  theme_void() +
  theme(plot.title = element_text(color = "#56ffff", size = 25,
                                  hjust = .5, vjust = 5, family = "Aller_Rg"), 
        legend.position = "none") 

print(gg_bats)

hexSticker

s_size = 1
stick <- hexSticker::sticker(
  subplot = gg_bats, 
  #### Package name ####
  package = pkg, p_size=14, p_y = 1.4,
  #### Subplot #####
  s_x=1, s_y=.8,  s_height = s_size, s_width = s_size,
  #### Fill & border ####
  h_fill = "#25355c", h_color = "#41c6c8", #56ffff
  #### Spotlight ####
  spotlight = TRUE, l_alpha = .3, l_width = 10,
  #### File output ####
  filename = filename, dpi = 300)
print(stick)