# NOT RUN {
bt <- data.frame(
parties = factor(c("CDU", "CSU", "AfD", "FDP", "SPD",
"Linke", "Gruene", "Fraktionslos"),
levels = c("CDU", "CSU", "AfD", "FDP", "SPD",
"Linke", "Gruene", "Fraktionslos")),
seats = c(200, 46, 92, 80, 153, 69, 67, 2),
colors = c("black", "blue", "lightblue", "yellow", "red",
"purple", "green", "grey"),
stringsAsFactors = FALSE)
ggplot(bt) +
geom_arcbar(aes(shares = seats, r0 = 5, r1 = 10, fill = parties)) +
scale_fill_manual(values = bt$colors) +
coord_fixed() +
theme_void()
# }
Run the code above in your browser using DataLab