Train The Trainer

  • Subscribe to our RSS feed.
  • Twitter
  • StumbleUpon
  • Reddit
  • Facebook
  • Digg

Thursday, 26 December 2013

How to visualize test change scores for coaches. Part 2

Posted on 14:54 by Unknown
How to visualize test change scores for coaches. Part 2

How to visualize test change scores for coaches. Part 2

To continue the previous How to visualize test change scores for coaches blogpost, here is another way to visualize individual change scores without falling for group averages. This way we can easily see individual ranks in both pre- and post- test, along with change score (which is also color coded). Quite easy to identify the outliers.

Orange rectanges represent group averages.

Enjoy!

library(reshape2)
library(ggplot2)
library(randomNames)

set.seed(112)

numberOfAthletes <- 20

athletes <- randomNames(numberOfAthletes)

test1 <- rnorm(mean = 100, sd = 20, n = numberOfAthletes)
test2 <- rnorm(mean = 110, sd = 20, n = numberOfAthletes)
diff <- test2 - test1

SWC <- sd(test1) * 0.2

change <- rep("Trivial", numberOfAthletes)

change[diff > SWC] <- "Beneficial"
change[diff < -SWC] <- "Harmful"

change <- factor(change, c("Harmful", "Trivial", "Beneficial"), ordered = T)

testingData <- data.frame(athlete = athletes, preTest = test1, postTest = test2,
diff = diff, change = change)

testingData <- melt(testingData, id.vars = c("athlete", "diff", "change"))

g <- ggplot(testingData, aes(x = variable, y = value)) + geom_line(aes(group = athlete,
color = change), linetype = "dashed", alpha = 0.9)

g <- g + geom_point(aes(color = change), size = 3, alpha = 0.7) + theme_bw(base_size = 12,
base_family = "Helvetica") + scale_colour_manual(values = c("dark red",
"grey", "dark green"))

g <- g + geom_text(data = subset(testingData, variable == "preTest"), aes(x = variable,
label = athlete, y = value), alpha = 0.8, size = 3.5, hjust = 1.1, vjust = 0)

g <- g + geom_text(data = subset(testingData, variable == "postTest"), aes(x = variable,
label = athlete, y = value), alpha = 0.8, size = 3.5, hjust = -0.1, vjust = 0)

g <- g + labs(x = "Test", y = "Bench Press 1RM")

g <- g + stat_summary(fun.y = mean, geom = "point", fill = "orange", shape = 23,
size = 6, alpha = 0.6)
g

plot of chunk unnamed-chunk-1

And we can even put boxplot on top of it

g <- g + geom_boxplot(color = "grey", fill = "grey", alpha = 0.05)
g

plot of chunk unnamed-chunk-2

Email ThisBlogThis!Share to XShare to Facebook
Posted in analysis, dashboards, monitoring, Performance Analysis, R, Random Thoughts, statistics, Theory | No comments
Newer Post Older Post Home

0 comments:

Post a Comment

Subscribe to: Post Comments (Atom)

Popular Posts

  • Playbook: Understanding MODERATION through simulation
    Playbook: Understanding MODERATION through simulation Playbook: Understanding MODERATION through simulation Introduction I rece...
  • 6 weeks running program for soccer players
    This is an article I wrote couple of months ago for one website, but it never got published, so I decided to publish it on my b...
  • Interview with Steve Magness
    Interview with Steve Magness In the last couple of years blog by Steve Magness “ Science of Running ” was more than the source of casual re...
  • Guest Article: Biological Planning, Organizing, and Programming for Physical Preparation. Part 2
    BIOLOGICAL PLANNING, ORGANIZING, AND  PROGRAMMING FOR PHYSICAL PREPARATION Part 2 Click HERE for part 1 Planning Working Backwards Many coa...
  • Research Review – Effects of different pushing speeds on bench press
    Research Review – Effects of different pushing speeds on bench press Rob Shugg from Kinetic Performance brought this very interesting study ...
  • Interview with Mike Boyle
      Interview with Mike Boyle There are four coaches that were highly influential on my physical preparation philosophy and practice. The firs...
  • Analysis of Reactive Training System
    Although I have promised in Periodization confusion article that I am going to make a real-world practical example on planning the preparat...
  • Planning the Strength Training. Part 1
    Planning the strength training From novice to elite CHARACTERISTICS OF THE LIFTER According to Mark Rippetoe, the author of Practical Progra...
  • Periodization Confusion?
    I have recently been reading Transfer of Training  (Volume 2) by Dr Anatoly Bondarchuk an...
  • Interview with David Tenney
    I must admit that David has a really good timing. He must have developed it in his soccer career - I am just packing to get back to Serbia a...

Categories

  • analysis
  • Basketball
  • Biomechanics
  • conditioning
  • dashboards
  • Download
  • ELEIKO
  • energy system development
  • Excel
  • Fasting
  • fun
  • general vs. specific
  • Good Reads
  • Guest Article
  • GymAware
  • HRV
  • IE20-10
  • injuries
  • interview
  • Italian
  • links
  • martial arts
  • MMA
  • monitoring
  • Muscles
  • Notice
  • Nutrition
  • Olympic lifting
  • On Serbian
  • Performance Analysis
  • periodization
  • Philosophy
  • Physical Therapy
  • Physiology
  • planning
  • powerlifting
  • Product
  • programming
  • Psychology
  • R
  • Random Thoughts
  • Research
  • Review
  • Roberto Sassi
  • RPE
  • RSA
  • runnings
  • screen cast
  • soccer
  • statistics
  • strength training
  • team sports
  • Theory
  • videos
  • visit
  • volleyball
  • Warm-up
  • wellness questionnaire

Blog Archive

  • ▼  2013 (54)
    • ▼  December (7)
      • Playbook: Understanding MODERATION through simulation
      • Interview with Mike Boyle
      • How to visualize test change scores for coaches. P...
      • 30% off for all Complementary Training Products bo...
      • Athlete Monitoring 1.0
      • Strength Card Builder 2.0
      • Interview with Steve Magness
    • ►  November (8)
    • ►  October (4)
    • ►  September (6)
    • ►  August (8)
    • ►  July (3)
    • ►  June (2)
    • ►  May (5)
    • ►  April (2)
    • ►  March (7)
    • ►  February (1)
    • ►  January (1)
  • ►  2012 (55)
    • ►  December (4)
    • ►  November (4)
    • ►  October (9)
    • ►  September (9)
    • ►  August (6)
    • ►  July (6)
    • ►  June (5)
    • ►  May (2)
    • ►  April (2)
    • ►  March (5)
    • ►  February (3)
  • ►  2011 (48)
    • ►  December (3)
    • ►  November (2)
    • ►  October (4)
    • ►  September (2)
    • ►  August (2)
    • ►  July (1)
    • ►  June (9)
    • ►  May (12)
    • ►  April (2)
    • ►  March (1)
    • ►  February (1)
    • ►  January (9)
  • ►  2010 (42)
    • ►  December (11)
    • ►  November (5)
    • ►  October (19)
    • ►  September (7)
Powered by Blogger.

About Me

Unknown
View my complete profile