R Graphics 낮은 수준의 그래프 함수 (7) 다각형 추가 : polygon(x, y, ...)

지난번 포스팅에서는 그래프에 추가적인 정보를 입력하는 낮은 수준의 그래프 함수(low level graphic functions) 중에서

(1) 제목, XY축 Label 추가하는 title()

(2) XY축의 형태를 변환하는 axis(side, ...)

(3) 직선 연결, 추가 : lines(x, y), abline(a, b), abline(h=y), abline(v=x)

(4) 점 추가 : points(x, y)

(5) 문자 추가 : text(x, y, labels, ...), mtext()

(6) 범례 추가 : legend(x, y, legend, ...)

에 대해서 알아보았습니다.

 

이번 포스팅에서는 낮은 수준의 그래프 함수 네번째로 (7) 다각형 추가 : polygon(x, y, ...) 에 대해서 소개하겠습니다.

[ 낮은 수준의 그래프 함수 (Low level graphic function) ]

 

 

 

다각형을 그리는 polygon() 함수의 일반적인 사용법은 다음과 같습니다.

 

polygon(x, y = NULL, density = NULL, angle = 45,         border = NULL, col = NA, lty = par("lty"),         ..., fillOddEven = FALSE)

 

 

구분	기능 설명
x, y	다각형의 좌표의 벡터
density	다각형 안을 채우는 음영 선의 밀도 (default 는 NULL)
angle	음영있는 선의 각도 (수평선을 기준으로 해서 반시계방향)
border	다각형 테두리의 색깔
col	다각형을 채우는 색깔 (default 는 NA)
lty	par() 에서 사용하는 선 유형   : 0=blank, 1=solid (default), 2=dashed, 3=dotted, 4=dotdash,     5=longdash, 6=twodash
...	추가로 그래프 모수 사용 가능
fillOddEven	다각형의 음영을 논리적으로 조절하는 모드 (default 는 FALSE)

 

 

 

두 개의 삼각형을 테두리의 색깔(border)과 선 유형(lty), 다각형을 채우는 색깔(col), 다각형을 채우는 선의 밀도(density)와 각도(angle), 색깔(col)을 달리해서 그려보겠습니다.

 

x와 y의 좌표값의 중간에 "NA" value가 들어갔음에 주의해서 보시기 바랍니다.

> ##------------------------------------- > ## polygon : polygon(x, y, ...) > ##------------------------------------- > > # Multiple polygons from NA values > > plot(c(1, 6), c(-3.5, 3.5), type = "n") > x <- c(1, 2, 3, NA, 4, 4, 6) > y <- c(1, -3, 2, NA, -3, 3, -3) > polygon(x, y, + col = c("yellow", "blue"), + border = c("black", "red"), + lwd = 2, + lty = c("dotted", "solid")) > title("Multiple polygons from NA values")

 

 

 

아래의 다각형은 위와 R script가 거의 동일한데요, 단 한가지 차이점이라면 x, y의 좌표값에 "NA" value가 없다는 점입니다.  "NA" value가 없다보니 R은 중간에 다각형을 분리하지를 못하고, 그냥 하나의 색깔, 선 유형, 다각형 채우는 색을 계속 사용하고 있습니다.

 

> ## what if no NA value > plot(c(1, 6), c(-3.5, 3.5), type = "n") > x <- c(1, 2, 3, 4, 4, 6) > y <- c(1, -3, 2, -3, 3, -3) > polygon(x, y, + col = c("yellow", "blue"), + border = c("black", "red"), + lwd = 2, + lty = c("dotted", "solid")) > title("Multiple polygons without NA value")

 

 

 

이번에는 다각형 안의 음영을 선으로 채우는 방법을 소개하겠습니다. density 로 선의 밀도(숫자가 클 수록 촘촘해짐)를 지정하고, angle 로 선의 각도(수평선을 기준으로 반시계방향)를 지정하면 됩니다.

 

> # Line-shaded polygons > plot(c(1, 6), c(-3.5, 3.5), type = "n") > x <- c(1, 2, 3, NA, 4, 4, 6) > y <- c(1, -3, 2, NA, -3, 3, -3) > polygon(x, y, + col = c("yellow", "blue"), + border = c("black", "red"), + lwd = 2, + lty = c("dotted", "solid"), + density = c(10, 20), + angle = c(45, -45)) > title("Multiple polygons with Line-shaded density")

 

 

 

아래 다각형은 x, y 좌표값이 위에서 든 예시와는 좀 다르지요?  두개의 좌표값들 간의 거리에 색깔을 채워넣은 형태의 그래프인데요, polygon() 함수로 이런 그래프도 그릴 수 있다는 예시로 보면 좋겠다 싶어서 www.math.cula.edu 사이트에서 참조하였습니다.

 

> ## Color-shaded polygon > # exmaple source : http://www.math.ucla.edu/~anderson/rw1001/library/base/html/polygon.html > 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")

 * R script source : http://www.math.ucla.edu/~anderson/rw1001/library/base/html/polygon.html

 

 

많은 도움 되었기를 바랍니다.

 

이번 포스팅이 도움이 되었다면 아래의 '공감 ~♡' 단추를 꾸욱 눌러주세요.^^