Круговая диаграмма - Как получить процентный текст в нужном месте?

Question

У меня есть проблемы с информацией о процентах в нужных местах на круговой диаграмме.Может ли кто-нибудь очень любезно помочь мне в этом?Большое спасибо!

        #sample dataframe       
        d <- data.frame(facet=c('a','b','c', "d"), value=c('0.46','0.11','0.18', "0.25"))
        d$value <- as.numeric(as.character(d$value))


blank_theme <- theme_minimal()+
  theme(
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
    panel.border = element_blank(),
    panel.grid=element_blank(),
    axis.ticks = element_blank(),
    plot.title=element_text(size=14, face="bold")
  )

        d$perc <- round(d$value/sum(d$value) * 100,0)
        d$pos <-  cumsum(d$perc) - sapply(d$perc,function(x) cumsum(x)-0.5*x)

        bp <- ggplot(data=d, aes(x="", y=perc, fill=facet))+
          geom_bar(width = 1, stat = "identity") + 
          geom_text(aes(x="", y=pos, label=paste0(perc,"%"))) +
          #geom_text(aes(x="", y=value/4+ c(0, cumsum(value)[-length(value)]), label=percent(value/100))) 
          scale_fill_manual(values = c("a" = "#b2df8a", "b" = "#238b45", "c" = "#636363", "d"="orange"))
        bp

        pie <- bp +  coord_polar("y", start=0) + blank_theme +
          theme(axis.text.x=element_blank())  
        pie

Answer 1

Бывает, что по какой-то причине ggplot2 идет в другом направлении при работе с метками.Следовательно, вместо использования

d$pos <-  100 - (cumsum(d$perc) - sapply(d$perc, function(x) cumsum(x) - 0.5 * x))

получается

Answer 2

Это просто достичь с помощью функции ggpiestats.Требуется лишь незначительное изменение вашего фрейма данных -

library(ggstatsplot)
set.seed(123)

# data
d <-
  data.frame(
    facet = c('a', 'b', 'c', "d"),
    value = c(46, 11, 18, 25)
  )

# plot with statistical details in the subtitle
ggstatsplot::ggpiestats(data = d,
                        main = facet,
                        counts = value)

Если вам не нужны статистические данные теста и вы хотите дополнительно настроить эстетику графика, вы также можетеиспользовать ggplot2 функции-

# customizing it further
# change the slice label
ggstatsplot::ggpiestats(data = d,
                        main = facet,
                        counts = value,
                        slice.label = "both",
                        package = "wesanderson",
                        palette = "Royal2") +
  ggplot2::labs(subtitle = NULL)

^{Создано в 2019-02-09 пакетом Представить (v0.2.1)}