Ein Torten-/Kuchen-Diagramm

Ein Kuchen zeigt recht intuitiv an, welche Gruppen wie stark besetzt sind sind. Hier ein Beispiel für R und RStudio.

Mit diesen Zeilen habe ich es erstellt. Die R-Syntax ist leider nicht ganz trivial.
Wir brauchen die library "ggplot2". Aus den Daten mit den Beschriftungen ("aa", "bb", usw.) und den Prozentwerten (10, 20, 30, 40) macht man ein eine kombinierte Beschriftung ("lb"). Diese soll an jedem Kuchenstück angebracht werden.

library(ggplot2)
x = data.frame(u = c('aa', 'bb', 'cc', 'dd'), a = c(10,20,30,40))
for(i in 1 : nrow(x)) {
x[i, "cum"] = sum(x$a[1: i])
x[i, "cum2"] = 100 - sum(x$a[1: i]) + x$a[i]/2
}
pr(x)
magma = c('#fcfdbf', '#fdda9c', '#feb67c', '#fc9065', '#f66c5c', '#e34e65', '#c53c74', '#a6317d', '#862781', '#671b80', '#491078', '#271258', '#0d0a29', '#000004', '#0b0924')[4 : 15]
g = ggplot(data = x, aes(x = '', y = a, fill = factor(u))) + geom_col() + coord_polar(theta = 'y', start = 0, direction = 1) + xlab('') + ylab('') +
geom_text(aes(x = c(1.3, 1.2, 1.2,1.3), y = cum2, label = paste0(u, '\n', a, ' %')), size = 5, color = 'blue') +
scale_fill_manual(values = magma) +
theme (panel.background = element_rect(fill = 'white'), axis.text = element_blank(), axis.ticks = element_blank(), legend.title = element_blank())
print(g)

Ich würde vorschlagen, dieses Beispiel zum Laufen zu bringen und dann sukzessive die eigenen Daten einzusetzen, mit der Farbpalette "magman" kann ebenfalls gespielt werden, hier können eigene Farben ("rot", "blau", "gelb") eingesetzt werden.