R: graphique en secteurs avec pourcentage d'étiquettes à l'aide de ggplot2

À partir d'un bloc de données je veux tracer un graphique à secteurs pour cinq catégories avec leurs pourcentages des étiquettes sur le même graphe dans l'ordre du plus élevé au plus bas, dans le sens horaire.

Mon code est:

League<-c("A","B","A","C","D","E","A","E","D","A","D")
data<-data.frame(League) # I have more variables 

p<-ggplot(data,aes(x="",fill=League))
p<-p+geom_bar(width=1)
p<-p+coord_polar(theta="y")
p<-p+geom_text(data,aes(y=cumsum(sort(table(data)))-0.5*sort(table(data)),label=paste(as.character(round(sort(table(data))/sum(table(data)),2)),rep("%",5),sep="")))
p

- Je utiliser

cumsum(sort(table(data)))-0.5*sort(table(data))

de placer l'étiquette dans la partie correspondante et

label=paste(as.character(round(sort(table(data))/sum(table(data)),2)),rep("%",5),sep="")

pour les étiquettes qui les pourcentages.

J'obtiens le résultat suivant:

Error: ggplot2 doesn't know how to deal with data of class uneval

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

OriginalL'auteur pescobar | 2014-10-15

10

J'ai conservé la plupart de votre code. J'ai trouvé cela assez facile à déboguer en laissant de côté les coord_polar... plus facile de voir ce qu'il se passe comme un graphique à barres.

