mitchelloharawild / distributional

Vectorised distributions for R
https://pkg.mitchelloharawild.com/distributional
GNU General Public License v3.0
94 stars 15 forks source link

Create hex sticker #44

Open mitchelloharawild opened 3 years ago

dmi3kno commented 1 year ago

What would you say about the hex like this? The bow is associated with the density shape (at least in my head). Your package contains supplies for the bow. It's like a pack of arrows in a quiver that can be shot at the target using the unified interface.

The slogan for the github card could then be "The arsenal of distributions".

#https://pngtree.com/freepng/text-ram-navami-with-quiver_6206015.html
library(magick)
#remotes::install_github("dmi3kno/bunny")
library(bunny)

logo_quiver <- image_read("data-raw/distributional_logo/bowarrow_nh.png") %>%
  image_scale("40%")

logo_norm <- image_read_svg("data-raw/distributional_logo/normal-distn-shaded-outside-3s.svg",
                            width = 1800)
logo_norm

br_col <- "#441256"
br1_col <-"#684488"
bl1_col <- "#F5F2F8"
br2_col <- "#f9d008"
bg_col  <- "#f5f5f5"
gr1_col <- "#8D89A6"
gr2_col <- "#757780"

dist_hex <- image_canvas_hex(fill_color = bg_col, border_color = br_col, border_size = 1) %>%
        image_composite(logo_norm, gravity = "center", offset="+0-200") %>%
        image_composite(logo_quiver, gravity = "center", offset = "-75+50") %>%
        image_annotate("distributional", gravity = "center", location = "+0+280",
                       size=350, font="Kristi", color = br1_col, weight = 400, degrees=-10) %>%
        image_annotate("distributional", gravity = "center", location = "+7+287",
                 size=350, font="Kristi", color = br2_col, weight = 600, degrees=-10) %>%
        image_composite(image_canvas_hexborder(border_color = br2_col, border_size = 13), gravity = "center")   %>%
        image_composite(image_canvas_hexborder(border_color = br_col, border_size = 8), gravity = "center")

dist_hex %>%
  image_scale("30%")

dist_hex %>%
  image_scale("1200x1200") %>%
  image_write("dist_hex.png", density = 600)

dist_hex %>%
  image_scale("200x200") %>%
  image_write("logo.png", density = 600)

gh_logo

dmi3kno commented 1 year ago

I added a stylized bow to make the analogy clearer. Perhaps the bell curve should be rotated slightly left... Easy to change with magick.

mitchelloharawild commented 3 months ago

Hi @dmi3kno, thanks for your suggestion (I really like your polite package by the way!). I like how the bottom of the quiver could be adapted to be a CDF, and how the density is used as a bow. However I don't like the licensing for the quiver graphic, and I think something less abstract that communicates the vectorised and mixed-shape nature of the package would be a better fit.

Perhaps the arrow/bow theme can still be used, where the density bow is shooting multiple arrow which each have feathers/vanes representing different shapes of distributions. Perhaps the arrow head are densities and the vanes are cdfs? :laughing: