Prozentsatz auf y lab in einem facettierten ggplot-Balkendiagramm?

tun Facetten in ggplot ich würde gerne den Prozentsatz anstelle von verwendet werden zählt.

z.B.

test1 <- sample(letters[1:2], 100, replace=T)
test2 <- sample(letters[3:8], 100, replace=T)
test <- data.frame(cbind(test1,test2))
ggplot(test, aes(test2))+geom_bar()+facet_grid(~test1)

Dies ist sehr einfach, aber wenn N unterscheidet sich in Facette Ein im Vergleich zu Facette B, besser wäre es, denke ich, zu vergleichen Prozentsätze in der Weise, dass die einzelnen Facetten Summen zu 100%.

wie würden Sie dies erreichen?

Hoffe, dass meine Frage Sinn macht.

Aufrichtig.

InformationsquelleAutor der Frage Andreas | 2011-01-18

ggplot2 r

Versuchen Sie dies:

# first make a dataframe with frequencies
df <- as.data.frame(with(test, table(test1,test2)))
# or with count() from plyr package as Hadley suggested
df <- count(test, vars=c('test1', 'test2'))
# next: compute percentages per group
df <- ddply(df, .(test1), transform, p = Freq/sum(Freq))
# and plot
ggplot(df, aes(test2, p))+geom_bar()+facet_grid(~test1)

Prozentsatz auf y lab in einem facettierten ggplot-Balkendiagramm?

Könnte man auch hinzufügen + scale_y_continuous(formatter = "percent") an den plot für ggplot2 version 0.8.9, oder + scale_y_continuous(labels = percent_format()) für die version 0.9.0.

InformationsquelleAutor der Antwort daroczig

44

Hier ist ein innerhalb ggplot Methode, mit ..count.. und ..PANEL..:
```
ggplot(test, aes(test2)) + 
    geom_bar(aes(y = (..count..)/tapply(..count..,..PANEL..,sum)[..PANEL..])) + 
    facet_grid(~test1)
```
Wie diese berechnet on-the-fly, es sollte robust sein, um änderungen an plot-Parameter.

InformationsquelleAutor der Antwort James
6

Sehr einfache Weise:
```
ggplot(test, aes(test2)) + 
    geom_bar(aes(y = (..count..)/sum(..count..))) + 
    facet_grid(~test1)
```
So dass ich nur die geänderten parameter von geom_bar zu aes(y = (..count..)/sum(..count..)).
Nach der Einstellung ylab NULL, und die Angabe der formatter, die man bekommen konnte:
```
ggplot(test, aes(test2)) +
    geom_bar(aes(y = (..count..)/sum(..count..))) + 
    facet_grid(~test1) +
    scale_y_continuous('', formatter="percent")
```
Update
Beachten Sie, dass während formatter = "percent") Werke für ggplot2 version 0.8.9, in 0.9.0 Sie würde wollen, dass so etwas wie scale_y_continuous(labels = percent_format()).

InformationsquelleAutor der Antwort daroczig
1

Hier ist eine Lösung, sollte Euch in die richtige Richtung bewegen. Ich bin gespannt zu sehen, ob es effizientere Wege zu gehen, dies zu tun, wie dies scheint ein bisschen hacky und verworren. Wir können mit dem eingebauten ..density.. argument für die y aesthetic, aber Faktoren, die nicht dort arbeiten. So müssen wir auch nutzen scale_x_discrete zur entsprechenden Beschriftung der Achse sobald wir umgewandelt test2 in ein numerisches Objekt.
```
ggplot(data = test, aes(x = as.numeric(test2)))+ 
geom_bar(aes(y = ..density..), binwidth = .5)+ 
scale_x_discrete(limits = sort(unique(test$test2))) + 
facet_grid(~test1) + xlab("Test 2") + ylab("Density") 
```
Sondern geben diesem einen Wirbel und lassen Sie mich wissen, was Sie denken.

Können, können Sie auch verkürzen Ihre Testdaten-Erstellung wie so, was verhindert, dass die zusätzlichen Objekte in Ihrer Umgebung, und dass cbind Sie zusammen:
```
test <- data.frame(
    test1 = sample(letters[1:2], 100, replace = TRUE), 
    test2 = sample(letters[3:8], 100, replace = TRUE)
)
```
InformationsquelleAutor der Antwort Chase

Beschäftige ich mich mit ähnlichen Situationen relativ Häufig, aber nehmen Sie einen ganz anderen Ansatz verwendet zwei von Hadley ' s andere Pakete, nämlich neu zu gestalten und plyr. Vor allem, weil ich habe eine Vorliebe für Dinge zu betrachten als 100% gestapelte Balken (wenn Sie insgesamt 100%).

test <- data.frame(sample(letters[1:2], 100, replace=T), sample(letters[3:8], 100, replace=T))
colnames(test) <- c("variable","value")
test <- cast(test, variable + value ~ .) 
colnames(test)[3] <- "frequ"

test <- ddply(test,"variable", function(x) {
    x <- x[order(x$value),]
    x$cfreq <- cumsum(x$frequ)/sum(x$frequ)
    x$pos <- (c(0,x$cfreq[-nrow(x)])+x$cfreq)/2
    x$freq <- (x$frequ)/sum(x$frequ)
    x
})

plot.tmp <- ggplot(test, aes(variable,frequ, fill=value)) + geom_bar(stat="identity", position="fill") + coord_flip() + scale_y_continuous("", formatter="percent")

InformationsquelleAutor der Antwort Brandon Bertelsen

0

Vielen Dank für das PANEL "Tipp" auf die ggplot Methode.

Informationen: stellen Sie die Prozentsätze in y lab auf der gleichen Balkendiagramm, indem count und group im ggplot Methode:
```
ggplot(test, aes(test2,fill=test1))
   + geom_bar(aes(y = (..count..)/tapply(..count..,..group..,sum)[..group..]), position="dodge")
   + scale_y_continuous(labels = percent)
```
InformationsquelleAutor der Antwort Lilly

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.