Permalink
Cannot retrieve contributors at this time
| # | |
| # robinson1976a.R, 14 Apr 20 | |
| # Data from: | |
| # Fashions in Shaving and Trimming of the Beard: {The} Men of the {Illustrated London News}, 1842-1972 | |
| # Dwight E. Robinson | |
| # | |
| # Example from: | |
| # Evidence-based Software Engineering: based on the publicly available data | |
| # Derek M. Jones | |
| # | |
| # TAG fashion_facial-hear evolution_facial-hair | |
| source("ESEUR_config.r") | |
| pal_col=rainbow(3) | |
| hair=read.csv(paste0(ESEUR_dir, "evolution/robinson1976a.csv.xz"), as.is=TRUE) | |
| hair$total=rowSums(hair[ , -1]) | |
| plot(hair$year, 100*hair$clean_shaven/hair$total, type="l", col=pal_col[1], | |
| xaxs="i", yaxs="i", | |
| ylim=c(0, 90), | |
| xlab="Year", ylab="Percentage\n") | |
| lines(loess.smooth(hair$year, 100*hair$beard/hair$total, span=0.1), col=pal_col[2]) | |
| lines(loess.smooth(hair$year, 100*hair$mustache/hair$total, span=0.1), col=pal_col[3]) | |
| legend(x="topleft", legend=c("Clean shaven", "Beard", "Mustache"), bty="n", fill=pal_col, cex=1.2) | |