Отверстие в Bullseye в ggplot2

Question

Я подготовил таблицу сдобы, используя ggplot. Но у меня дыра. Как удалить его и получить целую?

critters <- structure(list(a = 15, b = 47, c = 22, d=9, e=7), .Names = c("a", "b", "c", "d", "e"), row.names = c(NA, -1L), class = "data.frame") 

d <- data.frame(test=factor(c(rep("a", critters$a), 
          rep("b", critters$b), 
          rep("c", critters$c), 
          rep("d", critters$d), 
          rep("e", critters$e)), 
          levels = c("a", "b", "c", "d", "e"), ordered= TRUE)) 
levels(d$test) <- apply(data.frame(table(d$test)), 1, paste, collapse = ": ") 

ggplot(d, aes(x = factor(1), fill = factor(test))) + geom_bar()+ coord_polar() + labs(x = NULL, fill = NULL) + scale_fill_manual(values = c("blue", "yellow", "green", "red", "magenta")) 

Answer 1

Вам нужно установить width = 1 в geom_bar.

ggplot(d, aes(x = factor(1), fill = factor(test))) + 
    geom_bar(width = 1) + 
    coord_polar() + 
    labs(x = NULL, fill = NULL) + 
    scale_fill_manual(values = c("blue", "yellow", "green", "red", "magenta"))