L'ajout de pourcentage des étiquettes sur le diagramme de R

Mon bloc de données ressemble à

df
   Group   value
1 Positive    52
2 Negative   239
3 Neutral     9

Je voudrais faire un graphique à secteurs de la trame de données à l'aide de ggplot.

pie <- ggplot(df, aes(x="", y=value, fill=Group)) +
       geom_bar(width = 1, stat = "identity") +
       coord_polar("y", start=0)

C'est mon camembert.

L'ajout de pourcentage des étiquettes sur le diagramme de R

Mais quand j'essaie d'ajouter un pourcentage des étiquettes sur le graphique

pie <- ggplot(df, aes(x="", y=value, fill=Group)) +
       geom_bar(width = 1, stat = "identity") +
       coord_polar("y", start=0) +
       geom_text(aes(y = value/2 + c(0, cumsum(value)[-length(value)]),
                 label = percent(value/300 )), size=5)

C'est mon résultat.

L'ajout de pourcentage des étiquettes sur le diagramme de R

J'ai déjà vu beaucoup de la même question que moi,je.e R + ggplot2 => ajouter des étiquettes sur la facette de camembert et les solutions ne sont pas à l'aider.

InformationsquelleAutor Abdul Hakeem Mahmood | 2016-12-27

2

Je suis d'accord avec @hrbrmstr une gaufre graphique serait mieux. Mais pour répondre à la question d'origine... votre problème vient de l'ordre dans lequel les coins sont dessinés, qui par défaut est alphabétique. Comme vous le calculer l'emplacement des étiquettes en fonction de la commande dans votre bloc de données, cela fonctionne mal.

Comme un principe général de la lisibilité, de faire toutes les fantaisie calculs des étiquettes et des positions qu'ils aller avant le code de dessin graphique.
```
library(dplyr)
library(ggplot2)
library(ggmap) # for theme_nothing
df <- data.frame(value = c(52, 239, 9),
                 Group = c("Positive", "Negative", "Neutral")) %>%
   # factor levels need to be the opposite order of the cumulative sum of the values
   mutate(Group = factor(Group, levels = c("Neutral", "Negative", "Positive")),
          cumulative = cumsum(value),
          midpoint = cumulative - value / 2,
          label = paste0(Group, " ", round(value / sum(value) * 100, 1), "%"))

ggplot(df, aes(x = 1, weight = value, fill = Group)) +
   geom_bar(width = 1, position = "stack") +
   coord_polar(theta = "y") +
   geom_text(aes(x = 1.3, y = midpoint, label = label)) +
   theme_nothing()               
```
- Je pense que le pourcentage des étiquettes pour les Positifs et Négatifs sont inversés dans votre graphique.
- merci @jazzurro, j'ai maintenant corrigé. Le code est très beau, j'ai juste eu le mauvais chiffres de l'original de la trame de données. Si l'OP a inclus un exemple reproductible je n'aurais pas fait cette faute de frappe.
- C'est le travail. Merci @PeterEllis , vous avez sauvé ma vie 🙂
InformationsquelleAutor Peter Ellis
6

Comment sur:
```
vals <- c(239, 52, 9)
val_names <- sprintf("%s (%s)", c("Negative", "Positive", "Neutral"), scales::percent(round(vals/sum(vals), 2)))
names(vals) <- val_names

waffle::waffle(vals) +
  ggthemes::scale_fill_tableau(name=NULL)
```
à la place?

C'est "fraîche" que d'un camembert et vous n'êtes pas vraiment gagner quelque chose avec le niveau de précision que vous voulez sur les étiquettes de graphique maintenant.
- D'accord. mais le problème est que ce graphique est de mon projet de fin d'études et j'ai utilisé un camembert quand j'ai présenté le projet de thèse. maintenant, je ne peux pas changer les cartes. il fonctionnait bien à l'époque, je ne pas ce qui s'est passé avec le code. Merci quand même
InformationsquelleAutor hrbrmstr
3

Par exemple, j'ai créer un dataframe e3, avec plus de 400 véhicules:
```
e3 <- data.frame(400)
e3 <- rep( c("car", "truck", "other", "bike", "suv"), c(60, 120, 20, 50, 150))
```
Depuis des diagrammes à secteurs sont particulièrement utiles pour les proportions, jetons un coup d'oeil sur les proportions de nos véhicules, que nous ferons rapport sur le graphique dans ce cas:
```
paste(prop.table(table(e3))*100, "%", sep = "")
[1] "15%"   "5%"    "30%"   "12.5%" "37.5%"
```
Alors vous pouvez tracer le graphique à secteurs,
```
pie(table(e3), labels = paste(round(prop.table(table(e3))*100), "%", sep = ""), 
col = heat.colors(5), main = "Vehicles proportions - n: 400")
```
- Uops, j'ai oublié ggplo2, désolé!
InformationsquelleAutor Worice

Ici est une idée correspondant à l'ordre des groupes dans le camembert et la commande d'étiquettes. J'ai trié les données dans l'ordre décroissant par value. J'ai aussi calculé le pourcentage à l'avance. Quand j'ai dessiné la ggplot la figure, j'ai précisé que l'ordre de Group dans l'ordre mydf (c'est à dire, Négatif, Positif et Neutre) à l'aide de fct_inorder(). Lorsque geom_label_repel() ajouté des étiquettes de la tarte, de l'ordre de l'étiquette est identique à celle de la tarte.

library(dplyr)
library(ggplot2)
library(ggrepel)
library(forcats)
library(scales)

mydf %>%
arrange(desc(value)) %>%
mutate(prop = percent(value / sum(value))) -> mydf 

pie <- ggplot(mydf, aes(x = "", y = value, fill = fct_inorder(Group))) +
       geom_bar(width = 1, stat = "identity") +
       coord_polar("y", start = 0) +
       geom_label_repel(aes(label = prop), size=5, show.legend = F, nudge_x = 1) +
       guides(fill = guide_legend(title = "Group"))

L'ajout de pourcentage des étiquettes sur le diagramme de R

DONNÉES

mydf <- structure(list(Group = structure(c(3L, 1L, 2L), .Label = c("Negative", 
"Neutral", "Positive"), class = "factor"), value = c(52L, 239L, 
9L)), .Names = c("Group", "value"), class = "data.frame", row.names = c("1", 
"2", "3"))

InformationsquelleAutor jazzurro

Vous devez vous connecter pour publier un commentaire.