R 在一个图上绘制两个泊松过程

我有两个泊松过程：

n <- 100
x <- seq(0, 10, length = 1000)
y1 <-  cumsum(rpois(1000, 1 / n))
y2 <- -cumsum(rpois(1000, 1 / n))

但它没有起作用。有人能告诉我怎么修吗？我正在为我的代码与R一起工作

事先非常感谢

怎么样

plot(x,y1, ylim=range(y1,y2), type="l")
lines(x, y2, col="red")

我建议尽量避免多次调用parnew=TRUE进行绘图。这通常是非常混乱的。在这里，我们使用线条添加到现有绘图中。唯一的问题是x和y限制不会根据新数据而改变，因此我们在第一次绘图调用中使用ylim来设置适合所有数据的范围。

如何

plot(x,y1, ylim=range(y1,y2), type="l")
lines(x, y2, col="red")

---

我建议尽量避免多次调用parnew=TRUE进行绘图。这通常是非常混乱的。在这里，我们使用线条添加到现有绘图中。唯一需要注意的是，x和y限制不会根据新数据而改变，因此我们在第一次绘图调用中使用ylim来设置适合所有数据的范围。

或者，如果您不想担心MrFlick提到的限制或行数，您也可以调整数据并使用melt和ggplot

---

或者，如果您不想担心MrFlick提到的限制或行数，您也可以调整数据并使用melt和ggplot

---

除非您先使用plot-then-lines或修复ylimits，否则您的两个绘图将不会有相同的y限制。除非您先使用plot-then-lines或修复ylimits，否则您的两个绘图将不会有相同的y限制。通常，paradd=TRUE的唯一原因是如果您使用的是具有特殊功能的基本图形绘图函数。耶！！这太棒了，它工作得非常完美，我甚至可以在上面添加更多的行，比如y2和y1之间的差异行。谢谢@MrFlick！！通常情况下，paradd=TRUE的唯一原因是使用具有特殊功能的基本图形打印功能。是的！！这太棒了，它工作得非常完美，我甚至可以在上面添加更多的行，比如y2和y1之间的差异行。谢谢@MrFlick！！

df <- data.frame(x, y1, y2)
library(reshape2)
library(ggplot2)
mdf <- melt(df, "x")
ggplot(mdf, aes(x, value, color = variable)) +
  geom_line()