绘制多条曲线相同的图形和相同的比例

Question

这是 这个问题。

我想在同一个图表上绘制多条曲线，但这样我的新曲线就遵循第一条曲线生成的相同 y 轴比例。

请注意以下示例：

y1 <- c(100, 200, 300, 400, 500)
y2 <- c(1, 2, 3, 4, 5)
x <- c(1, 2, 3, 4, 5)

# first plot
plot(x, y1)

# second plot
par(new = TRUE)
plot(x, y2, axes = FALSE, xlab = "", ylab = "")

这实际上将两组值绘制在图形的相同坐标上（因为我隐藏了将使用第二个图创建的新 y 轴）。

我的问题是在绘制第二张图时如何保持相同的 y 轴比例。

Answer 1

（典型的方法是仅使用 plot 一次来设置限制，可能包括所有系列组合的范围，然后使用 points 和 lines 添加单独的系列。）要多次使用 plot 和 par(new=TRUE)，您需要确保您的第一个图具有正确的ylim 接受所有系列（在另一种情况下，您可能还需要对 xlim 使用相同的策略）：

# first plot
plot(x, y1, ylim=range(c(y1,y2)))

# second plot  EDIT: needs to have same ylim
par(new = TRUE)
plot(x, y2, ylim=range(c(y1,y2)), axes = FALSE, xlab = "", ylab = "")

接下来的代码将更紧凑地完成任务，默认情况下，你得到的数字是点，但第二个给出的是典型的 R 类型“点”：

  matplot(x, cbind(y1,y2))
  matplot(x, cbind(y1,y2), pch=1)

Answer 2

则 points 或 lines 会很方便，

• 如果稍后生成 y2，或者
• 新数据不具有相同的 x， 但仍然应该进入相同的坐标系。

由于您的 y 共享相同的 x，因此您还可以使用 matplot：

matplot (x, cbind (y1, y2), pch = 19)

（没有 pch matplopt 将绘制这y 矩阵而不是点）。

Answer 3

您在这里不太清楚您想要什么，因为考虑到您的示例代码，我认为 @DWin 在技术上是正确的。我认为您真正想要的是这样的：

y1 <- c(100, 200, 300, 400, 500)
y2 <- c(1, 2, 3, 4, 5)
x <- c(1, 2, 3, 4, 5)

# first plot
plot(x, y1,ylim = range(c(y1,y2)))

# Add points
points(x, y2)

DWin 的解决方案是在隐式假设（基于您的示例代码）下运行的，即您想要在其上绘制第二组点覆盖原来的规模。这就是为什么他的图像看起来像是在 1、101 等处绘制的点。第二次调用 plot 不是您想要的，您想要添加到绘图中使用点。因此，我的机器上的上述代码会产生以下结果：

但 DWin 关于使用 ylim 的要点 是正确的。

Answer 4

我的解决方案是使用 ggplot2。它会自动处理这些类型的事情。最重要的是适当地排列数据。

y1 <- c(100, 200, 300, 400, 500)
y2 <- c(1, 2, 3, 4, 5)
x <- c(1, 2, 3, 4, 5)
df <- data.frame(x=rep(x,2), y=c(y1, y2), class=c(rep("y1", 5), rep("y2", 5)))

然后使用ggplot2来绘制它，

library(ggplot2)
ggplot(df, aes(x=x, y=y, color=class)) + geom_point()

这就是说将数据绘制在df中，并通过类来分隔点。

生成的图为

Answer 5

我不确定你想要什么，但我会使用格子。

x = rep(x,2)
y = c(y1,y2)
fac.data = as.factor(rep(1:2,each=5))
df = data.frame(x=x,y=y,z=fac.data)
# this create a data frame where I have a factor variable, z, that tells me which data I have (y1 or y2)

然后，只需绘制

xyplot(y ~x|z, df)
# or maybe
xyplot(x ~y|z, df)