晶格中的密度图与总组成比例

Question

我正在尝试在lattice中创建密度图，其中每个估算值与总组成比例，而不仅仅是子集。

这可以使用直方图，如下所示：

require(lattice)
set.seed(1)
sex <- factor(sample(c("Men", "Women"), 200, replace = T, prob = c(.3, .7)))
age <- rnorm(200, 50, 10)

histogram(~age | sex, type = "count")

但如何使用densityplot()管理此问题？ type = "count"参数似乎不起作用。

编辑：这是我正在寻找的结果：

library(ggplot2)

data <- data.frame(sex, age)

ggplot(data, aes(age)) +
  geom_density(aes(y = ..count..)) +
  facet_grid(~ sex)