ggplot: adding text to inside and label outside?

Question

Hi I would like to create a pie chart the has the total frequency inside the pie chart but on the outside I would like to add the label?

for example:

temp = structure(list(Var1 = c("diet", "water", "pepsi", "coke", "7_up", 
"sprite", "none"), Freq = c(351L, 212L, 71L, 444L, 524L, 193L, 
53L), per = c(0.189935064935065, 0.114718614718615, 0.0384199134199134, 
0.24025974025974, 0.283549783549784, 0.104437229437229, 0.0286796536796537
)), row.names = c(1L, 3L, 5L, 7L, 9L, 11L, 13L), class = "data.frame")

Here I can create the the plot but the labels are all jumbled up.

ggplot(data = temp,
       aes(x = "", y = per, fill = Var1)) +
  geom_col() +
  geom_text(aes(label = Freq  ),
            position = position_stack(vjust = 0.5),
            color = "grey20", size = 12, fontface = "bold"  ) +
  coord_polar(theta = "y", direction = -1 ) +

  theme_void() +
  theme(legend.position = "none",
        legend.direction = "vertical")+  

  theme ( legend.text      =element_text(size=12),
          legend.title = element_text(size=12) ) +
  geom_label_repel(
    aes(
      label = Var1, y=per
    ),  box.padding = 0.25
  )

the chart looks like this.

AdroMine · Accepted Answer · 2022-04-29 17:04:24Z

1

Instead of putting x = "", you can put x = 1 for the bars and then x = 1.5 or some other value for the labels. Essentially try to make bar chart with the labels outside the bars, then if you turn to polar coordinates, you should get the desired output

ggplot(data = temp,
       aes(x = 1, y = per, fill = Var1)) +
    geom_col() +
    geom_text(aes(label = Freq),
              position = position_stack(vjust = 0.5),
              color = "grey20", fontface = "bold"  ) +
    geom_label(aes(x = 1.5, label = Var1), 
               position = position_stack(vjust = 0.5)) + 
    coord_polar(theta = "y", direction = -1 ) +
    theme_void() +
    theme(legend.position = "none",
          legend.direction = "vertical")+  
    theme (legend.text = element_text(size=12),
            legend.title = element_text(size=12) )

answered Apr 29, 2022 at 17:04

AdroMine

1,5577 silver badges12 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Ahdee Over a year ago

this is perfect. Moreover the trick also worked with the ggrepel package, thanks.

Collectives™ on Stack Overflow

ggplot: adding text to inside and label outside?

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related