[FR] Support shadowtext / text background about geomtextpath HOT 3 CLOSED

library(ggfx)
#> Warning: package 'ggfx' was built under R version 4.1.1
library(geomtextpath)
#> Loading required package: ggplot2

t <- seq(5, -1, length.out = 1000) * pi

spiral <- data.frame(x    = sin(t) * 1:1000, 
                     y    = cos(t) * 1:1000,
                     text = paste("Like a circle in a spiral,",
                                  "like a wheel within a wheel,",
                                  "never ending or beginning,",
                                  "on an ever spinning reel")
)

ggplot(spiral, aes(x, y, label = text)) +
  with_outer_glow(
    geom_textpath(size = 7, vjust = 2, text_only = TRUE, colour = "white"),
    sigma = 0, expand = 2
  ) +
  coord_equal(xlim = c(-1500, 1500), ylim = c(-1500, 1500))