교수님 안녕하세요
교수님 책과 웹페이지 통해서 많은 도움을 얻고 있고있는 연구자입니다.
아래와 같이 bar plot을 그렸는데요. y 축은 count로 해서 MC 기준 그룹을 나누어 position dodge로 구분하였습니다.
X 축의 GAP score가 2점, 12점 일때 각각 negative, positivie group의 count가 '0'임을 표시하고 싶습니다.
한 그룹의 count가 0이면 그래프가 좌우로 늘어져 width가 넓어지는데요 이를 어떻게 수정하면 좋을지 문의드립니다.
x축의 '2'에 해당하는 그래프의 width를 절반으로 줄이고 그래프 자리에 count 숫자를 표시하고 싶습니다.
알려주시면 연구에 큰 도움이 될것 같습니다 ㅜㅜ
바쁘신와중에 항상 감사드립니다.
** 제가작성한 코드입니다.
df$MC=factor(df$MC,labels=c("negative","positive"))
ggplot(df, aes(x=GAP_score, y=..count.., fill=MC)) +
geom_bar(position="dodge", colour="#AACCCC")
Comment 4
-
cardiomoon
2020.11.27 10:14
-
cardiomoon
2020.11.27 10:15
-
cardiomoon
2020.11.27 10:18
또는 제가 만든 ggiraphExtra 패키지의 ggBar를 쓰시면 쉽게 해결됩니다.
require(ggiraphExtra)
ggBar(data=mpg,aes(x=class,fill=drv),position="dodge",addlabel=TRUE)
Recommend:1 Comment
-
hamdgogo
2020.11.28 09:27
감사합니다 선생님
한번에 해결이되었네요
ggiraphExtra package도 사용해보겠습니다
정말 감사드립니다!
No. | Subject | Author | Date |
---|---|---|---|
1054 | 기초적인 질문이지만 .. 여쭤봅니다. [2] | 나현둥 | 2021.12.13 |
1053 | 통계와 관련한 기초적인 질문 드립니다.. [2] | 감사합니다 | 2021.12.10 |
1052 | 메타분석 해석 문의 [2] | 루아로 | 2021.12.07 |
1051 | 초보라 질문드립니다 ㅜ [2] | 쵸쿄쵸쿄 | 2021.12.06 |
1050 | ㅠㅠㅠ 초보 질문입니다 [1] | 만고 | 2021.11.26 |
1049 | 라벨붙이기가 안됩니다 [1] | 찬미맘 | 2021.11.22 |
1048 | moonBook ANOVA 질문드립니다. [1] | 타쿠 | 2021.11.20 |
1047 | 3원 분할표? 에서 모델 만드는법 | 플랫슬립 | 2021.11.20 |
1046 | [회귀분석 초급 질문] [1] | 서빱스 | 2021.11.14 |
1045 | [ANOVA 분석 질문] [1] | 서빱스 | 2021.11.14 |
1044 | 대조군1과 치료군2,3,4 의 PSM 에 관해서 질문있습니다. [4] | yessul | 2021.11.11 |
1043 | 서버접속이 안됩니다. Reload [2] | silkywater | 2021.11.11 |
1042 | 메타분석 실행이 안됩니다. [1] | 애플K | 2021.11.08 |
1041 | pair plot 관련하여 질문드립니다. | ulysses11 | 2021.10.29 |
1040 | 메타분석 결과파일 다운로드 하려면 [1] | mono | 2021.10.23 |
1039 | 기본 baseline character table문의드립니다. [1] | ulysses11 | 2021.10.22 |
1038 | 이 error는 뭐가 문제인 걸까요 [1] | CSJU | 2021.10.19 |
1037 | logistic regression에서 p>0.05인 변수의 OR, p 값... | 브이콘65 | 2021.10.14 |
1036 | R 문제가 도저히 안풀려요.. [1] | 자하연미필 | 2021.10.09 |
1035 | 구조방정식에서 종속변수가 0,1로 코딩된 데이터 사용이 가능한가요? [1] | 순수엄마 | 2021.10.08 |
안녕하세요? 사용하신 데이터가 없어 직접 코드를 보여드리지는 못합니다. 다음 두 plot을 참조하세요
require(ggplot2)
ggplot(data=mpg) + geom_bar(aes(x=class,fill = drv),position="dodge")
ggplot(data=mpg) + geom_bar(aes(x=class,fill = drv),position=position_dodge(preserve="single"))