plot(1:100, 1:100, type='n')
abline(v=1:100, lwd=6, col=brewer.ramp(100, 'Spectral'))
abline(v=1:100, lwd=6, col=brewer.ramp(100, 'Greys'))
abline(v=1:100, lwd=6, col=brewer.ramp(100, 'Blues'))
abline(v=1:100, lwd=6, col=brewer.ramp(100, 'Set1'))
Run the code above in your browser using DataLab