try this (for 6 chips), for colours and legend. >hist(data, type="l", lty=1, lwd=2, col=1:6) >legend(12, 0.25, legend=c("chip1","chip2","chip3","chip4","chip5","chip6"), lty=1, lwd=2, col=1:6) Matt