ggplot2: Как добавить процентные метки на кольцевую диаграмму

Я новичок в R ... так что простите меня. Я пытаюсь сделать диаграммы пончиков с помощью ggplot2. Я изменил код сообщения ggplot Donut chart, но теперь я не могу добавить процентное соотношение на графике. Это моя попытка:

library(ggplot2)

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")
  )



dat = data.frame(count=c(319, 442, 239), category=c("University", "High Scool", "Lower"))


dat$fraction = dat$count / sum(dat$count)

dat$ymax = cumsum(dat$fraction)
dat$ymin = c(0, head(dat$ymax, n=-1))

dat$category <- factor(dat$category, levels = c("University", "High Scool", "Lower"))


p1 = ggplot(dat, aes(fill=category, ymax=ymax, ymin=ymin, xmax=4, xmin=3)) +
  geom_rect(color='blue') +
  coord_polar(theta="y") +
  xlim(c(1, 4)) 



edu<-p1 + scale_fill_brewer("Education") + blank_theme +
  theme(axis.text.x=element_blank()) + theme(legend.position=c(.5, .5)) + ggtitle("") +
  theme(panel.grid=element_blank()) +
  theme(axis.text=element_blank()) +
  theme(axis.ticks=element_blank()) +
  theme(legend.title = element_text(size=16, face="bold")) +
  theme(legend.text = element_text(size = 14, face = "bold")) 

edu

Я пробовал много кода geom_text и scale_y_continuous, но ... ничего. Кто-нибудь может мне помочь? Спасибо


r percentage ggplot2 donut-chart
person Giorjet    schedule 08.02.2016    source источник

Ответы (1)


arrow_upward
11
arrow_downward

Вы можете использовать geom_label:

edu +
  geom_label(
    aes(label = paste(fraction * 100, "%"),
    x = 3.5,
    y = (ymin + ymax) / 2),
    inherit.aes = TRUE,
    show.legend = FALSE
  )

введите описание изображения здесь

person scoa    schedule 08.02.2016
comment
... и чтобы этикетки были больше ... Я пробовал, label.size, но не работает ... - person Giorjet; 08.02.2016
comment
добавить size=8 или больше в geom_label (но не внутри aes) - person scoa; 08.02.2016
comment
Мне нравится этот график. Кто-нибудь знает, как я мог выбрать свои собственные цвета вместо оттенков синего? - person Jacob Curtis; 20.01.2017
comment
@ user3281413 добавьте + scale_fill_discrete() и посмотрите его справку по выбору цветов - person scoa; 20.01.2017