La chose principale était de réorganiser le facteur de la plus haute à la plus basse pour obtenir le tracé de commande correct, puis il suffit de jouer avec l'étiquette de positions pour obtenir leur droit. J'ai également simplifié le code pour les étiquettes (vous n'avez pas besoin de la as.character ou la rep, et paste0 est un raccourci pour sep = "".)
```
League<-c("A","B","A","C","D","E","A","E","D","A","D")
data<-data.frame(League) # I have more variables 

data$League <- reorder(data$League, X = data$League, FUN = function(x) -length(x))

at <- nrow(data) - as.numeric(cumsum(sort(table(data)))-0.5*sort(table(data)))

label=paste0(round(sort(table(data))/sum(table(data)),2) * 100,"%")

p <- ggplot(data,aes(x="", fill = League,fill=League)) +
  geom_bar(width = 1) +
  coord_polar(theta="y") +
  annotate(geom = "text", y = at, x = 1, label = label)
p
```
La at de calcul est de trouver le centre de les quartiers. (Il est plus facile de penser à eux comme des centres de barres en barres empilées intrigue, il suffit d'exécuter le au-dessus de l'intrigue sans la coord_polar ligne pour voir.) Le at calcul peut être décomposée comme suit:

table(data) est le nombre de lignes dans chaque groupe, et sort(table(data)) les met dans l'ordre qu'ils vont être tracée. En prenant le cumsum() de qui nous donne les bords de chaque barre lorsque empilés les uns sur les autres, et en multipliant par 0,5 nous donne la moitié les hauteurs de chaque barre dans la pile (ou la moitié de la largeur des cales de la tarte).

as.numeric() simplement nous permet de disposer d'un vecteur numérique plutôt qu'un objet de la classe table.

Soustrayant les demi-largeurs de la somme des hauteurs donne les centres de chaque barre lorsqu'ils sont empilés. Mais ggplot va empiler les bars avec le plus grand sur le fond, alors que tous nos sort()ing met le plus petit d'abord, nous avons donc besoin de faire nrow - tout parce que ce que nous avons fait calculer sont l'étiquette de positions par rapport à la haut de la barre, pas le fond. (Et, avec l'origine des données ventilées, nrow() est le nombre total de lignes d'où la hauteur totale de la barre.)

merci beaucoup!! J'allais fou pour faire cela. Je suis noob avec le ggplot2 de la bibliothèque.
pourriez-vous expliquer ce que votre code est fait lors du calcul de at? Merci beaucoup.
ajouté quelques paragraphes en bas, voir si cela aide.
très claire et compréhensible, je vous remercie! 🙂

OriginalL'auteur Gregor

Préface: je n'ai pas fait les camemberts de ma propre volonté.

Voici une modification de la ggpie fonction qui comprend des pourcentages:

library(ggplot2)
library(dplyr)
#
# df$main should contain observations of interest
# df$condition can optionally be used to facet wrap
#
# labels should be a character vector of same length as group_by(df, main) or
# group_by(df, condition, main) if facet wrapping
#
pie_chart <- function(df, main, labels = NULL, condition = NULL) {
# convert the data into percentages. group by conditional variable if needed
df <- group_by_(df, .dots = c(condition, main)) %>%
summarize(counts = n()) %>%
mutate(perc = counts / sum(counts)) %>%
arrange(desc(perc)) %>%
mutate(label_pos = cumsum(perc) - perc / 2,
perc_text = paste0(round(perc * 100), "%"))
# reorder the category factor levels to order the legend
df[[main]] <- factor(df[[main]], levels = unique(df[[main]]))
# if labels haven't been specified, use what's already there
if (is.null(labels)) labels <- as.character(df[[main]])
p <- ggplot(data = df, aes_string(x = factor(1), y = "perc", fill = main)) +
# make stacked bar chart with black border
geom_bar(stat = "identity", color = "black", width = 1) +
# add the percents to the interior of the chart
geom_text(aes(x = 1.25, y = label_pos, label = perc_text), size = 4) +
# add the category labels to the chart
# increase x /play with label strings if labels aren't pretty
geom_text(aes(x = 1.82, y = label_pos, label = labels), size = 4) +
# convert to polar coordinates
coord_polar(theta = "y") +
# formatting
scale_y_continuous(breaks = NULL) +
scale_fill_discrete(name = "", labels = unique(labels)) +
theme(text = element_text(size = 22),
axis.ticks = element_blank(),
axis.text = element_blank(),
axis.title = element_blank())
# facet wrap if that's happening
if (!is.null(condition)) p <- p + facet_wrap(condition)
return(p)
}

Exemple:

# sample data
resps <- c("A", "A", "A", "F", "C", "C", "D", "D", "E")
cond <- c(rep("cat A", 5), rep("cat B", 4))
example <- data.frame(resps, cond)

Comme un typique ggplot appel:

ex_labs <- c("alpha", "charlie", "delta", "echo", "foxtrot")
pie_chart(example, main = "resps", labels = ex_labs) +
labs(title = "unfacetted example")

R: graphique en secteurs avec pourcentage d'étiquettes à l'aide de ggplot2

ex_labs2 <- c("alpha", "charlie", "foxtrot", "delta", "charlie", "echo")
pie_chart(example, main = "resps", labels = ex_labs2, condition = "cond") +
labs(title = "facetted example")

R: graphique en secteurs avec pourcentage d'étiquettes à l'aide de ggplot2

C'est une grande codage. Je vais avoir des problèmes avec toutes les solutions où ma carte semble être construit dans le sens antihoraire, mais mes étiquettes sont des aiguilles d'une montre? Merci
J'ai essayé de changer la direction de la polaire avec direction=-1 mais il semble flip à la fois le pourcentage et la direction si je reçois le même problème
Résolu @Reno. J'ai changé la ligne suivante label_pos = sum(perc) - cumsum(perc) + perc / 2
a fonctionné pour moi avec un 1-(cumsum(perc)-perc/2). il est Également utile d' theme_void()

OriginalL'auteur alexpghayes

Il a travaillé sur l'ensemble inclus la fonction grandement inspiré de ici

 ggpie <- function (data) 
{
# prepare name
deparse( substitute(data) ) -> name ;
# prepare percents for legend
table( factor(data) ) -> tmp.count1
prop.table( tmp.count1 ) * 100 -> tmp.percent1 ;
paste( tmp.percent1, " %", sep = "" ) -> tmp.percent2 ;
as.vector(tmp.count1) -> tmp.count1 ;
# find breaks for legend
rev( tmp.count1 ) -> tmp.count2 ;
rev( cumsum( tmp.count2 ) - (tmp.count2 / 2) ) -> tmp.breaks1 ;
# prepare data
data.frame( vector1 = tmp.count1, names1 = names(tmp.percent1) ) -> tmp.df1 ;
# plot data
tmp.graph1 <- ggplot(tmp.df1, aes(x = 1, y = vector1, fill = names1 ) ) +
geom_bar(stat = "identity", color = "black" ) +
guides( fill = guide_legend(override.aes = list( colour = NA ) ) ) +
coord_polar( theta = "y" ) +
theme(axis.ticks = element_blank(),
axis.text.y = element_blank(),
axis.text.x = element_text( colour = "black"),
axis.title = element_blank(),
plot.title = element_text( hjust = 0.5, vjust = 0.5) ) +
scale_y_continuous( breaks = tmp.breaks1, labels = tmp.percent2 ) +   
ggtitle( name ) + 
scale_fill_grey( name = "") ;
return( tmp.graph1 )
} ;

Un exemple :

sample( LETTERS[1:6], 200, replace = TRUE) -> vector1 ;
ggpie(vector1)

Sortie

OriginalL'auteur François Jean

Vous devez vous connecter pour publier un commentaire.