Jak kontrolować kolejność skumulowany wykres słupkowy przy użyciu tożsamości na ggplot2

Question

Stosując ten manekin data.frame

ts <- data.frame(x=1:3, y=c("blue", "white", "white"), z=c("one", "one", "two")) 

Staram i działka z kategorii „niebieski” na wierzchu.

ggplot(ts, aes(z, x, fill=factor(y, levels=c("blue","white")))) + geom_bar(stat = "identity") 

daje mi "białe" na wierzchu. i

ggplot(ts, aes(z, x, fill=factor(y, levels=c("white", "blue")))) + geom_bar(stat = "identity") 

odwraca kolory, ale wciąż daje mi "białe" na wierzchu. Jak mogę uzyskać "niebieski" na górze?

Answer 1

Już wcześniej walczyłem z tym samym problemem. Wygląda na to, że ggplot układa pręty w oparciu o ich wygląd w ramce danych. Tak więc rozwiązanie problemu jest sortowanie danych przez współczynnik wypełnienia w odwrotnej kolejności chcesz go do stawienia się w legendzie: dolny element na górze dataframe, a górna pozycja na dole:

ggplot(ts[order(ts$y, decreasing = T),], 
     aes(z, x, fill=factor(y, levels=c("blue","white")))) + 
    geom_bar(stat = "identity") 

Edycja: Więcej ilustracja

Korzystanie z przykładowych danych, stworzyłem trzy działki o różnych porządków w dataframe, myślałem, że więcej fill-zmienne by dokonać rzeczy nieco jaśniejsze.

set.seed(123) 
library(gridExtra) 
df <- data.frame(x=rep(c(1,2),each=5), 
       fill_var=rep(LETTERS[1:5], 2), 
       y=1) 
#original order 
p1 <- ggplot(df, aes(x=x,y=y,fill=fill_var))+ 
    geom_bar(stat="identity") + labs(title="Original dataframe") 


#random order 
p2 <- ggplot(df[sample(1:10),],aes(x=x,y=y,fill=fill_var))+ 
    geom_bar(stat="identity") + labs(title="Random order") 
#legend checks out, sequence wird 

#reverse order 
p3 <- ggplot(df[order(df$fill_var,decreasing=T),], 
      aes(x=x,y=y,fill=fill_var))+ 
    geom_bar(stat="identity") + labs(title="Reverse sort by fill") 

plots <- list(p1,p2,p3) 

do.call(grid.arrange,plots) 

Answer 2

Mam dokładnie ten sam problem dzisiaj. Można uzyskać blue na górze za pomocą order=-as.numeric():

ggplot(ts, 
aes(z, x, fill=factor(y, levels=c("blue","white")), order=-as.numeric(y))) + 
geom_bar(stat = "identity") 

Answer 3

Na co warto, w wersji 2.2.1 ggplot2 kolejność stosu nie jest określona przez kolejność wierszy w data.frame. Zamiast tego dopasowuje kolejność legendy, określoną przez kolejność poziomów w współczynniku.

d <- data.frame(
    y=c(0.1, 0.2, 0.7), 
    cat = factor(c('No', 'Yes', 'NA'), levels = c('NA', 'Yes', 'No'))) 

# Original order 
p1 <- ggplot(d, aes(x=1, y=y, fill=cat)) + 
    geom_bar(stat='identity') 

# Change order of rows 
p2 <- ggplot(d[c(2, 3, 1), ], aes(x=1, y=y, fill=cat)) + 
    geom_bar(stat='identity') 

# Change order of levels 
d$cat2 <- relevel(d$cat, 'Yes') 
p3 <- ggplot(d, aes(x=1, y=y, fill=cat2)) + 
    geom_bar(stat='identity') 

grid.arrange(p1, p2, p3, ncol=3) 

Wynika to na poniższym wykresie:

Answer 4

Użyj group aethetic w zaproszeniu ggplot(). Zapewnia to, że wszystkie warstwy są ułożone w stos w taki sam sposób.

series <- data.frame(
    time = c(rep(1, 4),rep(2, 4), rep(3, 4), rep(4, 4)), 
    type = rep(c('a', 'b', 'c', 'd'), 4), 
    value = rpois(16, 10) 
) 

ggplot(series, aes(time, value, group = type)) + 
    geom_col(aes(fill = type)) + 
    geom_text(aes(label = type), position = "stack")