如何在ggplot中纠正piechart上标签的位置。还可以告诉我如何生成3D拼图

install.packages("ggplot2")
library(ggplot2)

data <- mtcars

p <- ggplot(data, aes(x = factor(1), fill = factor(cyl))) +
  geom_bar(width = 1) +
  coord_polar(theta = "y") +
  geom_text(aes(label = cyl), position = position_stack(vjust = 0.5), color = "white", size = 4)

p <- p +
  theme(axis.title = element_blank(),
        axis.text = element_blank(),
        panel.border = element_blank(),
        panel.grid = element_blank(),
        plot.title = element_text(hjust = 0.5),
        plot.subtitle = element_text(hjust = 0.5),
        plot.caption = element_text(hjust = 0.5),
        plot.margin = unit(c(1,1,1,1), "cm")) +
  labs(title = "Pie Chart", subtitle = "Corrected Label Positions")

p <- p +
  coord_polar(theta = "y", start = 0.1, end = 2.1)

print(p)