R ggplot2 막대그래프 geom bar()

1 개요

R ggplot2 막대그래프 geom_bar()

• geom_bar를 이용해 카운트(또는 가중치 합계)를 보여주는 막대그래프를 간편하게 그릴 수 있다.

library(ggplot2)
table(mpg$class)

g <- ggplot(mpg, aes(class))
# 각 클래스에 해당하는 자동차의 수
g + geom_bar()

# 각 class의 총 엔진 배기량
g + geom_bar(aes(weight = displ))

# 방향을 바꾸려면 class를 y에 매핑한다.
ggplot(mpg) + geom_bar(aes(y = class))

# 같은 위치에 여러 막대를 배치하면 쌓이게 되며, 쌓이는 순서는 범례를 따른다.
g + geom_bar(aes(fill = drv))

# 순서를 뒤집으려면 position_stack()
ggplot(mpg, aes(y = class)) +
 geom_bar(aes(fill = drv), position = position_stack(reverse = TRUE)) +
 theme(legend.position = "top")

# 의미를 표시할 때 geom_col()를 쓸 수 있다.
df <- data.frame(trt = c("a", "b", "c"), outcome = c(2.3, 1.9, 3.2))
ggplot(df, aes(trt, outcome)) +
  geom_col()

# geom_point()도 같은 정보를 보여주지만, y축이 0부터 시작하지 않는다.
ggplot(df, aes(trt, outcome)) +
  geom_point()

# 연속데이터에도 geom_bar()를 사용할 수 있는데, 특정 위치에 카운트가 표시된다.
df <- data.frame(x = rep(c(2.9, 3.1, 4.5), c(5, 10, 4)))
ggplot(df, aes(x)) + geom_bar()

# 참고. 동일한 데이터로 히스토그램을 그린 것
ggplot(df, aes(x)) + geom_histogram(binwidth = 0.5)

2 같이 보기

• R barplot()
• ggplot2 stat_bin()
• ggplot2 geom_histogram()
• ggplot2 position_dodge()
• ggplot2 position_dodge2()
• ggplot2 가변너비 막대그래프

3 참고

• https://ggplot2.tidyverse.org/reference/geom_bar.html