Sommario
Dalla trama di giochi giocati con i codici Caro-Kann ECO ( B10-19 ), la variazione di anticipo (in B12, ma B12 contiene alcune altre varianti varie) è stata costantemente la linea più popolare dagli anni '90 e ha raggiunto il picco a 1.803 partite nel 2008 .
Metodologia
- Ho estratto i giochi da Fritz for Fun 13 in formato PGN
- Ho eseguito il seguente codice R, che estrae l'anno (obbligatorio) e l'ECO (opzionale). I giochi sono filtrati secondo i codici ECO B10-19 (Caro-Kann) e per i giochi del 1927. Perché il 1927? Questo è quando ha debuttato in alto:
[Capablanca] lo usò [il Caro-Kann] nella sua schiacciante distruzione strategica di Aaron Nimzowitsch nel grande torneo di New York del 1927.
Fonte: The Caro-Kann: Move-by-Move di IM Lakdawala
- Il numero grezzo di giochi viene quindi tracciato nel tempo. Purtroppo i miei dati vanno solo al 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)