if (FALSE) {
par(mfrow = c(1, 2), oma = rep(0, 4))
CC <- hcl.colors(3, "Teal")
set.seed(22)
plot(lazega,
vertex.col = CC[lazega %v% "Office"],
vertex.cex = 2)
legend("topright",
pch = 21,
pt.bg = CC,
legend = c("Boston", "Hartford", "Providence"),
title = "OFFICE")
}
Run the code above in your browser using DataLab