Добавление меток во вложенную круговую диаграмму (в R)

#r #pie-chart

#r #круговая диаграмма

Вопрос:

Я создал вложенную круговую диаграмму для своих данных: внутренняя круговая диаграмма (кодирование = 35, nc = 25) Внешняя круговая диаграмма (кодирование: c_tsg = 31, c_ntsg = 4, nc: nc_tsg = 20, nc_ntsg = 5)

Не могли бы вы сказать мне, как я могу добавить метки (значение каждой переменной) в середину их разделов круговых диаграмм? Спасибо

Вот мой код:

 library('plotrix')

## input
total=58
coding=33
nc=25
c_tsg=30
c_ntsg=3
nc_tsg=20
nc_ntsg=5

# initial radius
iniR=0.2 
colors=list(NO='white',total='black',coding='#e5f5e0',nc='#a1d99b',
            c_tsg='#3182bd',c_ntsg='#fec44f',nc_tsg='#fc9272',nc_ntsg='#9ecae1')

pie(1, radius=iniR, init.angle=90, col=c('white'), border = NA, labels='')

# pie chart for divide coding and nc into tsg and ntsg
floating.pie(0,0,c(c_tsg, coding-c_tsg, nc_tsg, nc-nc_tsg),radius=3*iniR, startpos=pi/2, col=as.character(colors[c('c_tsg','NO','c_ntsg','NO')]),border=NA)

# pie chart for coding   nc
floating.pie(0,0, c(coding, nc), radius=2*iniR, startpos=pi/2, col=as.character(colors[c('coding','nc')]), border = NA)

 

Комментарии:

1. Возможно, единственный способ — это вручную задать координаты меток в text функции.