geom_bar 그래프 그리기

geom_bar 그래프 그리기

원본데이터, 즉 데이터를 집계하기 전 막대 그래프를 그리기 위한 기본적인 형태는 아래와 같다.

library(dplyr)
library(ggplot2)
df <- mtcars

df %>% ggplot(aes(x = as.factor(cyl))) +
  geom_bar() +
  xlab("Cylinders") + theme_light()

데이터가 집계된 상태라면 stat = "identity" 옵션을 이용하여 막대 그래프를 그릴 수 있다.

tbl_cyl <- as.data.frame(table(df$cyl))
tbl_cyl %>% ggplot(aes(x=Var1, y=Freq)) +
  geom_bar(stat = "identity") +
  xlab("Cylinders") + theme_light()

만약 조건에 따라 막대 색을 변경하고 싶다면 다음과 같이 작업할 수 있다.

tbl_cyl <- tbl_cyl %>% 
  mutate(color = case_when(
    Freq > 10 ~ "over 10",
    TRUE ~ "under 10"
  ))
tbl_cyl %>% ggplot(aes(x=Var1, y=Freq)) +
  geom_bar(stat = "identity", aes(fill = color)) +
  scale_fill_manual("범례", values = c("under 10" = "red", "over 10" = "gray")) +
  xlab("Cylinders") + theme_light() + theme(legend.position = c(0.1, 0.9))