# some fake NFL injury data

library(gdata)
NFL = read.xls("c:\\projects\\hrp223\\graphics\\NFL.xls")

#basic dot plot
with(NFL,
  dotchart(
    table(type,position),
    main = "NFL 2010-2011",
    cex = 1.1,
    xlab = "Count of facial injuries",
    xlim = c(0,50),
    pch = 19,
    color = c("black", "red", "black")
  )
)
       
#basic violin plot of fake pain data
pain = read.xls("c:\\projects\\hrp223\\graphics\\pain.xls")
library(UsingR)
with(pain,
  simple.violinplot(
    ouch ~ group ,
    col = "gray")
)