r - prob=TRUE で R に複数のヒストグラムをプロットする

Question

頻度ではなく密度を示す複数のヒストグラムをRにプロットしたい：

A <- rnorm(100)
B <- rnorm(100)
hist1 <- hist(A,prob=TRUE,breaks=30)
hist2 <- hist(B,prob=TRUE,breaks=30) 
plot(hist1, col="red",lty=0, xlim=c(-4,4))
plot(hist2, col="blue", lty=0, xlim=c(-4,4), add=TRUE, main="Example")
lines(density(A))

ただし、オブジェクトをプロットするときに、'prob=TRUE' オプションが機能しないようです。誰かが私が間違っていることを説明できますか?