ファセットの順序を変更する

Question

ファセットの順序をBA、SLGからSLG、BAに変更しようとしています。私はこれに似た質問を見つけましたが、データを要約したので、私の解決策はうまくいかないかもしれません。したがって、私のデータフレームは異なるかもしれません。とにかくこれを実装してみました。

df2 <- factor(df, levels = c("SLG","BA")) 

この問題を解決する助けがあれば幸いです。ギャザー（DF、グループ、データ、SLG、BA） '=' DFXの$グループを行う因子（DFXの$基、レベル= Cの（「SLG - `DFX <後

df <- read.table(textConnection(
    'POS SLG BA 
    2B 0.4632 .23 
    3B 0.468652174 .24 
    SS 0.4146 .22 
    1B 0.472368421 .25 
    RF 0.462684211 .245 
    CF 0.4435 .225 
    LF 0.4474 .226 
    C 0.440875 .228 
    DH 0.508714286 .28'), header = TRUE,stringsAsFactors = FALSE) 


library(micromapST) 
library(ggplot2) 
library(tidyr) 
library(dplyr) 
library(dplyr) 
df$POS <- reorder(as.factor(df$POS), df$SLG) 
dfx <- gather(df, group, data, SLG, BA) 
row.names(df) <- NULL 

theme_set(theme_grey() + 
      theme(plot.title = element_text(hjust=0.5,face='bold'), 
        axis.title.y = element_text(angle = 0, vjust = 0.5,face='bold'), 
        axis.title.x=element_text(face='bold'), 
        panel.background = element_rect(fill = "gray"), 
        axis.ticks=element_blank())) 


plot <- ggplot(dfx, aes(x = data, y = POS, group = group, fill = POS))+ 
    labs(title = "Position vs Slugging Percentage", x = "SLG", y = "Position") + 
    geom_point(shape = 21, size = 3) + 
    theme(plot.title = element_text(hjust = 0.5), 
     plot.subtitle = element_text(hjust = 0.5), 
     plot.caption = element_text(hjust = -0.5), 
     legend.position = "", 
     strip.text.y = element_blank(), 
     strip.background = element_rect(fill = rgb(.9,.95,1), 
             colour = gray(.5), size=.2), 
     panel.border = element_rect(fill = FALSE, colour=gray(.75)), 
     panel.grid.minor.x = element_blank(), 
     panel.grid.minor.y = element_blank(), 
     panel.spacing.x = unit(0.07,"cm"), 
     panel.spacing.y = unit(0.07,"cm"), 
     axis.ticks = element_blank(), 
     axis.text = element_text(colour = "black"), 
     axis.text.y = element_text(size = rel(.78), face = "bold", 
            margin = margin(0,0,0,3)), 
     axis.text.x = element_text(margin = margin(-1,0,3,0))) + 
    facet_grid(~group, scale = "free") 

plot 

Answer 1

dfx$group <- factor(dfx$group, levels = c("SLG","BA"))