R、 ggplot-带计数的密度图

我需要三个密度（或平滑直方图）在同一个绘图。我使用ggplot，每个变量有1000个观察值。因此，值出现的次数最多为1000次。突然，我的代码对某些值产生了极高的计数

data <- read.table("mydata.txt", sep=",")
df <- data.frame(data)
df.m <- melt(data, variables=)
ggplot(den.m,aes(x=value, fill=variable)) + geom_density(alpha=0.25) 
+ ylab("Counts")

---

数据您可能希望看到此页面，代码不会生成y轴上带有计数的绘图。它显示了概率密度。使用
geom_密度（aes（y=…计数…），alpha=0.25）
。