교수님 안녕하세요
선생님께 많은 도움 얻어 열심히 논문쓰고 있는 전임의 입니다.
다름이 아니라 제가 4개의 simple linear regression plot을 한 figure 안에 담으려고 하는데요
독립변수 1개 (Ant-PT)와 4개의 종속 변수 (Immediate PT, 3 months PT, 6 months PT, and 12 months PT) 각각의 회귀 선을 그려보려 합니다.
그래프와 dot를 한 figure 안에 넣는 것은 하였는데요, legend 추가와 수정에 몇시간째 끙끙 거리고 있습니다.
아래 첨부해드리는 것 처럼 legend 넣는 것 까지는 성공하였는데 각 line의 color와 dot (pch) 별로 legend를 만들어 보고 싶습니다.
legend 위치도 가능하면 Left bottom에 넣고 싶구요..
교수님 바쁘시겠지만 도움 주시면 감사드리겠습니다.
아래 제가 작성한 코드와 데이터시트 첨부하겠습니다.
감사합니다!
pal <- c("PT_IMM" = "#26ABBF", "PT__3M" = "#3C733F", "PT_6M" = "#F2B950", "PT_12M"="#D93B3B")
AT<-ggplot(df1, aes(x=M_pelvic_tilt_Rt, y=PT_IMM, fill="PT_IMM"),colour="#26ABBF")+
geom_point(alpha=1, size=2, colour="#26ABBF",fill="#26ABBF",pch=21)+
geom_smooth(method=lm, se=FALSE, fullrange=TRUE,color="#26ABBF")+
geom_point(aes(y=PT__3M),alpha=1, size=2, color="#3C733F",fill="#3C733F",pch=22)+
geom_smooth(aes(y=PT__3M, fill="PT__3M"),color="#3C733F",method=lm,se=FALSE,fullrange=TRUE,color="#3C733F")+
geom_point(aes(y=PT_6M),alpha=1, size=2, color="#F2B950",fill="#F2B950",pch=24)+
geom_smooth(aes(y=PT_6M,fill="PT_6M"),method=lm,se=FALSE,fullrange=TRUE,color="#F2B950")+
geom_point(aes(y=PT_12M),alpha=1, size=2, color="#D93B3B",fill="#D93B3B",pch=25)+
geom_smooth(aes(y=PT_12M,fill="PT_12M"),method=lm,se=FALSE,fullrange=TRUE,color="#D93B3B")+
scale_colour_manual(values=pal, limits=names(pal))+
labs(x="Ant-PT",y="Pelvic tilt")+
theme(legend.title=element_blank())
AT
Comment 0
No. | Subject | Author | Date |
---|---|---|---|
934 | 교수님 오래간 만입니다. [2] | 에구머니나 | 2020.12.26 |
933 | 저도 생존 분석에 관해 질문 드리고자합니다. [3] | CSJU | 2020.12.23 |
» | 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 |