окраска области под кривой для нескольких графиков в R - PullRequest
1 голос
/ 06 мая 2020

Мне было интересно, могу ли я раскрасить область под теми же кривыми на моих графиках ниже?

library(lattice)
library(latticeExtra)

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


# By color I mean like so: 
d <- density(rnorm(1e3, 3.5));
plot(d, type = 'n');
polygon(d, col = 2)

1 Ответ

1 голос
/ 06 мая 2020

Мы можем использовать

library(lattice)
library(latticeExtra)    
d <- density(v1)
foo <- xyplot((1:32*.01)~wt|gear , data = mtcars)
foo +        
   layer(panel.polygon(d, col = 2, alpha = 0.3))

данные

set.seed(24)
v1 <- rnorm(1e3, 3.5)
...