x<-c(108, 108, 128, 135, 136, 143, 158, 160, 165, 167, 167, 169, 178, 183, 186, 188, 188, 190, 200, 200, 202, 204, 205, 209, 228, 230, 232, 239, 252, 259, 149, 152, 152, 155, 170, 172, 172, 172, 190, 190, 192, 194, 218, 219, 220, 225, 270, 287, 327, 341);
stripchart(x, method="stack", pch=19, col="blue", offset=0.5, ,cex.lab=1.5,cex.axis=1.5);
par(mfrow=c(1,2));
hist(x, main="",xlab="Length (seconds)",ylab="Count",freq=TRUE, cex.lab=1.5, cex.axis=1.5);
hist(x, main="",xlab="Length (seconds)",ylab="Count",breaks=20, freq=TRUE, cex.lab=1.5, cex.axis=1.5);