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

Je suis en train de produire une facettes camembert avec ggplot et confrontés à des problèmes avec la mise en place du texte dans le milieu de chaque tranche:

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

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

Quels sont les paramètres de geom_text devrait être ajusté afin de placer numérique d'étiquettes dans le milieu de piechart tranches?

Question connexe est de savoir Tarte à la parcelle de l'obtention de son texte sur le dessus les uns des autres mais il ne gère pas les cas avec des facettes.

Mise à JOUR: a la suite de Paul Hiemstra conseils et l'approche de la question ci-dessus j'ai modifié le code comme suit:

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

Comme je m'y attendais, le peaufinage du texte coordiantes est absolu, mais il doit être à l'intérieur de la facette des données:
ggplot, facette, piechart: placer le texte au milieu de camembert en tranches

ma dernière solution à ce problème est d'éviter les camemberts chaque fois que possible 🙂

OriginalL'auteur topchef | 2013-04-24

NOUVELLE RÉPONSE: Avec l'introduction de ggplot2 v2.2.0, position_stack() peut être utilisé pour positionner les étiquettes sans avoir besoin de calculer une position variable de la première. Le code suivant vous donnera le même résultat que la vieille réponse:

ggplot(data = dat, aes(x = "", y = Cnt, fill = Volume)) + 
  geom_bar(stat = "identity") +
  geom_text(aes(label = Cnt), position = position_stack(vjust = 0.5)) +
  coord_polar(theta = "y") +
  facet_grid(Channel ~ ., scales = "free")

Pour supprimer les "creux" de centre, d'adapter le code pour:

ggplot(data = dat, aes(x = 0, y = Cnt, fill = Volume)) + 
  geom_bar(stat = "identity") +
  geom_text(aes(label = Cnt), position = position_stack(vjust = 0.5)) +
  scale_x_continuous(expand = c(0,0)) +
  coord_polar(theta = "y") +
  facet_grid(Channel ~ ., scales = "free")

VIEILLE RÉPONSE: La solution à ce problème est la création d'une position variable, ce qui peut être fait assez facilement avec la base de R ou avec la les données.table, plyr ou dplyr paquets:

Étape 1: de la Création de la variable position pour chaque Canal

# with base R
dat$pos <- with(dat, ave(Cnt, Channel, FUN = function(x) cumsum(x) - 0.5*x))

# with the data.table package
library(data.table)
setDT(dat)
dat <- dat[, pos:=cumsum(Cnt)-0.5*Cnt, by="Channel"]

# with the plyr package
library(plyr)
dat <- ddply(dat, .(Channel), transform, pos=cumsum(Cnt)-0.5*Cnt)

# with the dplyr package
library(dplyr)
dat <- dat %>% group_by(Channel) %>% mutate(pos=cumsum(Cnt)-0.5*Cnt)

Étape 2: Créer les facettes de l'intrigue

library(ggplot2)
ggplot(data = dat) + 
  geom_bar(aes(x = "", y = Cnt, fill = Volume), stat = "identity") +
  geom_text(aes(x = "", y = pos, label = Cnt)) +
  coord_polar(theta = "y") +
  facet_grid(Channel ~ ., scales = "free")

Le résultat:

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

Merci pour votre jusqu'à la date de l'aide. Est-il un moyen de se débarrasser de la "creux" center? (Le petit cercle blanc au centre)
peut-être un peu tard, mais j'ai mis à jour la réponse

OriginalL'auteur Jaap

Je tiens à dénoncer la façon traditionnelle de faire des tartes dans ggplot2, qui consiste à tirer un empilées barplot en coordonnées polaires. Même si j'apprécie l'élégance mathématique de cette approche, il provoque toutes sortes de maux de tête lors de la parcelle n'a pas l'air tout à fait la façon dont il est censé le faire. En particulier, précisément réglage de la taille de la tarte peut être difficile. (Si vous ne savez pas ce que je veux dire, essayer de faire un graphique circulaire qui s'étend tout le chemin vers le bord de la parcelle.)

Je préfère le dessin de tartes à la normale dans un système de coordonnées cartésiennes, à l'aide de geom_arc_bar() de ggforce. Il nécessite un peu de travail supplémentaire sur l'extrémité avant, parce que nous avons à calculer les angles de nous-mêmes, mais c'est facile et le niveau de contrôle que nous obtenir comme résultat est plus que la peine.
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~.)

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

