inst/examples/point-iris.R

In yihui/MSG: Data and Functions for the Book Modern Statistical Graphics

# 鸢尾花的花瓣长宽散点图
# 先将鸢尾花的类型转化为整数 1、2、3，便于使用向量
data("iris")
idx = as.integer(iris[["Species"]])
plot(iris[, 3:4], xlab = "花瓣长度", ylab = "花瓣宽度",
     pch = c(24, 21, 25)[idx],
     col = c("black", "red", "blue")[idx], panel.first = grid()
)
legend("topleft",
       legend = levels(iris[["Species"]]),
       col = c("black", "red", "blue"), pch = c(24, 21, 25), bty = "n"
)