x <- read.table("a.csv", header=TRUE)
x <- x[,1]
x <- x[-which(x==0)]
plot(density(x),main="",xlim = c(0,30000))

b <- read.table("b.csv", header=TRUE)
b <- b[,1]
b <- b[-which(b==0)]
plot(density(b),main="",xlim = c(0,30000))

如何把上面的2个plot放到一个图里，试过用par(mfrow=c(1,1))
但是放到前面没有反应，该怎么实现呢？
谢大神们