CPCP gallery

data(Titanic)
titanic <- as.data.frame(Titanic)

# the default

scpcp(titanic)

plot of chunk unnamed-chunk-2

# no rectangles

scpcp(titanic, level.width = 0)

plot of chunk unnamed-chunk-3

# no gaps between levels

scpcp(titanic, gap = 0)

plot of chunk unnamed-chunk-4

# default with highlighting

scpcp(titanic, sel = "data[,4]")

plot of chunk unnamed-chunk-5

# random color vector: cases are sorted by color vaiable

scpcp(titanic, sel = "sample(1:6,nrow(data),T)", sel.hide = FALSE)