Plot 4 curves in a single plot with 3 y-axes

by

Try this out….

# The data have a common independent variable (x)
x <- 1:10

# Generate 4 different sets of outputs
y1 <- runif(10, 0, 1)
y2 <- runif(10, 100, 150)
y3 <- runif(10, 1000, 2000)
y4 <- runif(10, 40000, 50000)
y <- list(y1, y2, y3, y4)

# Colors for y[[2]], y[[3]], y[[4]] points and axes
colors = c("red", "blue", "green")

# Set the margins of the plot wider
par(oma = c(0, 2, 2, 3))

plot(x, y[[1]], yaxt = "n", xlab = "Common x-axis", main = "A bunch of plots on the same graph", 
     ylab = "")
lines(x, y[[1]])

# We use the "pretty" function go generate nice axes
axis(at = pretty(y[[1]]), side = 2)

# The side for the axes.  The next one will go on 
# the left, the following two on the right side
sides <- list(2, 4, 4) 

# The number of "lines" into the margin the axes will be
lines <- list(2, NA, 2)

for(i in 2:4) {
  par(new = TRUE)
  plot(x, y[[i]], axes = FALSE, col = colors[i - 1], xlab = "", ylab = "")
  axis(at = pretty(y[[i]]), side = sides[[i-1]], line = lines[[i-1]], 
      col = colors[i - 1])
  lines(x, y[[i]], col = colors[i - 1])
}

# Profit.

Plot Output

More Related Contents:

  1. Showing data values on stacked bar chart in ggplot2
  2. How to use Greek symbols in ggplot2?
  3. using Unicode ‘dingbat-like’ glyphs in R graphics, across devices & platforms, especially PDF
  4. How do you order the fill-colours within ggplot2 geom_bar
  5. It is possible to create inset graphs?
  6. How to make graphics with transparent background in R using ggplot2?
  7. R package lattice won’t plot if run using source()
  8. Reproducing lattice dendrogram graph with ggplot2
  9. How to shade a region under a curve using ggplot2
  10. How to apply cross-hatching to a polygon using the grid graphical system?
  11. Remove facet_wrap labels completely
  12. ggplot Donut chart
  13. Coloring boxplot outlier points in ggplot2?
  14. Plotting pca biplot with ggplot2
  15. Replace NA with previous or next value, by group, using dplyr
  16. Assign multiple columns using := in data.table, by group
  17. Using the rJava package on Win7 64 bit with R
  18. What are the R sorting rules of character vectors?
  19. Avoid ggplot sorting the x-axis while plotting geom_bar()
  20. Use stat_summary to annotate plot with number of observations
  21. How to get coefficients and their confidence intervals in mixed effects models?
  22. How to access and edit Rprofile? [closed]
  23. Deleting columns from a data.frame where NA is more than 15% of the column length [duplicate]
  24. r igraph find all cycles
  25. How does one change the levels of a factor column in a data.table
  26. When should I use setDT() instead of data.table() to create a data.table?
  27. Remove duplicates based on 2nd column condition
  28. Wrap text around plots in Markdown
  29. Handling errors before warnings in tryCatch
  30. Is there a way to `source()` and continue after an error?

Leave a Comment