統計環境R で散布図作成

体重、身長の散布図を作成したい。男女別に色分けして作成したいがどうすればいいか。


#ここから
x <- c(53,38,72,64,51)
y <- c(160,150,180,170,165)
z <- c(1,0,1,0,1)
z_col <- ifelse(z == 0,"red","blue")
plot(x,y,col=z_col,pch=16)
# とりあえず、ここまで

#あまりにもシンプルなので、いろいろ設定してみる
plot(x,y,col=z_col,pch=16,cex=1.5
,main="身長、体重の男女別散布図", xlab="体重",ylab="身長")

#凡例も追加、ちなみに、最初の２つの引数はグラフ上の
#位置（x,y）なので、あなたのデータでは調整が必要
#普通は、位置を決めるプログラムを書いたりする
#（excelみたいなオートマチックではない）
#、、手動で位置決めとかはあるが。

legend(62,160, c("女","男"), cex=1.5, pch=16,col=c("red","blue"))


#回帰線を引いてみる
xy.lm <- lm(y~x)
abline(xy.lm,col="black",lwd=2,lty=2)

#回帰分析の結果
summary(xy.lm)

# 身長(y) ＝ 118.6119 ＋ x * 0.8343