我想为两个样本创建经验累积分布函数，并将图放在同一图[R]中

Question

我正在使用此代码为两个样本生成经验累积分布函数（您可以在其中输入任何数值）。 我想将它们放在同一图中，但是如果您运行以下命令，则所有的重叠都非常糟糕[见图1]。 有什么办法可以做到这一点[见图2]（我也希望符号消失并像图2那样成为一条线）。

plot(ecdf(sample[,1]),pch = 1)
par(new=TRUE)        
plot(ecdf(sample[,2]),pch = 2)

图片1： https : //www.dropbox.com/s/sg1fr8jydsch4xp/vanboeren2.png?dl=0

图片2： https ： //www.dropbox.com/s/erhgla34y5bxa58/vanboeren1.png？dl = 0

更新 ：我正在这样做

  df1 <- data.frame(x = sample[,1]) 
  df2 <- data.frame(x = sample[,2])   
  ggplot(df1, aes(x, colour = "g")) + stat_ecdf()
  +geom_step(data = df2) 
  scale_x_continuous(limits = c(0, 5000)) `

（在形状方面）非常接近，但仍无法将它们放在同一图上。

Answer 1

尝试以下基本情节：

df1 <- data.frame(x = runif(200,1,5)) 
df2 <- data.frame(x = runif(200,3,8))

plot(ecdf(df1[,1]),pch = 1, xlim=c(0,10), main=NULL)
par(new=TRUE)        
plot(ecdf(df2[,1]),pch = 2, xlim=c(0,10), main=NULL)

现在，两个图形都具有相同的xlim （尝试将其删除以查看两个图形是否正确叠加）。 main=NULL删除标题

结果：