ggplot甜甜圈图-饼图输出

Question

我已经从以前的线程ggplot甜甜圈图跟踪了代码

然而，当显示所述“甜甜圈图”时，R变成饼图。 如何获得甜甜圈图？

我是R和ggplot的新手。

## add columns for drawing with geom_rect
microcolour.df$Percentage = microcolour.df$Freq / sum(microcolour.df$Freq)*100
microcolour.df = microcolour.df[rev(order(microcolour.df$Percentage)), ]
microcolour.df$ymax = cumsum(microcolour.df$Percentage)
microcolour.df$ymin = c(0, head(microcolour.df$ymax, n=-1))
microcolour.df

## reorder colour levels
print(levels(microcolour.df$Colour))
microcolour.df$Colour <- reorder(microcolour.df$Colour,
                             new.order = c(10, 1, 9, 5, 2, 11, 4, 8, 7, 6, 3))

## create donut
ggplot(microcolour.df, aes(fill = Colour, ymax = ymax, ymin = ymin, xmax = 100, xmin = 0)) +
geom_rect(colour = "black") +
coord_polar(theta = "y") + 
xlim(c(0, 100)) +
theme(panel.grid=element_blank()) +
theme(axis.text=element_blank()) +
theme(axis.ticks=element_blank())

任何帮助或智慧的话将不胜感激。 绕过此笔触后，我将修改颜色等。

谢谢。