R in action
x = mtcars[order(mtcars$mpg), ] x$color[x$cyl == 4] = "red" x$color[x$cyl == 6] = "blue" x$color[x$cyl == 8] = "darkgreen" dotchart(x$mpg, labels = row.names(x), cex = 0.7, color = x$color)
