Sommaire
À partir de l'intrigue de jeux joués sous les codes ECO de Caro-Kann ( B10-19 ), la variation avancée (en B12, mais B12 contient d'autres variantes diverses) a toujours été la ligne la plus populaire depuis les années 1990 et a culminé à 1803 matchs. en 2008 .
Méthodologie
- J'ai extrait les jeux du Fritz for Fun 13 au format PGN
- J'ai exécuté le code R suivant, qui extrait l'année (obligatoire) et l'ECO (facultatif). Les jeux sont filtrés selon les codes ECO B10-19 (Caro-Kann) et pour les jeux de 1927. Pourquoi 1927? C'est alors qu'il a fait ses débuts en haut:
Il [Capablanca] l'a utilisé [le Caro-Kann] pour écraser la destruction stratégique d'Aaron Nimzowitsch lors du grand tournoi de New York de 1927.
Source: Le Caro-Kann: Move-by-Move par IM Lakdawala
- Le nombre brut de jeux est ensuite tracé au fil du temps. Malheureusement, mes données ne concernent que 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)