Analysis in R: Creation of 2-axis graphs using only the “ggplot2” package

This is an example of a command to create a 2-axis plot using only the “ggplot2” package. The “scale_y_continuous” command and the “sec.axis” command are used.

The “tidyverse” package version is 1.3.2, confirmed with R version 4.2.2.

Install Package

Run the following command.

#Install Package
install.packages("tidyverse")

Example

See the command and package help for details.

#Loading tidyverse package containing ggplot2
library("tidyverse")

###Creating Data#####
set.seed(1234)
n <- 50
TestData <- tibble(Group = sample(paste0("Group ", 1:5), n, replace = TRUE),
                   Data = 1:n,
                   Data1 = 1:n,
                   Data2 = rnorm(n))
########

#Second axis adjustment variable
SecondScale <- max(TestData$Data1)/max(TestData$Data2)

ggplot(TestData, aes(x = Data)) +
  #Data1 is the first axis
  stat_summary(aes(y = Data1, fill = Group), fun = "mean",
               geom = "bar", position = "stack") +
  
  #Data2 is the second axis
  geom_line(aes(y = Data2*SecondScale), col = "blue", size = 4) +
  
  #2-axis adjustment
  scale_y_continuous(name = "Data1 = sample(0:26, n, replace = TRUE)",
                     sec.axis = sec_axis(trans = ~./SecondScale,
                                         breaks = seq(-10, 10, by = 1),
                                         name = "Data2 = rnorm(n)")) +
  #Axis adjustment by theme
  theme(
    #2-axis
    axis.title.y.right = element_text(color = "red", 
                                      angle = -90)
    )

Output Example

I hope this makes your analysis a little easier !!