# 数値ベクトル同士のplot x <- c(1:10) # 1から10までの整数ベクトルを生成する y <- rnorm(10) # rnorm(n): 正規分布に従う乱数をn個生成する cat("x = ", x, "\n") cat("y = ", y, "\n") # x, yのplot png('test0-plot.png') plot(x, y) dev.off() # y=整数のplot y <- runif(10, min = 1, max=6) # runif(n, min, max): minからmaxの範囲でn個の乱数を生成する y <- as.integer(y) # 小数点以下を切り捨て cat("x = ", x, "\n") cat("y = ", y, "\n") png('test0-plot1.png') plot(x, y) dev.off() # Y軸の項目を置き換える png('test0-plot2.png') plot(x, y, axes=F) ylabels = c("a", "b", "c", "d", "e") axis(2, 1:length(ylabels), labels=ylabels) axis(1, labels=T) box() dev.off() # 参照線を引く png('test0-plot3.png') plot(x, y, axes=F) axis(2, 1:length(ylabels), labels=ylabels, tck=1.0, lty="dotted") axis(1, labels=T) box() dev.off() # プロットのマーカーを変更する(pch=16は黒丸) png('test0-plot4.png') plot(x, y, axes=F, pch=16) axis(2, 1:length(ylabels), labels=ylabels) axis(1, labels=T) box() dev.off()実行結果
$ Rscript test0.R x = 1 2 3 4 5 6 7 8 9 10 y = -1.404267 -0.5969088 0.06568647 -1.244883 0.5858204 -0.5415655 -2.311732 -0.3103803 -0.2324204 1.663108 null device 1 x = 1 2 3 4 5 6 7 8 9 10 y = 1 4 1 5 4 5 1 4 5 3 null device 1 null device 1 null device 1 null device 1test0-plot.png
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7uh9UvHwuz3ebhKcwasHophdVcLyu8JQhg_oVhGsFakoulZzPFASgKDCf2xX1OsLCpymwvofedueicHL_WZO6JxuJhzLKtqbxYU_Ygf5RtZakiGSjnECyYD5u5uWk7QWPoICLwfLiOVNI/s320/test0-plot.png)
test0-plot1.png
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiGdV55dON-SDx72PQCYvoJfTVXFfWFvbTGVus0vkYWjpjU0sPpteqVuJXQMyqBXq0cdQi2CpDZzmj8TwskSdt4KlUA-r9YXxjJan4vG8ZK8KdArllOK0enY4wVwMJfgjTg6GJGj75yVbsQ/s320/test0-plot1.png)
test0-plot2.png
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7aEGgMumetaq3BKddW0dEtsP1km6dShKunckwtT6pzIIyLu41PagAWtFCJyM30M5ncMdP4pAZVVUf9wJdgYon-dLkEbeuWFDgOTklmRF_1uh-C83Rs-N4ZdyyfFnNV4MPc7aVzdOY-Q27/s320/test0-plot2.png)
test0-plot3.png
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRXUswO7zTW1xKg_Oxnl6aQF9na6VReio2K_69rggl5UefBFtOgdWP3HcckpIAgDqwKapMuvy6Qmlr8BeHkg1E7tkWy_Z515ob9IhN9Zmy7vhlz7zgdU3L54T9oyKXeRhkIOpBlwW_ybH3/s320/test0-plot3.png)
test0-plot4.png
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRzR3CyUXFO772ynSX0rt_2eGm3Dv7lSkF9THh7Zw2MDgwPimIKRqT6pR2vM7n2VsX1HUueYk8WiTUpvKguPlpgsSSBETutcKZbUtOZylk59GymnvwMShSrpa6hTgBLCIvKPgB85agc2i-/s320/test0-plot4.png)
0 件のコメント:
コメントを投稿