How to draw a pie chart with labels close to circumference ?

[JMBonneville]

  data <- data.frame(Category = c("Baseball",
                                  "Basketball",
                                  "Football",
                                  "Hockey"),
                     n = c(45,10,25,20)) 
  
  # create pie
  library(ggplot2)
  pie <-   ggplot(data, aes (x="", y = n, fill = Category)) +
    geom_bar(width = 1, stat = "identity") +
    coord_polar("y", start=0)
  
  # attempt 1, labels too close to circle center (midway to circumference)
  pie + geom_text(aes(label = paste(n, "%")),
                  position = position_stack(vjust = 0.5)) 
  
  # attempt 2 , wrong (reverse) order of labels 
  pie + geom_text(aes(y = n/2 + c(0, cumsum(n)[-length(n)]), 
                      x =1.25,
                      label= paste0(n, "%")))  

[nirgrahamuk]

go with the first attempt:

pie + geom_text(aes(label = paste(n, "%"),x=1.25),
                position = position_stack(vjust = 0.5))