Hex logo about geomtextpath HOT 7 CLOSED

library(ggfx)
library(geomtextpath)

t <- seq(0, 2*pi, length.out = 360)

df <- data.frame(
  x = cos(t),
  y = sin(t),
  id = rep(1:3, each = 120),
  label = "geomtextpath"
)

t <- seq(1.5 * pi, -0.5 * pi, length.out = 7)
hex <- data.frame(
  x = cos(t),
  y = sin(t)
)

my_label <- function(
  family = "Uncial Antiqua",
  size = 6,
  colour = NA,
  linetype = 0,
  ...
) {
  geom_textpath(family = family, size = size, 
                colour = colour, linetype = linetype)
}

ggplot(df, aes(x, y)) +
  geom_textpath(aes(group = id, label = label))

ggplot(df, aes(x, y, label = label, group = id)) +
  geom_polygon(data = hex, aes(x * 1.5, y * 1.5), fill = "black", inherit.aes = FALSE) +
  with_blur(my_label(colour = "red"), sigma = 20) +
  with_blur(my_label(colour = "darkorange"), sigma = 10) +
  with_blur(my_label(colour = "gold"), sigma = 5) +
  my_label(colour = "#ffffcc") +
  coord_equal() +
  theme_void()

library(geomtextpath)
library(grid)

t <- seq(pi, 1.5 * pi, length.out = 180)

df <- data.frame(
  x = cos(t) + 0.6,
  y = sin(t) + 0.6
)


t2 <- seq(1.5 * pi, -0.5 * pi, length.out = 7)
hex <- data.frame(
  x = cos(t2),
  y = sin(t2)
)

angs <- seq(1.5 * pi, 1 * pi, length.out = 10)

p <- ggplot(df, aes(x, y)) +
  geom_polygon(data = hex,  fill = "#3B51D4") +
  geom_polygon(data = hex, aes(x = 0.8660254*x, y = 0.8660254*y),
               fill = NA, colour = "#ffffff88", size = 2) +
  annotate(
    "path", x = cos(t) * 0.9 + 0.6, y = sin(t) * 0.9 + 0.6,
    colour = "white", arrow = arrow(type = "closed", angle = 15), 
    size = 2
  ) +
  annotate(
    "segment", x = -0.5, xend = -0.52, colour = "white",
    y = seq(-0.5, 0.5, by = 0.05), yend = seq(-0.5, 0.5, by = 0.05),
    alpha = 0.5
  ) +
  annotate(
    "segment", y = -0.5, yend = -0.52, colour = "white",
    x = seq(-0.5, 0.5, by = 0.05), xend = seq(-0.5, 0.5, by = 0.05),
    alpha = 0.5
  ) +
  annotate(
    "segment", x = cos(angs) + 0.6, y = sin(angs) + 0.6, 
    xend = cos(angs) * 0.8 + 0.6, yend = sin(angs) * 0.8 + 0.6,
    colour = "white", alpha = 0.2
  ) +
  geom_vline(
    xintercept = c(-0.5, 0, 0.5), 
    colour = "#ffffff22", size = 1
  ) +
  geom_hline(
    yintercept = c(-0.5, 0, 0.5), colour = "#ffffff22", size = 1
  ) +
  geom_vline(
    xintercept = seq(-0.75, 0.75, by = 0.25), 
    colour = "#ffffff22", size = 0.5
  ) +
  geom_hline(
    yintercept = seq(-0.75, 0.75, by = 0.25), 
    colour = "#ffffff22", size = 0.5
  ) +
  geom_textpath(label = "geomtextpath", colour = "white", size = 10,
                family = "Montserrat", fontface = "bold", linetype = 0) +
  coord_equal() +
  theme_void()

gt <- ggplotGrob(p)
grid.newpage(); grid.draw(gt)
grid.force()
grid::grid.edit(
  "geom_polygon.polygon", grep = TRUE, global = TRUE,
  gp = grid::gpar(fill = radialGradient(c("#4F65D8", "#3B51D4", "#2336A3")))
)