경우에 따라 plot 안에 다른 plot을 넣을 때가 있다. 예를 들어 0부터 2
require(ggplot2)
require(gridExtra)
p=ggplot(data.frame(x=c(0,2*pi)),aes(x=x))
p1=p+stat_function(fun=sin,colour="darkgreen",size=2)+theme_bw()
p1
또한 sin의 제곱 값을 그려보면 다음과 같다.
myfun2=function(x){
sin(x)^2
}
p2=p+stat_function(fun=myfun2,geom="area",colour="orange",fill="yellow",size=2)+
theme_bw()+ylab(expression(sin(x)^2))
p2
또한 sin의 세제곱 값을 그려보면 다음과 같다.
myfun3=function(x){
sin(x)^3
}
p3<-p+stat_function(fun=myfun3,colour="blue",size=2)+
theme_bw()+ylab(expression(sin(x)^3))
p3
이들 세개의 그래프를 하나로 그리려면 어떻게 할까 ? 여러가지 방법이 있지만 grid패키지의 viewport를 이용하는 것이 가장 간단하다. viewport()함수는 그래프의 전체 영역을 0부터 1로 생각하고 중심이 되는 x좌표,y좌표, 넓이, 높이로 정한다. 그리고 그 viewport에 출력하면 된다. 예를 들어 첫번째 plot오른쪽 위에 두번째 plot을 출력하려면 다음과 같이 하면 된다.
p1
vp2 <- viewport(x=0.75,y=0.75,width=0.4, height=0.4)
print(p2,vp=vp2)
마찬가지로 화면 왼쪽 아랫부분에 세번째 그래프를 출력하려면 다음과 같이 하면 된다.
p1
vp3 <- viewport(x=0.3,y=0.3,width=0.4, height=0.4)
print(p3,vp=vp3)
완성된 그래프에 글씨를 추가하려면 어떻게 하면 될까? grid.text를 쓰면 되는데 이떄 지정해주는 x,y좌표는 그래프 내의 좌표가 아닌 plot전체를 0부터 1까지 나는 좌표이다. 또한 글씨의 회전과 크기도 조절할 수 있다. 다음의 예를 보자.
p1
for (i in 0:10) grid.text(i,x=i/10,y=i/10,rot=i*36,gp=gpar(fontsize=20))
세개의 그래프를 하나에 그리고 “A”,“B”,“C”등으로 주석을 추가하면 우리가 만들고 싶어하던 plot이 완성된다.
p1
print(p2,vp=vp2)
print(p3,vp=vp3)
grid.text("A",x=0.13,y=0.9,gp=gpar(fontsize=20))
grid.text("B",x=0.13,y=0.48,gp=gpar(fontsize=20))
grid.text("C",x=0.57,y=0.9,gp=gpar(fontsize=20))
Comment 0
No. | Subject | Author | Date |
---|---|---|---|
934 | 교수님 오래간 만입니다. [2] | 에구머니나 | 2020.12.26 |
933 | 저도 생존 분석에 관해 질문 드리고자합니다. [3] | CSJU | 2020.12.23 |
932 | ggplot2 범례 관련하여 도움 요청드립니다. | hamdgogo | 2020.12.22 |
931 | 정회원 후원했습니다 교수님 [1] | 스튜던트 | 2020.12.16 |
930 | 생존분석 관련하여 문의드립니다. [2] | 따거81 | 2020.12.15 |
929 | PSM 질문합니다ㅜ | 카트라이더 | 2020.12.14 |
928 | ggplot으로 지도 그리기 관련 질문 | 양세마리 | 2020.12.14 |
927 | Interval censored data [1] | 김민철 | 2020.12.13 |
926 | 교수님 안녕하세요. 질문드립니다. [1] | JJ88 | 2020.12.09 |
925 | PSM의 matching 방법 기술에 대한 질문입니다. [1] | ng2o321 | 2020.12.01 |
924 | logistic 분석 시 오류 문제 상의드립니다. [1] | britnepak | 2020.12.01 |
923 | mytable을 가지고 ztable시, ztable의 caption, align 등 이 작동을 하지 않습니다. | 김찬식 | 2020.11.30 |
922 | RM-ANOVA 문의드립니다. | 김도 | 2020.11.27 |
921 | 질문드립니다. [3] | JJ1518 | 2020.11.27 |
920 | ggplot2 bar plot 관련 문의입니다. [4] | hamdgogo | 2020.11.26 |
919 | 4 그룹 비교 [2] | 벌레들 | 2020.11.25 |
918 | web-r에서 psm을 수행하였는데 레퍼런스는 어떻게 표시해야 하나요? [1] | 스티브 | 2020.11.24 |
917 | PSM 하려고 하는데 missing value가 없는데 자꾸 에러가 납니다. [1] | 스티브 | 2020.11.18 |
916 | 통계 web R로 돌린 후 통계검증법 확인 [1] | 딸기공주 | 2020.11.17 |
915 | 교수님, wbe-r로 메타분석을 돌렸는데 결과가 보이질 않아요. [2] | hanclan | 2020.11.16 |