분석에 사용되는 데이터

direction,altitude,tree_height
east,260,12.1
east,320,12.3
east,390,8.2
east,430,9.8
east,470,7.9
east,500,6
west,280,15.3
west,330,11.9
west,380,11.2
west,410,9.3
west,440,7.9
west,500,6.8

산점도 그리기

> # CSVファイルを読み込む
> tree_height <- read.table("C:\\tree_height.csv", header=TRUE, encoding="CP932", sep=",")
> # 相関係数を求めて、変数corrに代入する。この時、round関数で小数第3位以下を丸めている。
> corr <- round( cor(tree_height$altitude, tree_height$tree_height, method="pearson"), 2)
> corr
[1] -0.92
> # 散布図を描画する。
> plot(tree_height$altitude, tree_height$tree_height, main="標高と樹高との関係", xlab="標高(m)", ylab="樹高(m)")
> # 相関係数の値を「r={相関係数}」という文字列に直す。
> corr_text <- paste("r=", corr, sep="")
> corr_text
[1] "r=-0.92"
> # 相関係数の文字列をグラフの右上から少し隙間を空けて表示する。
> mtext(corr_text, line=-1.2, side=3, adj=0.98)

요약