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

我试图在

晶格中创建密度图，其中每个估计值与总组成比例，而不仅仅与子集成比例

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

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")

那么，您希望绘图的y比例是多少？我不确定我是否理解期望的输出是什么。计数或某种比例密度估计。让我看看我是否能找到一个描述我想要做什么的图。那么，你想要什么样的y标度？我不确定我是否理解期望的输出是什么。计数或某种比例密度估计。让我看看是否能找到一个描述我想做什么的情节。
library(ggplot2)

data <- data.frame(sex, age)

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