create hex logo

[eeholmes]

library(magik)
library(hexSticker)
library(dplyr)
img <- image_read("mars.png")
img %>% 
+     image_convert("png") %>% 
+     image_resize("1080 x 200")%>% 
+     image_fill(color="#062047", point="+45") -> res

final_res<-sticker(res, package="MARSS", p_size=30,
                   p_y = 1,
                    s_x=1.5, s_y=0.8, s_width=2,
                    s_height = 14,
                   filename="icon_2.png",h_fill="#062047",h_color = "#062047")
plot(final_res)

Editted out the image that was past the hex on Lunapic.