교수님 안녕하세요
선생님께 많은 도움 얻어 열심히 논문쓰고 있는 전임의 입니다.
다름이 아니라 제가 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 |
---|---|---|---|
1193 | 첫번째 행을 라벨로 사용 버튼 클릭시 에러 문의 [3] | 수담이 | 2023.05.04 |
1192 | 안녕하세요? web-R table 그리고 관련하여 문의드립니다. [4] | mkw7654 | 2023.05.02 |
1191 | 메타분석 U3 그래프 관련 문의드립니다 | 화이팅 | 2023.05.02 |
1190 | 교수님 안녕하세요~~ | 메시12 | 2023.04.29 |
1189 | 연속형 변수인데 범주형으로 인지됩니다. [2] | shararaku | 2023.04.28 |
1188 | 통계마당 [2] | ejo | 2023.04.27 |
1187 | moonBook 오류 관련 재문의드립니다. [1] | holyhyun | 2023.04.24 |
1186 | moonBook 사용시 오류메시지로 문의드립니다. [1] | holyhyun | 2023.04.24 |
1185 | 에러 문의 [2] | 화이팅 | 2023.04.19 |
1184 | Cox regression 에 대한 문의입니다. [2] | saga | 2023.04.18 |
1183 | PSM 문의 [3] | starwars | 2023.04.13 |
1182 | ggPS, ggPSMSummary function [6] | 로렌쵸메디치 | 2023.04.12 |
1181 | Survival 분석에 대해서 문의 드립니다. | 정훈신 | 2023.04.05 |
1180 | 안녕하세요. 분석 툴에 대해 문의드립니다. [1] | 스매직맨 | 2023.04.04 |
1179 | 드디어 publish 되었네요. [2] | 정지윤 | 2023.04.04 |
1178 | 연구동향분석 시 논문 데이터 정제 관련 [5] | vtlbtl | 2023.03.31 |
1177 | 안녕하세요 교수님 에러 문의드립니다 [2] | 소소 | 2023.03.26 |
1176 | 코딩값이 여러개인 변수에 대한 전체 p값을 알 수 있는 방법이 궁금합니다 | 쥬쥬즈주 | 2023.03.22 |
1175 | PSM 매칭 버튼 보이지 않음. | swpapa | 2023.03.19 |
1174 | group-based trajectory modeling | swpapa | 2023.03.19 |