ggplot, facet, piechart: размещение текста в середине фрагментов круговой диаграммы
Я пытаюсь создать ограненную круговую диаграмму с помощью ggplot и сталкиваюсь с проблемами с размещением текста в середине каждого среза:
dat = read.table(text = "Channel Volume Cnt
AGENT high 8344
AGENT medium 5448
AGENT low 23823
KIOSK high 19275
KIOSK medium 13554
KIOSK low 38293", header=TRUE)
vis = ggplot(data=dat, aes(x=factor(1), y=Cnt, fill=Volume)) +
geom_bar(stat="identity", position="fill") +
coord_polar(theta="y") +
facet_grid(Channel~.) +
geom_text(aes(x=factor(1), y=Cnt, label=Cnt, ymax=Cnt),
position=position_fill(width=1))
Выход:
Какие параметрыgeom_text
должны быть скорректированы для того, чтобы разместить числовые метки в середине кусочков круговой диаграммы?
Связанный вопросПирог, получающий текст поверх друг друга но это неТ дело с фасетом.
ОБНОВЛЕНИЕ: следуя совету Пола Химстры и подходу в приведенном выше вопросе, я изменил код следующим образом:
---> pie_text = dat$Cnt/2 + c(0,cumsum(dat$Cnt)[-length(dat$Cnt)])
vis = ggplot(data=dat, aes(x=factor(1), y=Cnt, fill=Volume)) +
geom_bar(stat="identity", position="fill") +
coord_polar(theta="y") +
facet_grid(Channel~.) +
geom_text(aes(x=factor(1),
---> y=pie_text,
label=Cnt, ymax=Cnt), position=position_fill(width=1))
Как я и ожидал, настройка текстовых координат абсолютно, но она должна быть в данных фасета: