Я пытаюсь создать ограненную круговую диаграмму с помощью 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))

Как я и ожидал, настройка текстовых координат абсолютно, но она должна быть в данных фасета: