# # File: ws-usage-1995-2005.R # # The percentages of usage of servers are taken from the table and graph diagram # reported in "Web Server Survey" page (found in Netcraft website) # which are named: "Web servers developers: Market share of all sites". # If the percentage of a web server developer goes below the standard threshold limit, # then it is no more named in text below Netcraft graph diagram but its integer # (without decimals) percentage of usage can be shown by pointing mouse cursor # under the last point of one of the curves of the diagram graph. # So the percentage of that historical web developer can be reported # in its data table (see below) in order to continue to track it. # # NOTE: percentages about CERN server have been interpolated among 3..4 #       real values because not all quarters were available and #       they have been rounded to integer part (no decimals) #       along with "other" servers percentages. # # NOTE: to create this image file (see below: server.file) in Windows: #       - install R software from: https://www.r-project.org/ #       - open a terminal window #       - set PATH=%PATH%;"C:\Program Files\R\R-4.1.2\bin" #       - rscript ws-usage-1995-2005.R #  server.names = c(  	"Apache",   	"Microsoft",   	"Sun",  	"NCSA",   	"CERN",   	"Other"  )    server.years = c(  	1995.0,1995.25,1995.5,1995.75,  	1996.0,1996.25,1996.5,1996.75,  	1997.0,1997.25,1997.5,1997.75,  	1998.0,1998.25,1998.5,1998.75,  	1999.0,1999.25,1999.5,1999.75,  	2000.0,2000.25,2000.5,2000.75,  	2001.0,2001.25,2001.5,2001.75,  	2002.0,2002.25,2002.5,2002.75,  	2003.0,2003.25,2003.5,2003.75,  	2004.0,2004.25,2004.5,2004.75,  	2005.0,2005.25,2005.5,2005.75  )    #Use the first month of the quarter:  January, April, July, October  server.apache = c(  	   NA,    NA,  5.00, 11.00, #1995  	20.00, 29.00, 35.00, 39.00, #1996  	42.00, 43.00, 43.00, 44.00, #1997  	45.00, 48.00, 50.00, 52.00, #1998  	54.00, 56.00, 56.00, 54.00, #1999  	56.00, 62.00, 63.00, 60.00, #2000  	59.00, 63.00, 59.00, 57.00, #2001  	57.00, 56.00, 58.00, 61.00, #2002  	62.00, 63.00, 64.00, 65.00, #2003  	67.00, 67.00, 67.00, 68.00, #2004  	68.00, 69.00, 70.00, 70.00  #2005      )   server.microsoft = c(  	   NA,    NA,    NA,    NA, #1995  	   NA,  1.00,  4.00,  9.00, #1996  	11.00, 15.00, 17.00, 18.00, #1997  	22.00, 22.00, 23.00, 23.00, #1998  	23.00, 23.00, 22.00, 25.00, #1999  	23.00, 21.00, 20.00, 20.00, #2000  	21.00, 21.00, 26.00, 29.00, #2001  	30.00, 32.00, 32.00, 29.00, #2002  	28.00, 27.00, 26.00, 23.00, #2003  	21.00, 22.00, 21.00, 21.00, #2004  	21.00, 20.00, 21.00, 21.00  #2005  )   server.sun = c(  	   NA,    NA,  5.00,  9.00, #1995  	15.00, 16.00, 16.00, 14.00, #1996  	14.00, 12.00, 12.00, 11.00, #1997  	10.00, 10.00,  8.00,  7.00, #1998  	 6.00,  7.00,  7.00,  8.00, #1999  	 8.00,  7.00,  7.00,  7.00, #2000  	 6.00,  6.00,  4.00,  4.00, #2001  	 4.00,  2.00,  1.00,  1.00, #2002  	 1.00,  1.00,  2.00,  3.00, #2003  	 3.00,  3.00,  3.00,  3.00, #2004  	 3.00,  3.00,  3.00,  3.00  #2005  )   server.ncsa = c(  	   NA,    NA, 53.00, 44.00, #1995  	36.00, 26.00, 20.00, 15.00, #1996  	11.00,  7.00,  6.00,  5.00, #1997  	 4.00,  3.00,  3.00,  2.00, #1998  	 1.00,  1.00,  0.70,  0.30, #1999  	 0.10,  0.05,  0.03,  0.01, #2000  	 0.01,  0.00,    NA,    NA, #2001  	   NA,    NA,    NA,    NA, #2002  	   NA,    NA,    NA,    NA, #2003  	   NA,    NA,    NA,    NA, #2004  	   NA,    NA,    NA,    NA  #2005  )   server.cern = c(  	   NA,    NA, 20.00, 16.00, #1995  	12.00,  9.00,  7.00,  5.00, #1996  	 3.00,  1.00,  0.50,  0.10, #1997  	   NA,    NA,    NA,    NA, #1998  	   NA,    NA,    NA,    NA, #1999  	   NA,    NA,    NA,    NA, #2000  	   NA,    NA,    NA,    NA, #2001  	   NA,    NA,    NA,    NA, #2002  	   NA,    NA,    NA,    NA, #2003  	   NA,    NA,    NA,    NA, #2004  	   NA,    NA,    NA,    NA  #2005  )   server.other = c(  	   NA,    NA, 17.00, 20.00, #1995  	18.00, 18.00, 19.00, 18.00, #1996  	20.00, 21.00, 22.50, 22.00, #1997  	19.00, 18.00, 17.00, 15.00, #1998  	15.00, 13.00, 14.00, 13.00, #1999  	14.00, 10.00, 13.00, 13.00, #2000  	13.00, 10.00, 11.00, 10.00, #2001  	 9.00,  9.00,  9.00,  9.00, #2002  	 9.00,  9.00,  9.00,  8.00, #2003  	 8.00,  8.00,  8.00,  8.00, #2004  	 8.00,  7.00,  7.00,  7.00  #2005  )   server.title = "Usage share of web servers"  server.sub = "Source:  Netcraft"  server.file = "Usage share of web servers (Source Netcraft) 1995-2005.svg"    svg(file=server.file,width=12,height=7)  par(lwd=2)  plot(server.years, server.apache, type="l", ylim=c(0, 100), main=server.title, sub=server.sub, xlab="Year", ylab="Percent", col=1, xaxt="n")  axis(1, at=1995:2005, las=2)  lines(server.years, server.microsoft,  col=2)  lines(server.years, server.sun,        col=3)  lines(server.years, server.ncsa,       col=4)  lines(server.years, server.cern,       col=5)  lines(server.years, server.other,      col=6)    legend("topright",inset=0.05,col=1:6,lwd=3,legend=server.names)  dev.off()