Resumen
De la trama de juegos jugados bajo los códigos ECO Caro-Kann ( B10-19 ), la variación de avance (en B12, pero B12 tiene algunas otras variaciones misceláneas) ha sido consistentemente la línea más popular desde la década de 1990 y alcanzó su punto máximo en 1.803 juegos en 2008 .
Metodología
- Extraje los juegos de Fritz for Fun 13 en formato PGN
- Ejecuté el siguiente código R, que extrae el año (obligatorio) y el ECO (opcional). Los juegos se filtran a los códigos ECO B10-19 (Caro-Kann) y para juegos de 1927. ¿Por qué 1927? Es entonces cuando debutó en la parte superior:
Él [Capablanca] lo usó [el Caro-Kann] en su aplastante destrucción estratégica de Aaron Nimzowitsch en el gran torneo de Nueva York de 1927.
Fuente: The Caro-Kann: Move-by-Move por IM Lakdawala
- La cantidad bruta de juegos se grafica con el tiempo. Lamentablemente mis datos solo van a 2009
library(ggplot2) # For making the charts look nice
dat <- readLines("C:/Users/Peter/SkyDrive/Chess/Fritz for fun 13 database.pgn") # Read in the data from a local file
eco <- dat[grep("\\[ECO ",dat)] # Extract the ECO, if there is one
eco <- sub("\\[ECO \"","",eco)
eco <- sub("\"\\]","",eco)
year <- dat[grep("\\[Date ",dat)]
year <- sub("\\[Date [\"]","",year)
year <- sub("\\..*","",year)
year <- as.numeric(year)
ecoindex <- grep("\\[ECO ",dat) # Find which lines have an eco
yearindex <- grep("\\[Date ",dat)
yearindex <- yearindex + 5 # The date is always the 3rd pgn tag and is mandatory. The ECO, if present, is the 8th tag
matchindex <- yearindex %in% ecoindex # This code finds which games have both a year and eco tag
year <- year[matchindex] # Filter out games without an ECO
countgame <- table(eco,year)
countgame <- as.data.frame(countgame) # Convert to a data frame
Carocode <- paste("B",10:19,sep="") # ECO codes for the Caro-Kann are B10-B19
Carogame <- countgame[which(countgame$eco %in% Carocode),] # Keep the data for the Caro-Kann ECO codes
Carogame$year <- as.numeric(as.character(Carogame$year))
Carogame <- Carogame[Carogame$year>=1927,]
p1 <- ggplot(Carogame,aes(x=year,y=Freq,group=eco))+geom_line(aes(colour=eco)) # Plot count of games
p1 <- p1 + ggtitle("Number of Caro-Kann games over time") + ylab("Number of games")
print(p1)