R - 使线（）点/线厚度反映点的密度？

Question

我知道如何手动更改点/线的粗细;但是我希望在同一图表上绘制1000+系列，以便得到的图形具有更暗或更亮的点，具体取决于该位置的点密度。也就是说，在那里居中的点越多，该区域越暗。

我现在拥有的只是：

plot(df[,1],ylim=c(0,1))
for(i in 2:ncol(df)){
   lines(df[,i],col='grey',type='p')
}

这给了我以下图表。不幸的是，有这么多分，它只是给我一条统一的灰线，而不是告诉我这些点是如何分布的。