Draw ggplot2 Barchart with Axis Break & Zoom in R (Example Code)

data(iris)                        # Loading & modifying iris data
my_iris <- iris
my_iris$Sepal.Length[my_iris$Species == "setosa"] <-
  my_iris$Sepal.Length[my_iris$Species == "setosa"] * 100
head(my_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) # Loading & modifying iris data my_iris <- iris my_iris$Sepal.Length[my_iris$Species == "setosa"] <- my_iris$Sepal.Length[my_iris$Species == "setosa"] * 100 head(my_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 ggplot2 package
library("ggplot2")                # Load ggplot2 package

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

my_plot <- ggplot(my_iris,        # Draw default ggplot2 barplot
                  aes(Species,
                      Sepal.Length)) +
  geom_bar(stat = "identity")
my_plot

my_plot <- ggplot(my_iris, # Draw default ggplot2 barplot aes(Species, Sepal.Length)) + geom_bar(stat = "identity") my_plot

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

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

my_plot +                         # Draw ggplot2 barplot with zoom
  geom_col() +
  facet_zoom(ylim = c(0, 1000))

my_plot + # Draw ggplot2 barplot with zoom geom_col() + facet_zoom(ylim = c(0, 1000))