前回のおさらいとして、関数textで「○」をプロット領域に書きます。
次に、プロット領域の外に凡例を書き込みます。
前回のプログラムに、太字の部分だけ追加しました。
# デバイス領域
png("110114_iris.png", height=700, width=500)
# 作図領域
par(mar=c(4,4,2,6),xpd=TRUE)
# プロット領域（散布図）
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="" br=""> text(iris[,1], iris[,3], names, cex=0.8)
text(iris[99,1], iris[99,3], "○", cex=6, col="red")
# 凡例
legend(8.1, 4, levels(iris[,5]), pch=15:17, col=rainbow(3), cex=1, bg='gray80')
dev.off()
