добавить ту же кривую плотности к графику в R

Question

Мне было интересно, как я могу добавить такую ​​же кривую плотности к xyplot() из lattice пакета в R ( см. Воспроизводимый код ниже )?

library(lattice)

xyplot((1:32*.01)~wt|gear , data = mtcars)

lines(density(rnorm(1e3, 3.5))) # add this to all plot panes in `xyplot` above

Answer 1

Мы могли бы использовать layer

library(lattice)
library(latticeExtra)
foo <- xyplot((1:32*.01)~wt|gear , data = mtcars)
foo + 
      layer(panel.densityplot(rnorm(1e3, 3.5), plot.points = FALSE))