Corrigindo a ordem das facetas no ggplot

Dados:

df <- data.frame(
    type   = c("T", "F", "P", "T", "F", "P", "T", "F", "P", "T", "F", "P"), 
    size   = c("50%", "50%", "50%", "100%", "100%", "100%", "150%", "150%", "150%", "200%", "200%", "200%"),
    amount = c(48.4, 48.1, 46.8, 25.9, 26, 24.9, 21.1, 21.4, 20.1, 20.8, 21.5, 16.5)
)

Eu preciso traçar um gráfico de barras dos dados acima usando ggplot (eixo x -> type, eixo y -> amount, agrupar por size). Quando usei o código a seguir, não estou obtendo a variável typee também sizena ordem mostrada nos dados. Por favor, veja a figura. Usei o seguinte código para isso.

 ggplot(df, aes(type, amount , fill=type, group=type, shape=type, facets=size)) + 
  geom_bar(width=0.5, position = position_dodge(width=0.6)) + 
  facet_grid(.~size) + 
  theme_bw() + 
  scale_fill_manual(values = c("darkblue","steelblue1","steelblue4"), 
                    labels = c("T", "F", "P"))

.

Para corrigir o problema do pedido, usei um método de fator para a variável "tipo" usando o seguinte. Por favor, veja a figura também.

temp$new = factor(temp$type, levels=c("T","F","P"), labels=c("T","F","P")) 

No entanto, agora não sei como corrigir a ordem da variável size. Deve ser 50%, 100%. 150% e 200%.

Faça do seu tamanho um fator importante no seu dataframe:

temp$size_f = factor(temp$size, levels=c('50%','100%','150%','200%'))

Em seguida, mude o facet_grid(.~size)parafacet_grid(.~size_f)

Então plote:

Os gráficos agora estão na ordem correta.

Aqui está uma solução que mantém as coisas dentro de uma cadeia de tubos dplyr. Você classifica os dados antecipadamente e, em seguida, usa mutate_at para converter em um fator. Modifiquei ligeiramente os dados para mostrar como essa solução pode ser aplicada de maneira geral, dados dados que podem ser classificados de maneira sensata:

# the data
temp <- data.frame(type=rep(c("T", "F", "P"), 4),
                    size=rep(c("50%", "100%", "200%", "150%"), each=3), # cannot sort this
                    size_num = rep(c(.5, 1, 2, 1.5), each=3), # can sort this
                    amount=c(48.4, 48.1, 46.8, 
                             25.9, 26.0, 24.9,
                             20.8, 21.5, 16.5,
                             21.1, 21.4, 20.1))

temp %>% 
  arrange(size_num) %>% # sort
  mutate_at(vars(size), funs(factor(., levels=unique(.)))) %>% # convert to factor

  ggplot() + 
  geom_bar(aes(x = type, y=amount, fill=type), 
           position="dodge", stat="identity") + 
  facet_grid(~ size)

Você também pode aplicar esta solução para organizar as barras dentro das facetas, embora só possa escolher uma única ordem preferencial:

    temp %>% 
  arrange(size_num) %>%
  mutate_at(vars(size), funs(factor(., levels=unique(.)))) %>%
  arrange(desc(amount)) %>%
  mutate_at(vars(type), funs(factor(., levels=unique(.)))) %>%
  ggplot() + 
  geom_bar(aes(x = type, y=amount, fill=type), 
           position="dodge", stat="identity") + 
  facet_grid(~ size)


  ggplot() + 
  geom_bar(aes(x = type, y=amount, fill=type), 
           position="dodge", stat="identity") + 
  facet_grid(~ size)