Cool but useless - Githubissues

Georgios Karamanis 的可视化作品

https://twitter.com/geokaramanis/status/1540684507094736901

library(ggforce)

s <- 900
ggplot() +
  geom_regon(aes(
    x0 = cos((1:s) / 57), y0 = sin((1:s) / 57),
    sides = 6, r = cos((1:s) / 24),
    angle = cos((1:s) / 23), color = 1:s %% 15
  ),
  size = 0.2, fill = NA, linetype = "twodash"
  ) +
  scale_color_viridis_c(option = 15, guide = "none") +
  coord_fixed() +
  theme_void()

library(ggplot2)
library(ggforce)

r <- seq(1, 11, 0.1)

ggplot() +
  geom_spiro(aes(r = r, R = r * 20, d = r^2, outer = T, color = r %% 10), size = 3) +
  scale_color_viridis_c(option = "turbo") +
  coord_fixed() +
  theme_void() +
  theme(legend.position = "none")

https://twitter.com/geokaramanis/status/1541051338502688768

library(ggforce)
s <- 1200
ggplot() +
  geom_diagonal(aes(
    x = cos(seq(0, pi, length.out = s)),
    y = sin(seq(0, pi, length.out = s)),
    xend = cos(seq(0, 360 * pi, length.out = s)),
    yend = sin(seq(0, 360 * pi, length.out = s))
  ),
  size = 0.1, strength = 1
  ) +
  coord_fixed() +
  theme_void()

https://github.com/cj-holmes/isometric-height-maps

https://twitter.com/geokaramanis/status/1543604726620721153

e <- 1e-3
s <- 1e4
t <- pi / 2 * cumsum(seq(e, -e, length.out = s))^3

library(ggplot2)

ggplot() +
  geom_spoke(aes(x = cumsum(cos(t)), y = cumsum(sin(t)), angle = t, color = t, radius = 1:s %% 500), alpha = 0.5) +
  scale_color_distiller(palette = 15, guide = "none") +
  coord_fixed() +
  theme_void()

R 语言生成艺术 https://georgemsavva.github.io/creativecoding/

library(ggforce)

data.frame(t = seq(-6, 6, 8e-3)) |> 
  transform(x = sin(5 * t)^2 * 2^cos(cos(8 * t)), y = sin(sin(5 * t)) * cos(7 * t)^2) |> 
  ggplot(aes(x, y, fill = sin(x^6))) +
  geom_voronoi_tile(color = 1) +
  scale_fill_fermenter(guide = "none", palette = 7) +
  coord_flip() +
  theme_void()

emojifont 字体

library(emojifont)
library(ggplot2)
library(patchwork)

p1 <- ggplot() +
  geom_fontawesome("fa-bolt", color = "steelblue") +
  theme_void()
p2 <- ggplot() +
  geom_fontawesome("fa-rocket", color = "steelblue") +
  theme_void()

p1 + p2

XiangyunHuang / msg2nd

Cool but useless #26

Georgios Karamanis 的可视化作品