par(mfrow=c(2,2))
plot(density(x,weights=y,from=min(x),to=max(x)),main="Density")
plot(density(x,weights=y,from=min(x),to=max(x)),main="Density",xlim=range(x),ylim=range(c(y,z)))
plot(density(x,weights=y,from=min(x),to=max(x)),main="Density",xlim=range(x),ylim=c(35000,40000))
plot(density(x,weights=y,from=min(x),to=max(x)),main="Density",xlim=range(x),ylim=c(0,100))
Talvez esteja interessado nisso!
plot(density(x,weights=y,from=min(x),to=max(x)),main="Density", xlim=range(x),ylim=c(0,40000))
par(new=TRUE)
plot(density(x,weights=z,from=min(x),to=max(x)),main="Density", xlim=range(x),ylim=c(0,40000),col='red')