2个输出中的密度图

Question

如何在一个输出中绘制2个密度图。这是密度图的代码。

#Density Plot
d <- density(dataS)
plot(d, main= "Density plots of Revenue")

o <- density(RemoveOutlier)
plot(o, main= "Density plots of Revenue excluding outliers")

所以基本上我想在一个输出上看到两个图。并且可能会更改每个绘图的颜色线和右上角的图例。附图是R中的2个地块的图片。

图片1

图片2

Answer 1

或者代替第二个＆＃34; plot（）＆＃34;函数调用，使用＆＃34; lines（）＆＃34;然后你得到两个重叠的密度图。

Answer 2

如果您的PDF支持相当分散，使用lines是不够的。您需要将计算值的范围控制为密度。

以下是一个例子：

x1 = rnorm(1e5)
x2 = rnorm(1e5, mean = 4)

#looks bad because the support has little overlap
plot(density(x1))
lines(density(x2))

要解决此问题，请将to和from参数用于density

rng = range(c(x1, x2))
d1 = density(x1, from = rng[1L], to = rng[2L])
d2 = density(x2, from = rng[1L], to = rng[2L])
matplot(d1$x, cbind(d1$y, d2$y), type = 'l', lty = 1L)

添加铃铛和口哨。