Reverse Y-Axis Scale of Base R & ggplot2 Graph (2 Examples)

data(iris)                         # Loading example data
head(iris)                         # Displaying data in RStudio console
#   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) # Loading example data head(iris) # Displaying data in RStudio console # 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

plot(x = iris$Sepal.Length,        # Regular axis
     y = iris$Sepal.Width)

plot(x = iris$Sepal.Length, # Regular axis y = iris$Sepal.Width)

plot(x = iris$Sepal.Length,        # Reversed axis
     y = iris$Sepal.Width,
     ylim = rev(range(iris$Sepal.Width)))

plot(x = iris$Sepal.Length, # Reversed axis y = iris$Sepal.Width, ylim = rev(range(iris$Sepal.Width)))

install.packages("ggplot2")        # Install ggplot2 package
library("ggplot2")                 # Load ggplot2

install.packages("ggplot2") # Install ggplot2 package library("ggplot2") # Load ggplot2

my_plot <- ggplot(iris,            # Regular axis
              aes(x = Sepal.Length,
                  y = Sepal.Width)) +
  geom_point()
my_plot

my_plot <- ggplot(iris, # Regular axis aes(x = Sepal.Length, y = Sepal.Width)) + geom_point() my_plot

my_plot +                          # Reversed axis
  scale_y_reverse()

my_plot + # Reversed axis scale_y_reverse()