#
# 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()