想问下如果需要编辑几百条密度曲线，如何做比较有效率？目前是每一个曲线对应一个文本文件。想采用循环读入、自动生成密度曲线的方式，不知有什么简洁的代码可供参考？自己的代码：
x<-scan("KZQ-1.txt")
x2<-scan("KZQ-2.txt")
x3<-scan("KZQ-3.txt")
……
plot(density(x))
lines(density(x))
lines(density(x2))
lines(density(x3))
……
这样倒是也能做出来，但总感觉应该采用循环的方式。
附上一张结果图：