Permalink
Cannot retrieve contributors at this time
| # | |
| # Wang2010a.R, 16 Aug 16 | |
| # Data from: | |
| # Chasing the Hottest {IT}: {Effects} of Information Technology Fashion on Organizations | |
| # Ping Wang | |
| # | |
| # Example from: | |
| # Evidence-based Software Engineering: based on the publicly available data | |
| # Derek M. Jones | |
| # | |
| # TAG fashion_IT | |
| source("ESEUR_config.r") | |
| product=read.csv(paste0(ESEUR_dir, "introduction/Wang2010a_Fig2.csv.xz"), as.is=TRUE) | |
| pal_col=rainbow(ncol(product)-1) | |
| plot(0, type="n", | |
| yaxs="i", | |
| xlim=c(1987, 2003), ylim=c(0, 175), | |
| xlab="Date", ylab="Occurrences\n") | |
| dummy=sapply(2:ncol(product), function(X) | |
| lines(product$Year, product[, X], col=pal_col[X-1])) | |
| leg_names=colnames(product) | |
| leg_names=gsub("\\.", " ", leg_names[-1]) | |
| legend(x="topleft", legend=leg_names, bty="n", fill=pal_col, cex=1.1) | |