result <- pmap("computer","Brand","HighEnd:Business")
plot(result, pmap_plot = "brand")
plot(result, pmap_plot = c("brand","attr"))
plot(result, pmap_plot = c("brand","attr"))
plot(result, pmap_scaling = 1, pmap_plot = c("brand","attr"))
result <- pmap("computer","Brand","HighEnd:Dated",
pmap_pref = c("Innovative","Business"))
plot(result, pmap_plot = c("brand","attr","pref"))
Run the code above in your browser using DataLab