plot type type= n text plot type= n text(x,y) iris 5 iris iris.label >iris.label<-rep(c(,, ),rep(50,3)) 2 13 >plot(iris[,1],iris

Size: px

Start display at page:

Download "plot type type= n text plot type= n text(x,y) iris 5 iris iris.label >iris.label<-rep(c(,, ),rep(50,3)) 2 13 >plot(iris[,1],iris"

そうりんかたいわ
5 years ago
Views:

1 R iris 1 3 plot >plot(iris[,1],iris[,3]) 11 iris[, 3] iris[, 3] iris[, 1] iris[, 1] >plot(iris[,1],iris[,3],type="n") >text(iris[,1],iris[,3]) 1

2 plot type type= n text plot type= n text(x,y) iris 5 iris iris.label >iris.label<-rep(c(,, ),rep(50,3)) 2 13 >plot(iris[,1],iris[,3],type="n") >text(iris[,1],iris[,3],iris.label) iris[, 3] iris[, 1] 13 2

3 13 ( ) setosa versicolorvirginica 2 setosa plot 3 3 plot plot(x, y, xlim=range(x), ylim=range(y), type="p", main, xlab, ylab ) x y xlim ylim type main xlab ylab cex "p" "l" "b" "c" "h" "n" () x ( ) y ( ) 3 14 >plot(iris[,1],iris[,3],type="p",xlab="length of epal", ylab="length of Petal",cex=2, col= red ) 4 iris 15 >plot(iris[,1],iris[,3],pch = 21, cex=2,bg = c(2, 3, 4)[unclass(iris$pecies)]) pch = 21 bg = c(2, 3, 4) 3 ( ) [unclass(iris$pecies)] iris pecies Iris 3 50 setosa 2 (red)51100 versicolor 3 (green) virginica 4 (blue) plot cex 3

4 >par(cex=0.8) cex par par par(cex=,pch=, mfrow=, col=,) cex= pch=n ( ) pch mfrow=c(m,n) m n c(1,1) mfcol=c(m,n) m n c(1,1) bg= col= 1 col=red col=2 () lty= 2 lwd= 1 6 pch pch=1 4

5 16 pch 2 1 iris iris >pairs(iris[1:4]) pairs(iris[1:4], pch = 21, bg = c("red", "green3", "blue")[unclass(iris$pecies)]) 5

6 17iris pch = 21 bg = c("red", "green3", "blue") [unclass(iris$pecies)] pecies

7 183 latticescatterplot3d 3 Package lattice [OK] library(lattice) [Enter] lattice R lattice 3 iris 19 >library(lattice) >cloud(iris[,1]~iris[,2]*iris[,3],col= blue,pch=19,data = iris) 19 iris 3 1 7

$x >f <- function(x,y) {r <- (y^2)-(x^2)} >z <- outer(x, y, f) >persp(x, y, z,theta = 60,phi = 25,expand = 0.$

8 cloud cloud(formula,data) data z ~ x * y z x,y ~ 20 >cloud(epal.length ~ Petal.Length * Petal.Width, data = iris,groups = pecies) groups 20 pch=c(16,17,18),col=c(1,2,4) 20 iris screen = list(z =, x=,y = ) screen = list(z = 0, x=10,y =-15 ) 21 3 graphics persp 2 2 z = y x 5 x 5 5 y 5 >x <- seq(-5, 5, length=50) >y <- x >f <- function(x,y) {r <- (y^2)-(x^2)} >z <- outer(x, y, f) >persp(x, y, z,theta = 60,phi = 25,expand = 0.8,shade=.01,col = "lightblue") 8

9 persp >data(volcano) >z <- 5 * volcano # 5 >x <- 10 * (1:nrow(z)) # 10 >y <- 10 * (1:ncol(z)) # 10 >par(bg = "skyblue") # >persp(x, y, z, theta = 115, phi = 20, col = "lightgreen", scale = FALE,ltheta = -120, shade = 0.75, border = NA, box = FALE) 23volcano 3 9

10 graphics contourfilled.contour image lattice >contour(volcano,main="contour(volcano) ") >image(volcano,main="image(volcano) ") contour(volcano) 25image(volcano) >image(volcano,main="image(volcano) n contour(volcano,add=t) n ") >contour(volcano,add=t) 10

11 26 image contour >filled.contour(volcano, color = terrain.colors) >levelplot(volcano,main="levelplot(volcano) n ") 27 filled.contour 28 levelplot 11

「統計数学３」

「統計数学３」関数の使い方 1 関数と引数関数の構造関数名 ( 引数 1, 引数 2, 引数 3, ) 例 : マハラノビス距離を求める関数 mahalanobis(data,m,v) 引数名を指定して記述する場合 mahalanobis(x=data, center=m, cov=v) 2 関数についてのヘルプ基本的な関数のヘルプの呼び出し? 関数名例 :?mean 例 :?mahalanobis 指定できる引数を確認する関数