tag:blogger.com,1999:blog-4270166522451627192.post568634066754090191..comments2024-02-12T12:47:26.371+00:00Comments on F1 Data Junkie: F1 2011 Review - Qualifying ProgressUnknownnoreply@blogger.comBlogger9125tag:blogger.com,1999:blog-4270166522451627192.post-28321021496762697482012-01-02T21:43:54.962+00:002012-01-02T21:43:54.962+00:00@james I think the data source I'm using has s...@james I think the data source I'm using has sector times from qualifying, which may give some clue as to track sensitivity if the sectors offer different challenges to the cars?<br /><br />I'll try to plot those next playtime...Tony Hirsthttps://www.blogger.com/profile/07192476380420213082noreply@blogger.comtag:blogger.com,1999:blog-4270166522451627192.post-8471351155725488562011-12-31T21:23:08.987+00:002011-12-31T21:23:08.987+00:00@kpfssport Trend lines are interesting. Are they r...@kpfssport Trend lines are interesting. Are they related to performance upgrade package timing (maybe of leading car...) or are they due to track characteristics? I guess the next step would be to decide how we can differentiate between possible explanations.James Beckhttp://www.intelligentf1.wordpress.comnoreply@blogger.comtag:blogger.com,1999:blog-4270166522451627192.post-14975085946252826972011-12-29T19:25:07.930+00:002011-12-29T19:25:07.930+00:00>>However, as an aid to the journalistic ent...>>However, as an aid to the journalistic enterprise, the trend lines might suggest where to look for stories as the season develops...? << Definitely. The two trends I mentioned fair leapt out at me, which is more than the positions written down would have done.kpfssporthttp://twitter.com/#!/kpfssportnoreply@blogger.comtag:blogger.com,1999:blog-4270166522451627192.post-2661309487278113592011-12-29T16:55:37.129+00:002011-12-29T16:55:37.129+00:00@kpfssport Agreed. One problem with the smoothing ...@kpfssport Agreed. One problem with the smoothing is that you can no longer see the actual performance for a given race. However, as an aid to the journalistic enterprise, the trend lines might suggest where to look for stories as the season develops...?Tony Hirsthttps://www.blogger.com/profile/07192476380420213082noreply@blogger.comtag:blogger.com,1999:blog-4270166522451627192.post-48964510916515186742011-12-29T15:47:46.095+00:002011-12-29T15:47:46.095+00:00Part of me wonders whether the HRTs got that much ...Part of me wonders whether the HRTs got that much better or the Virgins got that much worse.<br /><br />More sensibly, I'm intrigued that Ferrari, Mercedes, Lotus and HRT had such similarly shaped curves.kpfssporthttp://twitter.com/#!/kpfssportnoreply@blogger.comtag:blogger.com,1999:blog-4270166522451627192.post-22752497128586725482011-12-28T19:25:09.406+00:002011-12-28T19:25:09.406+00:00PS to the previous comment - add in a clearer orig...PS to the previous comment - add in a clearer origin line to the ggplot with:<br /><br />+ geom_hline(aes(y=0),colour='grey50')Tony Hirsthttps://www.blogger.com/profile/07192476380420213082noreply@blogger.comtag:blogger.com,1999:blog-4270166522451627192.post-37176244945592425762011-12-28T19:16:58.335+00:002011-12-28T19:16:58.335+00:00As well as quali stats, I've started having a ...As well as quali stats, I've started having a look at the difference between final classification and grid position:<br /><br />#import the data<br />key='0AmbQbL4Lrd61dEd0S1FqN2tDbTlnX0o4STFkNkc0NGc'<br />sheet=2<br />raceResults2011=gsqAPI(key,'select *',sheet)<br /><br />#order the data<br />raceResults2011$team=factor(raceResults2011$team,levels=c("RBR-Renault","McLaren-Mercedes","Ferrari","Mercedes","Renault","Force India-Mercedes","Sauber-Ferrari","STR-Ferrari","Williams-Cosworth","Lotus-Renault","HRT-Cosworth","Virgin-Cosworth"),ordered=T)<br /><br />raceResults2011$race=factor(raceResults2011$race,levels=c("AUSTRALIA","MALAYSIA","CHINA","TURKEY","SPAIN","MONACO","CANADA","EUROPE","GREAT BRITAIN","GERMANY","HUNGARY","BELGIUM","ITALY","SINGAPORE","JAPAN","KOREA","INDIA","ABU DHABI","BRAZIL"),ordered=T)<br /><br />#Caluclate the position change<br />raceResults2011=ddply(.variables=c("race","team","driverName"),.data=raceResults2011,.fun= function(d) data.frame(d,pchange=d$grid-d$pos))<br /><br />#Line plot showing number of a position changes between grid position and final classification <br />ggplot(raceResults2011)+geom_line(aes(x=race,y=pchange,group=driverName,col=factor(driverName)), se=FALSE)+opts(title="F1 2011 Position Changes Grid-Final Classification",axis.text.x=theme_text(angle=-90))+xlab(NULL)+ylab("Number of places gained/lost")+ facet_wrap(~team)<br /><br />#loess model on a per driver basis of number of positions gained/loss given grid position and final classification<br />ggplot(raceResults2011)+stat_smooth(method="loess",aes(x=race,y=pchange,group=driverName,col=factor(driverName)), se=FALSE)+opts(title="F1 2011 Position Changes Grid-Final Classification",axis.text.x=theme_text(angle=-90))+xlab(NULL)+ylab("Number of places gained/lost")+ facet_wrap(~team)<br /><br />#Just in case: add in the number of unclassified positions per race<br />raceResults2011=ddply(.variables=c("race"),.data=raceResults2011,.fun= function(d) data.frame(d,missing=sum(is.na(d$pos))))Tony Hirsthttps://www.blogger.com/profile/07192476380420213082noreply@blogger.comtag:blogger.com,1999:blog-4270166522451627192.post-14105278784000573452011-12-28T16:52:25.643+00:002011-12-28T16:52:25.643+00:00@HenningO I just updated the post with another cha...@HenningO I just updated the post with another char, based on the single fastest laptime recorded during quali within a team...Tony Hirsthttps://www.blogger.com/profile/07192476380420213082noreply@blogger.comtag:blogger.com,1999:blog-4270166522451627192.post-20270475009382230972011-12-28T15:42:50.235+00:002011-12-28T15:42:50.235+00:00You're quick Tony!
It's funny how the ord...You're quick Tony!<br /><br />It's funny how the order of the lines at the end of the season matches quite closely to the overall team standings at the end of the year (except the mid-pack)!HenningOhttps://www.blogger.com/profile/09726131288342245018noreply@blogger.com