radian plot

radian_plot.R

library(ggplot2)
library(tidyverse)

tibble(
  theta = seq(0, pi * 2, length = 10),
  x = 1:10
) |>
  ggplot(
    aes(
      x = 0,
      y = theta
    )
  ) +
  geom_line(
    linewidth = 3,
    arrow = arrow(type = "closed")
  ) +
  xlim(-0.04, 0.01) +
  scale_y_continuous(
    limits = c(0, pi * 2),
    breaks = c(0, pi, pi * 2),
    labels = c(
      expression(0 * pi),
      expression(frac(pi, 4)),
      expression(frac(2 * pi, 4))
    )
  ) +
  coord_radial(
    start = 0,
    end = pi / 2,
    theta = "y",
    clip = "on",
    expand = F
  )+
  labs(
    title = expression(theta),
    y = NULL
  ) +
  theme_bw()+
  theme(
    axis.text.y = element_blank(),
    axis.ticks.y = element_blank(),
    axis.title.y = element_blank()
  )