Наложение кривых множественной плотности на один график с использованием решетки в r

Question

Данные, с которыми я работаю, это births2006.smpl от nutshell. Использование densityplot() функции в решетке, я был в состоянии произвести рисунок, который выглядит следующим образом:

Для этого я просто использовал:

densityplot(~ births2006.smpl$DBWT | births2006.smpl$DPLURAL, plot.points=FALSE, xlab="Birth Weight", layout=c(1,5)) 

Теперь я пытаюсь наложить все эти кривые плотности на один график плотности, который, как я предполагал, можно сделать с помощью функции densityplot(), но после долгих попыток без успеха я не совсем уверен. Это график, который я хотел бы создать:

Answer 1

Вам нужно использовать аргумент groups.

library(nutshell) 
data(births2006.smpl) 

densityplot(~ DBWT, groups = DPLURAL, data = births2006.smpl, 
      plot.points = FALSE, xlab = "Birth Weight")