English: The following R commands were used to create the chart:
browser.names = c("Internet Explorer", "Firefox", "Chrome", "Safari", "Opera")
browser.years = c(2008.5,
2008.58333333333,
2008.66666666667,
2008.75,
2008.83333333333,
2008.91666666667,
2009,
2009.08333333333,
2009.16666666667,
2009.25,
2009.33333333333,
2009.41666666667,
2009.5,
2009.58333333333,
2009.66666666667,
2009.75,
2009.83333333333,
2009.91666666667,
2010,
2010.08333333333,
2010.16666666667,
2010.25,
2010.33333333333,
2010.41666666667,
2010.5,
2010.58333333333,
2010.66666666667,
2010.75,
2010.83333333333,
2010.91666666667
)
browser.ie = c(
58.19,
58.31,
56.35,
56.52,
55.08,
51.84,
50.48,
50.29,
49.13,
47.89,
46.65,
45.97,
46.69,
46.01,
46.44,
47.78,
46.57,
44.84,
44.91,
45.5,
45.32,
44.1,
43.32,
43.18,
42.61,
42.01,
40.26,
39.52,
38.91,
37.91
)
browser.firefox = c(
35.52,35.53,33.77,33.41,33.74,36.7,37.71,37.69,38.54,39.04,38.59,38.79,39.7,39.62,39.26,39.87,40.12,40.8,39.86,38.99,38.28,38.72,38.61,38.09,37.98,37.94,38.97,38.66,38.5,38.1
)
browser.chrome = c(NA,NA,1.04,0.98,0.91,1.25,1.38,1.49,1.73,2.05,2.49,2.78,3.05,3.36,3.59,3.99,4.43,5.06,5.78,6.52,7.36,8.27,8.89,9.6,10.13,10.81,11.32,12.29,13.09,14.15)
browser.safari = c(2.37,2.47,2.45,2.52,2.3,2.25,2.3,2.38,2.43,2.53,2.52,2.64,2.81,2.95,3.14,3.37,3.52,3.4,3.68,3.67,3.76,3.8,3.88,3.9,3.89,4.11,4.32,4.55,4.64,4.66)
browser.opera = c(3.69,3.49,6.2,6.38,7.77,7.35,7.25,7.29,7.34,7.63,8.75,8.69,6.84,7.12,6.64,4.05,4.27,4.44,4.33,4.29,4.32,4.15,4.41,4.4,4.55,4.33,4.48,4.38,4.27,4.59)
browser.title = "Europe web browser usage"
browser.sub = "Source: Stat Counter"
browser.file = "Europe web browser usage (Source Stat Counter).svg"
svg(file=browser.file)
par(lwd=2)
plot(browser.years, browser.ie, type="l", ylim=c(0, 60), main=browser.title, sub=browser.sub, xlab="Year", ylab="Percent", col=1)
lines(browser.years, browser.firefox, col=2)
lines(browser.years, browser.chrome, col=3)
lines(browser.years, browser.safari, col=4)
lines(browser.years, browser.opera, col=5)
inset <- c(0.05,0.1)
legend("left",inset=inset,col=1:5,lwd=3,legend=browser.names)
dev.off()