在gganimate中对动态条形图上的标签进行圆周处理？

library(ggplot2)
library(gganimate)

# 加载数据
data <- data.frame(category = c("A", "B", "C", "D"),
                   value = c(10, 20, 15, 12))

p <- ggplot(data, aes(x = category, y = value)) +
  geom_bar(stat = "identity") +
  theme_minimal()

p <- p +
  transition_states(category, transition_length = 2, state_length = 1)

p <- p +
  geom_text(aes(label = value, x = category, y = value), vjust = -0.5)

p <- p +
  coord_polar(theta = "y")

animate(p, nframes = 100, fps = 10, renderer = gifski_renderer("animation.gif"))