Tag Archives: Spinogram

library(vcd)

str(UKSoccer)

##  table [1:5, 1:5] 27 59 28 19 7 29 53 32 14 8 ...
##  - attr(*, "dimnames")=List of 2
##   ..$ Home: chr [1:5] "0" "1" "2" "3" ...
##   ..$ Away: chr [1:5] "0" "1" "2" "3" ...

UKSoccer

##     Away
## Home  0  1  2  3  4
##    0 27 29 10  8  2
##    1 59 53 14 12  4
##    2 28 32 14 12  4
##    3 19 14  7  4  1
##    4  7  8 10  2  0

UKSoccer.trans <- margin.table(UKSoccer, 2:1)
spineplot(UKSoccer.trans)