Manually Sort Panels of Facet Plot – R ggplot2 Package (Example Code)

data(iris)                                                         # Load iris
head(iris)
#   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
# 1          5.1         3.5          1.4         0.2  setosa
# 2          4.9         3.0          1.4         0.2  setosa
# 3          4.7         3.2          1.3         0.2  setosa
# 4          4.6         3.1          1.5         0.2  setosa
# 5          5.0         3.6          1.4         0.2  setosa
# 6          5.4         3.9          1.7         0.4  setosa

data(iris) # Load iris head(iris) # Sepal.Length Sepal.Width Petal.Length Petal.Width Species # 1 5.1 3.5 1.4 0.2 setosa # 2 4.9 3.0 1.4 0.2 setosa # 3 4.7 3.2 1.3 0.2 setosa # 4 4.6 3.1 1.5 0.2 setosa # 5 5.0 3.6 1.4 0.2 setosa # 6 5.4 3.9 1.7 0.4 setosa

install.packages("ggplot2")                                        # Install & load ggplot2
library("ggplot2")

install.packages("ggplot2") # Install & load ggplot2 library("ggplot2")

my_plot <- ggplot(iris, aes(Petal.Length, Petal.Width)) +          # Default ordering
  geom_point() +
  facet_grid(.~Species)
my_plot                                                            # Drawing ggplot2 facet plot

my_plot <- ggplot(iris, aes(Petal.Length, Petal.Width)) + # Default ordering geom_point() + facet_grid(.~Species) my_plot # Drawing ggplot2 facet plot

iris_new <- iris                                                   # Replicating iris data set
iris_new$Species <- relevel(iris_new$Species,                      # Reordering factor levels
                            "virginica", "setosa", "versicolor")

iris_new <- iris # Replicating iris data set iris_new$Species <- relevel(iris_new$Species, # Reordering factor levels "virginica", "setosa", "versicolor")

my_plot_new <- ggplot(iris_new, aes(Petal.Length, Petal.Width)) +  # Recreate ggplot2 facet plot
  geom_point() +
  facet_grid(.~Species)
my_plot_new                                                        # Create updated plot

my_plot_new <- ggplot(iris_new, aes(Petal.Length, Petal.Width)) + # Recreate ggplot2 facet plot geom_point() + facet_grid(.~Species) my_plot_new # Create updated plot