Zusammenfassung
Aus der Darstellung der Spiele, die unter den Caro-Kann ECO-Codes ( B10-19 ) gespielt wurden, ist die Vorausvariation (in B12, aber B12 enthält einige andere verschiedene Variationen) seit den 90er Jahren durchweg die beliebteste Linie und erreichte mit 1.803 Spielen ihren Höhepunkt im Jahr 2008 .
Methodik
- Ich habe die Spiele aus dem Fritz for Fun 13 in das PGN-Format extrahiert
- Ich habe den folgenden R-Code ausgeführt, der das Jahr (obligatorisch) und die ECO (optional) extrahiert. Die Spiele werden nach ECO-Codes B10-19 (Caro-Kann) und für Spiele von 1927 gefiltert. Warum 1927? Dann debütierte es an der Spitze:
Er [Capablanca] benutzte es [den Caro-Kann] bei seiner vernichtenden strategischen Zerstörung von Aaron Nimzowitsch im großen New Yorker Turnier von 1927.
Quelle: The Caro-Kann: Move-by-Move von IM Lakdawala
- Die rohe Anzahl der Spiele wird dann über die Zeit aufgezeichnet. Leider gehen meine Daten nur bis 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)