too many white blank in donuts plot

[jinwen zhang]

Hi, everyone. I'd tried my best to adjust my plots, but there is no idea to solve my problem.

My plots are list below

Here is my codes

# 

plot_tbl <- data.frame(transcript_id = c("x", "x", "x"), color = 1:3, fraction = c(0.15, 0.7, 0.15))

ggplot(plot_tbl, aes(x = transcript_id, y = fraction, 

                       fill= color, color = color)) +

    scale_x_discrete(limits = c(" ", as.character(plot_tbl$transcript_id))) +

    geom_col(position = position_stack(1), width = 1, show.legend = FALSE) +

    coord_polar("y", direction = -1, start = 0)

#

plot_tbl <- plot_tbl[1:2, ]

ggplot(plot_tbl, aes(x = transcript_id, y = fraction, 

                       fill= color, color = color)) +

    scale_x_discrete(limits = c(" ", as.character(plot_tbl$transcript_id))) +

    geom_col(position = position_stack(1), width = 1, show.legend = FALSE) +

    coord_polar("y", direction = -1, start = 0)

[jinwen zhang]

My fault.  I was too careless and forgot to use `unique`  groups.

So,  the right way should be 

scale_x_discrete(limits = c(" ", unique(as.character(plot_tbl$transcript_id))))