inst/hex-logo/create-favicon.R

In danielmarcelino/SciencesPo: A Tool Set for Analyzing Political Behavior Data

### User input -----------------------------------------------------------------
corr <- 0.0

## Colors
# low_color <- "#bfff00" # lime
low_color <- "#ffff00" # yellow
# low_color <- "#3498DB" # blue
# low_color <- "#808000" # Olive
#low_color <- "#FCFCFC" # very light gray

high_color <- "#FF0000" # red
# high_color <- "#FF1493" # deeppink
# high_color <- "#ff00ff" # magenta
# high_color <- "#FFB81C"
# high_color <-"#36FF1C"

### Create logo ----------------------------------------------------------------
library(tidyverse)
library(hexSticker)
library(png)
library(grid)
library(showtext)
font_add_google(name = "Roboto", family = "Roboto")

showtext_auto()

l <- 1

hex_poly <- data_frame(
  x = 1.35 * l * c(-sqrt(3) / 2, 0, rep(sqrt(3) / 2, 2), 0, rep(-sqrt(3) / 2, 2)),
  y = 1.35 * l * c(0.5, 1, 0.5, -0.5, -1, -0.5, 0.5)
)

crossing(x = seq(min(hex_poly$x), max(hex_poly$x), 0.01),
         y = seq(min(hex_poly$y), max(hex_poly$y), 0.01)
) %>%
  mutate(
    location = sp::point.in.polygon(point.x = x,
                                    point.y = y,
                                    pol.x = hex_poly$x,
                                    pol.y = hex_poly$y)
  ) %>%
  filter(location == 1) %>%
  select(-location) %>%
  mutate_if(is.double, round, digits = 2) -> hex_points


means <- c(median(hex_points$x), median(hex_points$y))
xvar <- ((((max(hex_points$x) - min(hex_points$x)) / 2) / 3)^2) * 1.5
yvar <- ((((max(hex_points$y) - min(hex_points$y)) / 2) / 3)^2) * 1.5
cor_mat <- matrix(data = c(1, corr, corr, 1), ncol = 2, byrow = TRUE)
stdevs <- c(sqrt(xvar), sqrt(yvar))
b <- stdevs %*% t(stdevs)
sigma <- b * cor_mat


gen_data <- mvtnorm::rmvnorm(1000000, mean = means, sigma = sigma) %>%
  as_tibble(.name_repair = "universal") %>%
  mutate_if(is.double, round, digits = 2) %>%
  count(...1, ...2)

hex_points <- left_join(hex_points, gen_data, by = c("x" = "...1", "y" = "...2")) %>%
  replace_na(list(n = 0))


theme_hex <- theme_void() + theme_transparent() +
  theme(axis.ticks.length = unit(0, "mm"))


img <- readPNG("~/SciencesPo/inst/figures/words.png")
g <- rasterGrob(img, interpolate=TRUE)

plot_sample <- hex_points %>%
  uncount(weights = n) %>%
  sample_n(size = 100)


ggplot() +
  geom_raster(data = hex_points, aes(x = x, y = y, fill = n),
              show.legend = FALSE) +
  geom_polygon(data = hex_poly, aes(x, y), color = high_color, alpha = 0,
               size = 22) +
  annotate("text",x = 0, y = -0.68, label= "SciencesPo",
           size = 42, family = "Roboto", fontface="bold", color="#C0C0C0") +
  annotate("text", x = 0, y = -0.67, label= "SciencesPo",
           size = 42, family = "Roboto", fontface="bold") +
  annotation_custom(g, xmin = -.90, xmax = .90, ymin = -.80, ymax = 1.20) +
  coord_equal(xlim = range(hex_poly$x), ylim = range(hex_poly$y)) +
  scale_x_continuous(expand = c(0.04, 0)) +
  scale_y_continuous(expand = c(0.04, 0)) +
  scale_fill_gradient(low = low_color, high = high_color) +
  theme_hex -> logo

png("~/SciencesPo/inst/figures/SciencesPo-logo2.png", width = 905, height = 1050, bg = "transparent")
print(logo)
dev.off()


ggplot() +
  geom_raster(data = hex_points, aes(x = x, y = y, fill = n),
    show.legend = FALSE) +
  geom_polygon(data = hex_poly, aes(x, y), color = high_color, alpha = 0,
    size = 0.35) +
  annotate("text",x = 0, y = -0.68, label= "SciencesPo",
           size = 1.3, family = "Roboto", fontface="bold", color="#C0C0C0") +
  annotate("text", x = 0, y = -0.67, label= "SciencesPo",
           size = 1.3, family = "Roboto", fontface="bold") +
  annotation_custom(g, xmin = -.90, xmax = .90, ymin = -.80, ymax = 1.20) +
  coord_equal(xlim = range(hex_poly$x), ylim = range(hex_poly$y)) +
  scale_x_continuous(expand = c(0.04, 0)) +
  scale_y_continuous(expand = c(0.04, 0)) +
  scale_fill_gradient(low = low_color, high = high_color) +
  theme_hex -> icon

png("~/SciencesPo/inst/figures/SciencesPo-icon.png", width = 32, height = 32, bg = "transparent")
print(icon)
dev.off()


ggplot() +
  geom_raster(data = hex_points, aes(x = x, y = y, fill = n),
    show.legend = FALSE) +
  geom_polygon(data = hex_poly, aes(x, y), color = high_color, alpha = 0,
    size = 2.12) +
  annotate("text",x = 0, y = -0.68, label= "SciencesPo",
           size = 8, family = "Roboto", fontface="bold", color="#C0C0C0") +
  annotate("text", x = 0, y = -0.67, label= "SciencesPo",
           size = 8, family = "Roboto", fontface="bold") +
  annotation_custom(g, xmin = -.90, xmax = .90, ymin = -.80, ymax = 1.20) +
  coord_equal(xlim = range(hex_poly$x), ylim = range(hex_poly$y)) +
  scale_x_continuous(expand = c(0.04, 0)) +
  scale_y_continuous(expand = c(0.04, 0)) +
  scale_fill_gradient(low = low_color, high = high_color) +
  theme_hex -> icon_192

png("~/SciencesPo/inst/figures/SciencesPo-icon-192.png", width = 192, height = 192, bg = "transparent")
print(icon_192)
dev.off()