48. とりあえず plot()

 
 x <- 1:10
 y <- 1:10                # plot(x 軸のデータ, y 軸のデータ, オプション)
 plot(x, y)               # 範囲は自動で決まる(xlim=c(1,10)を指定した場合と同じ)
 plot(x, y, xlim=c(10,1)) # x 軸の正の向きを左向きにすることも出来る

 
 plot(sin, -pi, 2*pi)                                   # plot(関数名, 下限, 上限)
 gauss.density <- function(x) 1/sqrt(2*pi)*exp(-x^2/2)  # 標準正規分布の密度
 plot(gauss.density,-3,3)

 
 persp(x 軸のデータ, y 軸のデータ, z 軸のデータ, col = 色,
       theta = 横回転の角度, phi = 縦回転の角度, expand = 拡大率, border=NA)

 
 x <- seq(-3,3,length=50)     # x 方向の分点
 y <- x                       # y 方向の分点
 rho <- 0.9                   # 2次元正規分布の定数
 gauss3d <- function(x,y) {   # 2次元正規分布の関数
   1/(2*pi*sqrt(1-rho^2))*exp(-(x^2-2*rho*x*y+y^2) / (2*(1-rho^2)))
 }
 z <- outer(x,y,gauss3d)      # 外積をとって z 方向の大きさを求める
 z[is.na(z)] <- 1             # 欠損値を1で補う
 persp(x, y, z, theta = 30, phi = 30, expand = 0.5, col = "lightblue")

引数

機能

type="p"

点プロット(デフォルト)

type="l"

線プロット(折れ線グラフ)

type="b"

点と線のプロット

type="c"

"b" において点を描かないプロット

type="o"

点プロットと線プロットの重ね書き

type="h"

各点から x 軸までの垂線プロット

type="s"

左側の値にもとづいて階段状に結ぶ

type="S"

右側の値にもとづいて階段状に結ぶ

type="n"

軸だけ描いてプロットしない(続けて低水準関数でプロットする場合)

 
 x <- rnorm(10)
 plot(x, type="l") 

引数

機能

log="x"

"x" ( x 対数軸) ，"y" ( y 対数軸) ，"xy" (両対数軸) の何れかを指定することが出来る (対数は常用対数のみ) ．

xlim=c(0, 1)，ylim=c($-1$, 1)

長さ 2 のベクトルで x 座標， y 座標の最小値と最大値を与える，他にも xlog, ylog で対数プロットが出来る．ベクトルを降順に並べる (例：c(2, -2)) と，プロットの向きが逆になる．

axes=FALSE

軸の生成を抑制する．軸の他に表題，刻み，目盛も描くかどうかを論理値で指定する（省略時は TRUE）．他に xaxs, yaxs が指定出来る．

 
 x <- rnorm(10)
 plot(x, ylim=c(-30, 30), type = "l")

引数

機能

main="Title"

タイトルを与える文字列を指定する．この引数を省略するとは表題は描かれない．

sub="SubTitle"

サブタイトルを与える文字列を指定する．この引数を省略すると副題は描かれない．

xlab="X-Label"，ylab="Y-Label"

それぞれ x 座標名， y 座標名を与える文字列を指定する．省略すると，x 軸のデータとして与えられた引数の名前が座標名として描かれる．

ann = F

軸のラベルを描かないようにすることも出来る ( xlab = "" ，ylab = "" を同時に指定した場合と同じ．) ．

tmag=1.2

プロットの別の注釈するテキストに関する主なタイトルのテキストの拡大率を指定する．

 
 x <- rnorm(10)
 plot(x, main="Simple Time Series")

 
 frame()
 plot.new()