ggplot, facette, piechart: placer le texte au milieu de camembert en tranches

je voudrais m'élever contre la manière conventionnelle de faire des tartes en ggplot2, qui est de dessiner un terrain de bar empilé en coordonnées polaires. Bien que j'apprécie l'élégance mathématique de cette approche, elle provoque toutes sortes de maux de tête quand l'intrigue ne ressemble pas tout à fait à la façon dont il est censé. En particulier, ajuster précisément la taille de la tarte peut être difficile. (Si vous ne savez pas ce que je veux dire, essayez de faire un diagramme à secteurs qui s'étend jusqu'au bord du panneau.)

je préfère dessiner des pies dans un système normal de coordonnées cartésiennes, en utilisant geom_arc_bar() de ggforce. Cela demande un peu de travail supplémentaire sur le devant, parce que nous devons calculer nous-mêmes les angles, mais c'est facile et le niveau de contrôle que nous obtenons en conséquence est plus que la valeur. J'ai utilisé cette approche dans les réponses précédentes ici et ici.

Les données (à partir de la question):

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)

La pie-le code de dessin:

library(ggplot2)
library(ggforce)
library(dplyr)

# calculate the start and end angles for each pie
dat_pies <- left_join(dat,
                      dat %>% 
                        group_by(Channel) %>%
                        summarize(Cnt_total = sum(Cnt))) %>%
  group_by(Channel) %>%
  mutate(end_angle = 2*pi*cumsum(Cnt)/Cnt_total,      # ending angle for each pie slice
         start_angle = lag(end_angle, default = 0),   # starting angle for each pie slice
         mid_angle = 0.5*(start_angle + end_angle))   # middle of each pie slice, for the text label

rpie = 1 # pie radius
rlabel = 0.6 * rpie # radius of the labels; a number slightly larger than 0.5 seems to work better,
                    # but 0.5 would place it exactly in the middle as the question asks for.

# draw the pies
ggplot(dat_pies) + 
  geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0, r = rpie,
                   start = start_angle, end = end_angle, fill = Volume)) +
  geom_text(aes(x = rlabel*sin(mid_angle), y = rlabel*cos(mid_angle), label = Cnt),
            hjust = 0.5, vjust = 0.5) +
  coord_fixed() +
  scale_x_continuous(limits = c(-1, 1), name = "", breaks = NULL, labels = NULL) +
  scale_y_continuous(limits = c(-1, 1), name = "", breaks = NULL, labels = NULL) +
  facet_grid(Channel~.)

Pour montrer pourquoi je pense que cette approche est beaucoup plus efficace que les classiques ( coord_polar() ) approche, disons que nous voulons les étiquettes à l'extérieur de la tarte plutôt qu'à l'intérieur. Cela crée un couple de problèmes, comme nous devrons ajuster hjust et vjust en fonction du côté de la tarte a label tombe, et aussi nous devrons faire le tracez un panneau plus large que haut pour faire de l'espace pour les étiquettes sur le côté sans générer un espace excessif au-dessus et en dessous. Résoudre ces problèmes dans l'approche des coordonnées polaires n'est pas amusant, mais c'est trivial dans les coordonnées cartésiennes:

# generate hjust and vjust settings depending on the quadrant into which each
# label falls
dat_pies <- mutate(dat_pies,
                   hjust = ifelse(mid_angle>pi, 1, 0),
                   vjust = ifelse(mid_angle<pi/2 | mid_angle>3*pi/2, 0, 1))

rlabel = 1.05 * rpie # now we place labels outside of the pies

ggplot(dat_pies) + 
  geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0, r = rpie,
                   start = start_angle, end = end_angle, fill = Volume)) +
  geom_text(aes(x = rlabel*sin(mid_angle), y = rlabel*cos(mid_angle), label = Cnt,
                hjust = hjust, vjust = vjust)) +
  coord_fixed() +
  scale_x_continuous(limits = c(-1.5, 1.4), name = "", breaks = NULL, labels = NULL) +
  scale_y_continuous(limits = c(-1, 1), name = "", breaks = NULL, labels = NULL) +
  facet_grid(Channel~.)

pour modifier la position du texte de l'étiquette par rapport à la coordonnée, vous pouvez utiliser les arguments vjust et hjust de geom_text . Cela va déterminer la position de toutes les étiquettes simultanément, de sorte que cela pourrait ne pas être ce dont vous avez besoin.

alternativement, vous pouvez modifier la coordonnée du label. Définissez un nouveau data.frame où vous faites la moyenne des coordonnées Cnt ( label_x[i] = Cnt[i+1] + Cnt[i] ) pour positionner l'étiquette au centre de cette tarte particulière. Il suffit de passer ce nouveau data.frame à geom_text en remplacement de l'original data.frame .

en outre, piecharts ont quelques défauts d'interprétation visuelle. En général, je ne les utiliserais pas, surtout lorsqu'il existe de bonnes alternatives, par exemple un dotplot:

ggplot(dat, aes(x = Cnt, y = Volume)) + 
  geom_point() + 
  facet_wrap(~ Channel, ncol = 1)

par exemple, de cette parcelle il est évident que Cnt est plus élevé pour Kiosque que pour Agent, cette information est perdue dans le piechart.

la réponse suivante est partielle, clunky et je ne l'accepterai pas. L'espoir est qu'elle sollicitera une meilleure solution.

text_KIOSK = dat$Cnt
text_AGENT = dat$Cnt
text_KIOSK[dat$Channel=='AGENT'] = 0
text_AGENT[dat$Channel=='KIOSK'] = 0
text_KIOSK = text_KIOSK/1.7 + c(0,cumsum(text_KIOSK)[-length(dat$Cnt)])
text_AGENT = text_AGENT/1.7 + c(0,cumsum(text_AGENT)[-length(dat$Cnt)])
text_KIOSK[dat$Channel=='AGENT'] = 0
text_AGENT[dat$Channel=='KIOSK'] = 0
pie_text = text_KIOSK + text_AGENT


vis = ggplot(data=dat, aes(x=factor(1), y=Cnt, fill=Volume)) +
  geom_bar(stat="identity", position=position_fill(width=1)) +
  coord_polar(theta="y") +
  facet_grid(Channel~.) +
  geom_text(aes(y=pie_text, label=format(Cnt,format="d",big.mark=','), ymax=Inf), position=position_fill(width=1))

il produit le graphique suivant:

comme vous l'avez remarqué, Je ne peux pas déplacer les étiquettes pour le vert (Bas).