메뉴 건너뛰기

웹에서 하는 R 통계

교수님 안녕하세요


선생님께 많은 도움 얻어 열심히 논문쓰고 있는 전임의 입니다.


다름이 아니라 제가 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

번호 제목 글쓴이 날짜 조회 수
공지 묻고답하기 게시판을 운영합니다 [1] cardiomoon 2015.04.20 1683
701 mytable 시 paired data 에 대한 방법 문의 [1] bluite17 2021.03.02 35
700 [Pubmed WordCloud 관련 문의] [2] 병걸이 2021.03.01 39
699 문의드릴 사항이 있습니다. [7] 정지윤 2021.02.18 80
698 교수님 web r studio 관련 문의드립니다. [2] jera0131 2021.02.17 285
697 psm 하는 방법 질문입니다. [3] file kiho 2021.02.02 121
696 생존분석 time-dependent variable 관련 질문 티케이 2021.01.26 85
695 2 way RM ANOVA 문의드립니다. file FAdavid 2021.01.19 84
694 mytable을 R markdown에서 실행시, 알 수 없는 warning 메세지가 발생합니다. [2] file 김찬식 2021.01.13 107
693 Bland-Altman plot 통계에 대해 여쭤 봅니다. [1] 피터팬79 2021.01.11 121
692 PSM 매칭 파일 크기 [1] 스티브 2021.01.06 307
691 my table 관련 질문 드립니다. [1] 김진아 2021.01.05 137
690 다음의 메시지가 뜨면서 Paypal로의 납부가 되지를 않습니다. [1] file 에구머니나 2020.12.28 128
689 교수님 오래간 만입니다. [2] file 에구머니나 2020.12.26 145
688 저도 생존 분석에 관해 질문 드리고자합니다. [3] CSJU 2020.12.23 216
» ggplot2 범례 관련하여 도움 요청드립니다. file hamdgogo 2020.12.22 117
686 생존분석 관련하여 문의드립니다. [2] 따거81 2020.12.15 127
685 PSM 질문합니다ㅜ 카트라이더 2020.12.14 111
684 ggplot으로 지도 그리기 관련 질문 file 양세마리 2020.12.14 95
683 Interval censored data [1] 김민철 2020.12.13 97
682 교수님 안녕하세요. 질문드립니다. [1] JJ88 2020.12.09 87