R ggplot определенный порядок баров

Question

Итак, я делаю несколько нисходящих упорядоченных штрих-кодов в R, используя ggplot. Каждый из этих графиков содержит один бар под названием «другие», который всегда должен быть последним. Как реализовать это оптимально? В более общем плане: есть ли простая возможность выбрать одну полосу штрихового графика и переместить ее в последнюю позицию без ручного изменения всех уровней.

Большое спасибо заранее, Крис

Answer 1

Хитрость заключается в том, чтобы использовать фактор, как следует

library(ggplot2) # for plots 
# dummy data 
dat <- data.frame(
    letters = c("A","B","Other","X","Y","Z"), 
    probs = sample(runif(6)*10,6) 
) 

# not what we want 
ggplot(dat, aes(letters, probs)) + geom_bar(stat = "identity") 

# magic happens here 
# factor, and push Other to end of levels using c(others, other) 
dat$letters <- factor(
    dat$letters, 
    levels = c(
    levels(dat$letters)[!levels(dat$letters) == "Other"], 
    "Other") 
) 

ggplot(dat, aes(letters, probs)) + geom_bar(stat = "identity") 

Если вы используете + coord_flip(), используйте levels = rev(c(...)) для интуитивного заказа

dat$letters <- factor(
    dat$letters, 
    levels = rev(c(
    levels(dat$letters)[!levels(dat$letters) == "Other"], 
    "Other")) 
) 

ggplot(dat, aes(letters, probs)) + geom_bar(stat = "identity") + coord_flip()