グラフィックス参考実例集：多角形
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
COLOR(red){SIZE(20){グラフィックス参考実例集：閉多角形を...
([[グラフィックス参考実例集]]に戻る。[[Rのグラフィックス...
polygon 関数は(閉)多角形を描、その中を塗りつぶす(または斜...
polygon(x, y)
引数xとyには多角形の頂点のx、y座標のベクトルを指定します...
引数densityによって、多角形の内部を塗りつぶすか、ハッチン...
引数colに色番号を指定することによって、輪郭線と塗りつぶし...
#contents
~
** xpd の値により枠からのはみ出しを制御
polygon1 <- function () {
on.exit(par(old.par <- par(no.readonly = TRUE)))
on.exit(dev.off())
png("polygon1.png")
x <- c(1:9,8:1)
y <- c(1,2*(5:3),2,-1,17,9,8,2:9)
par(mfcol=c(3,1))
for(xpd in c(FALSE,TRUE,NA)) {
plot(1:10, main=paste("xpd =", xpd)) ; box("figure",...
polygon(x,y, xpd=xpd, col = "orange", lty=2, lwd=2, ...
}
}
#ref(polygon1.png,left)
**曲線で囲まれた部分を塗りつぶす
polygon2 <- function () {
on.exit(par(old.par <- par(no.readonly = TRUE)))
on.exit(dev.off())
png("polygon2.png")
n <- 100
xx <- c(0:n, n:0)
yy <- c(c(0,cumsum(rnorm(n))), rev(c(0,cumsum(rnorm(n)...
plot (xx, yy, type="n", xlab="Time", ylab="Distance")
polygon(xx, yy, col="gray", border = "red")
title("Distance Between Brownian Motions")
}
#ref(polygon2.png,left)
**NA 値があると多角形は分割される。col, border, lty はリ...
polygon3 <- function () {
on.exit(par(old.par <- par(no.readonly = TRUE)))
on.exit(dev.off())
png("polygon3.png")
par(mfrow=c(2,1))
plot(c(1,9), 1:2, type="n")
polygon(1:9, c(2,1,2,1,1,2,1,2,1),
col=c("red", "blue"),
border=c("green", "yellow"),
lwd=3, lty=c("dashed", "solid"))
plot(c(1,9), 1:2, type="n")
polygon(1:9, c(2,1,2,1,NA,2,1,2,1),
col=c("red", "blue"),
border=c("green", "yellow"),
lwd=3, lty=c("dashed", "solid"))
}
#ref(polygon3.png,left)
**線でハッチング
polygon4 <- function () {
on.exit(par(old.par <- par(no.readonly = TRUE)))
on.exit(dev.off())
png("polygon4.png")
plot(c(1,9), 1:2, type="n")
polygon(1:9, c(2,1,2,1,NA,2,1,2,1),
density=c(10, 20), angle=c(-45, 45))
}
#ref(polygon4.png,left)
終了行:
COLOR(red){SIZE(20){グラフィックス参考実例集：閉多角形を...
([[グラフィックス参考実例集]]に戻る。[[Rのグラフィックス...
polygon 関数は(閉)多角形を描、その中を塗りつぶす(または斜...
polygon(x, y)
引数xとyには多角形の頂点のx、y座標のベクトルを指定します...
引数densityによって、多角形の内部を塗りつぶすか、ハッチン...
引数colに色番号を指定することによって、輪郭線と塗りつぶし...
#contents
~
** xpd の値により枠からのはみ出しを制御
polygon1 <- function () {
on.exit(par(old.par <- par(no.readonly = TRUE)))
on.exit(dev.off())
png("polygon1.png")
x <- c(1:9,8:1)
y <- c(1,2*(5:3),2,-1,17,9,8,2:9)
par(mfcol=c(3,1))
for(xpd in c(FALSE,TRUE,NA)) {
plot(1:10, main=paste("xpd =", xpd)) ; box("figure",...
polygon(x,y, xpd=xpd, col = "orange", lty=2, lwd=2, ...
}
}
#ref(polygon1.png,left)
**曲線で囲まれた部分を塗りつぶす
polygon2 <- function () {
on.exit(par(old.par <- par(no.readonly = TRUE)))
on.exit(dev.off())
png("polygon2.png")
n <- 100
xx <- c(0:n, n:0)
yy <- c(c(0,cumsum(rnorm(n))), rev(c(0,cumsum(rnorm(n)...
plot (xx, yy, type="n", xlab="Time", ylab="Distance")
polygon(xx, yy, col="gray", border = "red")
title("Distance Between Brownian Motions")
}
#ref(polygon2.png,left)
**NA 値があると多角形は分割される。col, border, lty はリ...
polygon3 <- function () {
on.exit(par(old.par <- par(no.readonly = TRUE)))
on.exit(dev.off())
png("polygon3.png")
par(mfrow=c(2,1))
plot(c(1,9), 1:2, type="n")
polygon(1:9, c(2,1,2,1,1,2,1,2,1),
col=c("red", "blue"),
border=c("green", "yellow"),
lwd=3, lty=c("dashed", "solid"))
plot(c(1,9), 1:2, type="n")
polygon(1:9, c(2,1,2,1,NA,2,1,2,1),
col=c("red", "blue"),
border=c("green", "yellow"),
lwd=3, lty=c("dashed", "solid"))
}
#ref(polygon3.png,left)
**線でハッチング
polygon4 <- function () {
on.exit(par(old.par <- par(no.readonly = TRUE)))
on.exit(dev.off())
png("polygon4.png")
plot(c(1,9), 1:2, type="n")
polygon(1:9, c(2,1,2,1,NA,2,1,2,1),
density=c(10, 20), angle=c(-45, 45))
}
#ref(polygon4.png,left)
ページ名:
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
