ggplot(faithful, aes(x=waiting)) + geom_histogram(colour='black',fill='papayawhip',bins=30)
ggplot(faithful, aes(x=waiting)) + geom_histogram(colour='black',fill='peachpuff',bins=30)
ggplot(faithful, aes(x=waiting)) + geom_histogram(colour='white',fill='peru',bins=30)
<