# 散布図
png("110113_iris.png", height=600, width=400)
plot(iris[,1], iris[,3], xlab="iris[,1]", ylab="iris[,3]", pch=(15:17)[unclass(iris[,5])], col=rainbow(3)[unclass(iris[,5])], cex=1.5)
# 文字列の描画
names <- c(1:150)
text(iris[,1], iris[,3], names, cex=0.8)
# 凡例
legend(6.5, 2.5, levels(iris[,5]), pch=15:17, col=rainbow(3), cex=1.4)
dev.off()
R 「関数textとlegend 3」
集団から外れている個体番号を目で確認したい場合など、関数textを使うと便利です。昨日のプログラムに、太字の部分だけ追加しました。