Permalink
Cannot retrieve contributors at this time
| # | |
| # pwc-software-100.R, 11 Jun 20 | |
| # Data from: | |
| # PwC Global 100 Software Leaders 2011 | |
| # PwC Global 100 Software Leaders 2012 | |
| # PwC Global 100 Software Leaders 2014 | |
| # www.pwc.com/globalsoftware100 | |
| # | |
| # Example from: | |
| # Evidence-based Software Engineering: based on the publicly available data | |
| # Derek M. Jones | |
| # | |
| # TAG Saas_revenue | |
| source("ESEUR_config.r") | |
| library("plyr") | |
| par(mar=MAR_default+c(0.0, 0.7, 0, 0)) | |
| pal_col=rainbow(3) | |
| plot_year=function(df) | |
| { | |
| # plot(df$Software.revenue, df$SaaS.revenue, log="xy") | |
| lines(df$Rank, df$Software.revenue, col=df$col_str[1]) | |
| lines(sort(df$SaaS.revenue, decreasing=TRUE), col=df$col_str[1]) | |
| } | |
| pwc=read.csv(paste0(ESEUR_dir, "economics/pwc-software-100.csv.xz"), as.is=TRUE) | |
| pwc$col_str=mapvalues(pwc$Year, c(2014, 2012, 2011), pal_col) | |
| plot(pwc$Rank, pwc$Software.revenue, type="n", log="xy", | |
| xlab="Rank", ylab="Revenue (million $)\n\n") | |
| d_ply(pwc, .(Year), plot_year) | |
| legend(x="topright", legend=c("2014", "2012", "2011"), bty="n", fill=pal_col, cex=1.2) | |
| text(16, 5000, "Total", cex=1.2) | |
| text(1.6, 5000, "SaaS", cex=1.2) | |