Hole in the center of a pie chart with ggplot
ggplot2, pie-chart, r
Solution
It will work if you add the argument `width = 1` to `geom_bar`:
ggplot() +
geom_bar(data = dat15.1, aes(x = variable, y = value, fill = type),
stat = 'identity', width = 1) +
coord_polar("y", start = 0)
Problem
I cant figure out, why `ggplot` plots a whole in the middle of the following plot: Here the data and the code: ``` dat15 <- data.frame("Insgesamt" = c(64, 20, 13, 3), "18-29" = c(41, 25, 27, 7), "30-44" = c(58, 25, 12, 5), "45-59"=c(69, 20, 10, 1), "60+" = c(76, 14, 9, 1), "Arbeiter" = c(57, 34, 9, 0), "Angestellte" = c(69, 17, 11, 3), "Beamte" = c(72, 12, 11, 5), "Selbstständige" = c(69, 23, 5, 3), "unter 1000" = c(47, 30, 19, 4), "1000-2000" = c(59, 24, 15, 2), "2000-3000" = c(72, 15, 10, 3), "3000+" = c(68, 19, 10, 3), "seit Geburt" = c(65, 19, 12, 4), "zugez. vor 20" = c(72, 17, 9, 2), "zugez. in 20" = c(46, 28, 19, 7), row.names = c("zum Vorteil", "zum Nachteil", "keine Veränderung", "weiß nicht")) dat15 <- melt(dat15) dat15$type = c("zum Vorteil", "zum Nachteil", "keine Veränderung", "weiß nicht") dat15.1 <- dat15[c(1:4),] dat15.1$labelpos <- cumsum(dat15.1$value) - dat15.1$value / 2 plot15.1 <- ggplot() + theme_m(base_family = family,base_size=size) + xlab("") + ylab("") plot15.1 <- plot15.1 + geom_bar(ata = dat15.1, aes(x = dat15.1$variable, y = dat15.1$value, fill=dat15.1$type), stat = 'identity') plot15.1 <- plot15.1 + coord_polar("y", start = 0) ```