## Define a NG_data object
data(olive)
ng.olive <- ng_data(name = "Olive",
data = olive[,-c(1,2)],
shortnames = c("p1","p2","s","ol","l1","l2","a","e"),
group = as.numeric(olive$Area)+1
)
nav <- scagNav(data = ng.olive,
scags = c("Skinny", "Sparse", "NotConvex"),
topFrac = 0.2,
combineFn = max,
glyphs = shortnames(ng.olive)[1:8],
sep = ':')
nav <- scagNav(data = ng.olive,
scags = c("Skinny", "Sparse", "NotConvex"),
topFrac = 0.2,
glyphs = shortnames(ng.olive)[1:8],
sep = ':')
Run the code above in your browser using DataLab