createSticker.R
In zalpha: Run a Suite of Selection Statistics

## Code for creating the zalpha package sticker

# Use the hexSticker package
#install.packages("hexSticker")
library(hexSticker)

# Create the DNA graph
png("man/figures/zalpha_image.png",res=100,bg="transparent",width=15,height=10,units = "cm")
par(mar=c(1,1,1,1))
plot_x<-seq(0,15,0.01)
plot_norm<-seq(-4,4,length.out=length(plot_x))
plot_line_1<-sin(plot_x*pi)+10*dnorm(plot_norm)
plot_line_2<--sin(plot_x*pi)+10*dnorm(plot_norm)
line_1_color<-"black"
line_2_color<-"blue"
line_vert_color<-"black"
axis_color<-"black"

plot(plot_x,plot_line_1,type="n",ylim=c(-1,6),lwd=6,xaxt="n",yaxt="n",ylab="",xlab="",frame.plot = FALSE)
# Plot the vertical lines
for(i in 0:14){
  segments(plot_x[34+i*100], plot_line_1[34+i*100], y1 = plot_line_2[34+i*100], lwd=3, col=line_vert_color)
  segments(plot_x[66+i*100], plot_line_1[66+i*100], y1 = plot_line_2[66+i*100], lwd=3, col=line_vert_color)
}
# Plot each segment at a time so that the lines crossover properly
lines(plot_x[1:51],plot_line_1[1:51],col=line_1_color,lwd=6)
lines(plot_x[1:51],plot_line_2[1:51],col=line_2_color,lwd=6)
for(i in 0:6){
  lines(plot_x[c(52:151)+i*200],plot_line_2[c(52:151)+i*200],col=line_2_color,lwd=6)
  lines(plot_x[c(52:151)+i*200],plot_line_1[c(52:151)+i*200],col=line_1_color,lwd=6)
}
for(i in 0:6){
  lines(plot_x[c(152:251)+i*200],plot_line_1[c(152:251)+i*200],col=line_1_color,lwd=6)
  lines(plot_x[c(152:251)+i*200],plot_line_2[c(152:251)+i*200],col=line_2_color,lwd=6)
}
lines(plot_x[1451:1501],plot_line_1[1451:1501],col=line_1_color,lwd=6)
lines(plot_x[1451:1501],plot_line_2[1451:1501],col=line_2_color,lwd=6)

# Add in the axes
axis(side=1,lwd=2,col=axis_color)
axis(side=2,at=seq(-1,3,1),lwd=2,col=axis_color)
dev.off()

# Create the sticker
imgurl <- "man/figures/zalpha_image.png"
sticker(imgurl, package="zalpha", p_size=10, p_color = "white", s_x=1.01, s_y=1.4, s_width=.9, p_y=0.6,
        h_fill="red",h_color = "blue",spotlight=TRUE,l_x=1,l_y=1,
        filename="man/figures/sticker.png")