R 막대그래프 그리기

ggplot(데이터셋, aes(x=x))+geom_bar()

막대그래프는 geom_bar()이다.
y값을 비우면 알아서 count값을 넣어준다.

그러면 이런식으로 나온다.

누적막대그래프도 그리고 싶다면?

ggplot(데이터셋, aes(x=Improved, fill = Treatment))+geom_bar()

fill을 추가하면 된다!

짠~

여기서 개수의 비교가 중요한 것이 아니라 비율의 비교가 중요하다면?
각 범주별로 두번째 범주형 변수의 비율만 나타내는 그래프인
백분율 누적 막대그래프를 그리면 된다.

ggplot(데이터셋, aes(x=Improved, fill = Treatment))+geom_bar(position= "fill")+ylab("Percent")+scale_y_continuous(labels=scales::percent)

길어서 약간 어려울 수 있지만 끊어서 보면 아주 쉽다.

ggplot(데이터셋, aes(x=Improved, fill = Treatment))
-> 여기까진 똑같다.

geom_bar(position= "fill")
-> 이게 중요하다!
-> position = "fill" 이걸 추가하면 퍼센트로 나타나게 된다.

ylab("Percent")
-> 세로축에 count라고 잘 못 나오는 오류가 있어서 수정한 것이다.

scale_y_continuous(labels=scales::percent)
-> 세로축에 숫자로 표기되어 있는 것을 (0, 0.5, 1) 백분율 (0%, 50%, 100%)로 표기를 수정하는 것이다

실행하면 이렇게 나온다.
굿!