Permalink
Cannot retrieve contributors at this time
# | |
# world-compute.R, 22 May 20 | |
# | |
# Data from: | |
# Supporting Online Material for: {The} World's Technological Capacity to Store, Communicate, and Compute Information | |
# Martin Hilbert and Priscila L{\'o}pez | |
# | |
# Example from: | |
# Evidence-based Software Engineering: based on the publicly available data | |
# Derek M. Jones | |
# | |
# TAG computer_unit-sales | |
source("ESEUR_config.r") | |
par(mar=MAR_default+c(0.0, 0.7, 0, 0)) | |
pal_col=rainbow(8) | |
# year,PC,Videogame_console,Mobile_phone/PDA,Server/mainframe,Supercomputer,Pocket_calculator,DSP,MCU,GPU | |
world_comp=read.csv(paste0(ESEUR_dir, "hardware/world-compute.csv.xz"), as.is=TRUE) | |
plot(1, type="n", log="y", | |
xaxs="i", | |
xlim=c(1985, 2008), ylim=c(1e1, max(world_comp)/1e6), | |
xlab="Year", ylab="Unit sales (million)\n\n") | |
lines(world_comp$year, world_comp$GPU/1e6, type="b", col=pal_col[1]) | |
lines(world_comp$year, world_comp$PC/1e6, type="b", col=pal_col[2]) | |
lines(world_comp$year, world_comp$MCU/1e6, type="b", col=pal_col[3]) | |
lines(world_comp$year, world_comp$DSP/1e6, type="b", col=pal_col[4]) | |
lines(world_comp$year, world_comp$Videogame_console/1e6, type="b", col=pal_col[5]) | |
lines(world_comp$year, world_comp$Mobile_phone.PDA/1e6, type="b", col=pal_col[6]) | |
lines(world_comp$year, world_comp$Server.mainframe/1e6, type="b", col=pal_col[7]) | |
lines(world_comp$year, world_comp$Pocket_calculator/1e6, type="b", col=pal_col[8]) | |
legend(x="topleft", legend=c("GPU", "PC", "MCU", "DSP", "Videogame", "Modile phone/PDA", "Server/mainframe", "Pocket calculator"), | |
inset=-c(0.03, 0.04), bty="n", fill=pal_col, cex=1.2) | |