
Last chance! 50% off unlimited learning
Sale ends in
PlotCirc(tab, acol = rainbow(sum(dim(tab))), aborder = "darkgrey",
rcol = SetAlpha(acol[1:nrow(tab)], 0.5), rborder = "darkgrey",
gap = 5, main = "", labels = NULL, cex.lab = 1.0, las = 1,
adj = NULL, dist = 2)
PlotPolar
tab <- matrix(c(2,5,8,3,10,12,5,7,15), nrow=3, byrow=FALSE)
dimnames(tab) <- list(c("A","B","C"), c("D","E","F"))
tab
PlotCirc( tab,
acol = c("dodgerblue","seagreen2","limegreen","olivedrab2","goldenrod2","tomato2"),
rcol = SetAlpha(c("red","orange","olivedrab1"), 0.5)
)
tab <- table(d.pizza$weekday, d.pizza$operator)
par(mfrow=c(1,2))
PlotCirc(tab, main="weekday ~ operator")
PlotCirc(t(tab), main="operator ~ weekday")
Run the code above in your browser using DataLab