[ R ]다양한 시각화 # 4 조건 그래프

(7)  조건 그래프 

조건 a에 의해서 x에 대한 y의 그래프를 그린다.

조건으로 지정된 변수의 값을 일정한 구간으로 범주화하여 조건 그래프를 그린다.

coplot()함수 : coplot(y축 컬럼 ~ x축 컬럼 | 조건 컬럼, data )

 

 

# depth 조건에 의해서 위도와 경도의 조건 그래프 그리기

coplot(lat~long|depth, data=quakes)

 

# 조건의 구간 크기와 겹침 간격 적용 후 조건 그래프 그리기

#1 조건의 구간 막대기가 0, 1 단위로 겹쳐 범주화

coplot(lat~long|depth, data=quakes, overlap = 0.1)

 

 

#2 조건 구간을 5개로 지정하고, 1행 5열의 패널로 조건 그래프 작성

coplot(lat~long|depth, data=quakes, number = 5, row = 1)

 

 

 

# 패널과 조건 막대에 색을 적용하여 조건 그래프 그리기

#1 패널 영역에 부드러운 곡선 추가

coplot(lat~long|depth, data=quakes,        number = 5, row = 1, panel = panel.smooth)

 

 

#2 패널 영역과 조건 막대에 색상 적용

coplot(lat~long|depth, data=quakes,        number = 5, row = 1, col = "blue", bar.bg = c(num = "green3"))

 

(8)  3차원 산점도 그래프

cloud()함수 : cloud(z축변수 ~ y축변수 *x축 변수, data)

 

# 위도, 경도, 깊이를 이용하여 3차원 산점도 그리기

cloud(depth~lat*long, data=quakes,        zlim = rev(range(quakes$depth)),       xlab = "경도", ylab = "위도", zlab = "깊이")

 

 

# 테두리와 회전 속성을 추가하여 3차원 산점도 그래프 그리기

#1. panel. aspect  : 테두리 사이즈

#1-1 panel. aspect  = 0.5 

cloud(depth~lat*long, data=quakes,        zlim = rev(range(quakes$depth)),       panel.aspect = 0.5,                      screen = list(z = 45, x = -25),          xlab = "경도", ylab = "위도", zlab = "깊이")

 

#1-2 panel. aspect  = 1.5 

cloud(depth~lat*long, data=quakes,        zlim = rev(range(quakes$depth)),       panel.aspect = 1.5,                       screen = list(z = 45, x = -25),           xlab = "경도", ylab = "위도", zlab = "깊이")

 

#1-3 panel. aspect  = 1 

cloud(depth~lat*long, data=quakes,        zlim = rev(range(quakes$depth)),       panel.aspect = 1,                        screen = list(z = 45, x = -25),          xlab = "경도", ylab = "위도", zlab = "깊이")

 

#2. screen = list() : 축 회전

#2-1 screen = list (z = -10, x = -25)

cloud(depth~lat*long, data=quakes,        zlim = rev(range(quakes$depth)),       panel.aspect = 1,                         screen = list(z = -10, x = -25),           xlab = "경도", ylab = "위도", zlab = "깊이")

 

#2-2 screen = list (z = 20, x = -25)

cloud(depth~lat*long, data=quakes,        zlim = rev(range(quakes$depth)),       panel.aspect = 1,                        screen = list(z = 20, x = -25),           xlab = "경도", ylab = "위도", zlab = "깊이")

 

 

#2-3screen = list (z = 40, x = -25)

cloud(depth~lat*long, data=quakes,        zlim = rev(range(quakes$depth)),       panel.aspect = 1,                        screen = list(z = 40, x = -25),            xlab = "경도", ylab = "위도", zlab = "깊이")