ggplot facet_wrap с конкретным порядком переменных в каждой грани

Question

Я хотел бы построить эти данные с ggplot:

library(ggplot2) 
set.seed(0) 
df <- data.frame(
    var1 = rep(c("group1", "group2"), each = 3), 
    var2 = rep(letters[1:3], 2), 
    value = runif(6, 0, 10) 
) 

Участок должен быть граненый, как это:

pl <- ggplot(df, aes(var2, value)) 
pl <- pl + geom_col() 
pl <- pl + facet_wrap(~ var1, scales = "free") 
pl 

Порядок var2 на ось x должна определяться путем увеличения порядка value. Я мог бы достичь этого делания:

df$temp_var <- paste(df$var1, df$var2) 
pl <- ggplot(df, aes(reorder(temp_var, value), value)) 
pl <- pl + geom_col() 
pl <- pl + facet_wrap(~ var1, scales = "free") 
pl 

Однако, х-метки оси должны быть a, b и c. Обычно, я бы преобразовал var2 в фактор с уровнями факторов, которые мне нужны, но в этом случае это, вероятно, невозможно. У кого-нибудь есть идеи, как это можно сделать? :)

Answer 1

Просто установите метки осей, чтобы отличаться от фактических перерывов с именем вектора символов:

pl + scale_x_discrete(labels = setNames(as.character(df$var2), df$temp_var))