Pour montrer pourquoi je pense que cette approche est beaucoup plus efficace que le classique (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, tels que nous aurons à régler hjust et vjust selon le côté de la tarte d'un label tombe, et nous aussi, nous aurons à faire le
parcelle panel plus large que haut pour faire de la place pour les étiquettes sur le côté sans générer excessive de l'espace au-dessus et au-dessous. La résolution de ces problèmes dans les coordonnées polaires approche n'est pas amusant, mais il 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~.)

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

OriginalL'auteur Claus Wilke

5

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

Sinon, vous pouvez ajuster les coordonnées de l'étiquette. Définir une nouvelle data.frame où la moyenne de la Cnt de coordonnées (label_x[i] = Cnt[i+1] + Cnt[i]) à la position de l'étiquette dans le centre de la tarte. Il suffit de passer cette nouvelle data.frame à geom_text en remplacement de l'original data.frame.

En outre, piecharts avoir une certaine interprétation visuelle des défauts. En général, je n'aurais pas les utiliser, en particulier, où de bonnes solutions de rechange existent, par exemple un dotplot:
```
ggplot(dat, aes(x = Cnt, y = Volume)) + 
  geom_point() + 
  facet_wrap(~ Channel, ncol = 1)
```
Par exemple, à partir de ce terrain, il est évident que Cnt est plus élevé pour les Kiosque que pour l'Agent, cette information est perdue dans la piechart.

Merci pour la réponse, je vais essayer. Mais je ne peux pas accepter que des propositions de tracé est le remplacement de la piechart. Le fait que le Cnt est plus élevée est perdu en raison principalement de cas de non-alignement des étiquettes de texte, à mon avis.
Le graphique ne peut pas montrer la différence de magnitude entre l'AGENT et le KIOSQUE, car il ne montre que la taille relative. Le texte est beaucoup plus difficile à interpréter, à mon avis. Cet effet devient plus grande lorsque l'on compare, par exemple 5 catégories. Des livres comme amazon.com/Elements-Graphing-Data-William-Cleveland/dp/... préconisent l'utilisation de cartes comme le dot plot en faveur de la piechart. Juste google pour pie chart evil.
Malheureusement, cette réponse ne traite pas de problème d'avoir des facettes que les longueurs besoin d'harmonisation, au sein de la facette de la variable.
Je ne suis pas vraiment sûr de ce que tu veux dire. Si vous avez besoin de taille relative entre les facettes, il suffit d'utiliser scale = free_x dans l'appel à facet_wrap.
Je n'utilise pas fact_wrap - je utiliser facet_grid (dans ce cas n'est pas pertinent en tant que balances s'applique à la fois). Comment ne balances l'aide à l'alignement des étiquettes de texte? Je veux dire le fait que pie_text les chiffres devraient être calculée correspondant à la facette (variable Canal).

OriginalL'auteur Paul Hiemstra

Suivantes réponse est partielle, maladroit et je ne vais pas l'accepter.
L'espoir est qu'il va solliciter la 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 tableau suivant:
ggplot, facette, piechart: placer le texte au milieu de camembert en tranches

Comme vous avez remarqué, je ne peux pas déplacer les étiquettes pour le vert (faible).

Avez-vous vu ma réponse? Je pense qu'il donne la solution que vous demandaient.
Oui, je vous remercie. Je m'en tiendrai à "pas de camembert" de la règle à chaque fois que possible, mais pour les exceptions, votre réponse est la réponse 🙂
Vous êtes complètement à droite pour éviter les tartes autant que possible, mais certaines personnes semblent vraiment aimer. La plupart du temps un bien créé bar-chart est beaucoup plus claire.

OriginalL'auteur topchef

Vous devez vous connecter pour publier un commentaire.