Je vous offre un petit script permettant de visualiser vos résultats de Drive.
Ca fonctionne sous le logiciel R (http://cran.r-project.org/) , mais on peut aussi le faire tourner sur le net sans rien télécharger ;).
Voici un exemple issu de mes propres Drives:
Comment obtenir votre propre graphique? suivez ce tutoriel:
1) notez vos résultats de drives en mesurant la longueur et la dispersion (distance par rapport à votre ligne de jeu). Pour cela je vous laisse choisir la méthode (GGmaps, applis Android/IOS, vos pieds...).
2)Une fois à la maison, ouvrez votre tableur préféré (Excel, OOCalc...).
3)Rentrez "dispersion" et "longueur" dans les cellules A1 et B1, respectivement.
4)Rentrez vos données: dispersion en colonne A [si votre balle est 20m à gauche de votre ligne de jeu, rentrez -20; si c'est à droite, rentrez 20] et la longueur en colonne B.
5) rendez-vous sur ce site: http://pbil.univ-lyon1.fr/Rweb/
6) Dans le premier cadre de la page, supprimez le "code exemple" et copiez/collez le script suivant:
Code : Tout sélectionner
#BEGIN
library("ggplot2")
all_drives <- X
#nombre de drive
drives <- dim(all_drives)[1]
#calcule la longueur sur le graph (y) à partir de la longueur mesurée (GGmaps)
all_drives$longueur <- sqrt((all_drives$longueur^2)-(all_drives$dispersion^2))
#filtre les drives a prendre en compte pour Hexbin
use <- all_drives$longueur>(median(all_drives$longueur)-50)
counting <- all_drives[use,]
#compte le nombre de drives pris en comptes
count <- dim(counting)[1]
#compte le nombre de drives ommis
nc <- drives-count
#Détermine le nombre de bins
bins = count/3.25
# Hexbin plot + boxplot
p1 <- ggplot(counting, aes(x=dispersion,y=longueur)) + coord_equal(ylim=c(0, 300), xlim=c(-80,80))+ scale_y_continuous(breaks=seq(0, 300, 25)) + scale_x_continuous(breaks=seq(-50, 50, 25))
p1 <- p1 + theme_bw() + stat_binhex(colour="grey", bins=bins) + scale_fill_gradientn(colours=c("green","red"))
p1 <- p1 + geom_boxplot(data = all_drives, aes(x = -70), width = 15, fill = "grey95", colour = "#4246FF")
p1 <- p1 + geom_text(data= all_drives, x=0, y=275, label=paste("n = ",count," ; nc = ",nc))
p1 <- p1 + geom_segment(aes(x = 0, y = 0, xend = 0, yend = 270), linetype=2, colour ="grey")
#afficher le graphe
p1
#END
Pour l'exemple, vous pouvez copier/coller mes données qui sont disponibles ici: http://uselessfindings.wordpress.com/20 ... r-le-plot/
8) Cliquez sur le bouton "submit" qui est situé sous le 1er cadre
9) Hop votre graphique est en bas de la nouvelle page :)
Si vous avez des soucis, ou que le graph' de sortie ne vous plait pas, ou même des idées de stats intéressantes à visualiser, n'hésitez pas à le faire savoir ;)
Bonne soirée
