r - 如何在R中将多个密度曲线叠加到一个图中

Question

我有一个看起来像this的数据。

我打算将多个密度曲线创建为一个图，其中每条曲线
对应于唯一ID。

我尝试使用带有此代码的“sm”包，但未成功。

library(sm)
dat <- read.table("mydat.txt");
plotfn <- ("~/Desktop/flowgram_superimposed.pdf");
pdf(plotfn);

sm.density.compare(dat$V1,dat$V2, xlab = "Flow Signal")
colfill <- c(2:10);
legend(locator(1), levels(dat$V2), fill=colfill)

dev.off();

请告知正确的方法是什么，或者是否有
替代方法吗？

我试图最后得到这种情节。
figure http://img524.imageshack.us/img524/2736/testl.png

Answer 1

尝试使用ggplot2:

dnow <- read.table("http://dpaste.com/88561/plain/")
library(ggplot2)
qplot(V1, colour=factor(V2), data=dnow, geom="density")