如何通过具有相同轴但用R向前更改x轴来绘制多个图形？

Question

I want to plot two different pairs but with the same x-axis but once the plot is drawn in R, it does not change the x-axis for the next one. For example, I want to have both (x,y) pair and (a,b) pair in the same plot. I write:

x <- c(1,2,3,4,5,6,7)
y <- c(5,3,2,10,8,6,1)

a <- c(4,5,6,7,8,9,10)
b <- c(4,5,8,12,2,6,11)

plot(x,y , type= "l")
lines(a,b)

and it gives me this pic:

I want it to draw a plot with x-axis from 1 to 10 and y-axis from 2 to 11. This is a simplified example, and in reality, I want to have around five different density plots in the same plot in which the x-axis do not cover each other in some places. I will be appreciated if you explain that this may change the solution or no. Also, I can't use ggplot2 because the dataset is not a panel with group variable available. It is only several pairs of points.

Answer 1

I would strongly advise rethinking the general data structure; it is advisable to store data in eg a list of data.frame s.

For example let's consider the following list based on your sample data.

lst <- list(
    one = data.frame(x = x, y = y),
    two = data.frame(x = a, y = b))

We can then plot data using a tidyverse approach:

library(tidyverse);
lst %>%
    bind_rows(.id = "id") %>%
    ggplot(aes(x, y, group = id)) + geom_line()

Or using facets with free x scales:

lst %>%
    bind_rows(.id = "id") %>%
    ggplot(aes(x, y, group = id)) + geom_line() + facet_wrap(~id, scales = "free_x")