[R 통계_ggplot2 패키지] 02. geom_bar로 막대차트 만들기

이번엔 ggplot2 패키지를 이용해 다양한 먹대 그래프를 그려보자.

 

04-1. 막대 그래프 (기본형)

그래프1 <- ggplot(데이터명, aes(factor(x축)))

그래프1 <- 그래프1 + geom_bar(fill = "채울색상", colour =  "선 색상")

library(ggplot2)

# 04-1. 막대 그래프 (기본)
bar_graph_layer1 <- ggplot(mtcars, aes(factor(cyl)))
bar_graph1 <- bar_graph_layer1 + geom_bar(fill ="pink", colour="blue")
bar_graph1

geom_bar 기본형태

 

04-2. 막대 그래프 (색상 변수 추가)

그래프1 <- ggplot(데이터명, aes(factor(x축), fill = factor(색상변수)))

그래프1 <- 그래프1 + geom_bar()

library(ggplot2)

#04-2. 막대 그래프 (색상이 구분자로 추가)
bar_graph_layer2 <- ggplot(mtcars, aes(factor(cyl), fill=factor(vs)))
bar_graph2 <- bar_graph_layer2 + geom_bar()
bar_graph2

geom_bar with color variation

 

04-3. 막대 그래프 (열 Faceting 추가)

그래프1 <- ggplot(데이터명, aes(factor(x축), fill = factor(색상변수)))

그래프1 <- 그래프1 + geom_bar()

그래프1 <- 그래프1 + facet_grid(. ~ facet변수)

library(ggplot2)

#04-3. 막대 그래프 (열 faceting 추가)
bar_graph_layer3 <- ggplot(mtcars, aes(factor(cyl), fill=factor(vs)))
bar_graph3 <- bar_graph_layer3 + geom_bar()
bar_graph3_plus_faceting <- bar_graph3 + facet_grid(. ~ gear)
bar_graph3_plus_faceting

geom_bar with color variation and horizontal faceting

 

04-4. 막대 그래프 (열 Faceting 추가)

그래프1 <- ggplot(데이터명, aes(factor(x축), fill = factor(색상변수)))

그래프1 <- 그래프1 + geom_bar()

그래프1 <- 그래프1 + facet_grid(facet변수 ~ .)

library(ggplot2)

#04-4. 막대 그래프 (행 faceting 추가)
bar_graph_layer4 <- ggplot(mtcars, aes(factor(cyl), fill=factor(vs)))
bar_graph4 <- bar_graph_layer4 + geom_bar()
bar_graph4_plus_faceting <- bar_graph4 + facet_grid(gear ~ .)
bar_graph4_plus_faceting

geom_bar with color variation and vertical faceting

04-5. 막대 그래프 (행열 Faceting 추가)

그래프1 <- ggplot(데이터명, aes(factor(x축), fill = factor(색상변수)))

그래프1 <- 그래프1 + geom_bar()

그래프1 <- 그래프1 + facet_grid(열 facet변수 ~ 행 facet변수)

library(ggplot2)

#04-5. 막대 그래프 (행열 faceting 추가)
bar_graph_layer5 <- ggplot(mtcars, aes(factor(cyl), fill=factor(vs)))
bar_graph5 <- bar_graph_layer5 + geom_bar()
bar_graph5_plus_faceting <- bar_graph5 + facet_grid(vs ~ gear)
bar_graph5_plus_faceting

geom_bar with color variation and horizontal & vertical faceting

04-6. 가로 막대 그래프

그래프1 <- ggplot(데이터명, aes(factor(x축), fill = factor(색상변수)))

그래프1 <- 그래프1 + geom_bar()

그래프1 <- 그래프1 + coord_flip()

library(ggplot2)

#04-6. 가로 막대 그래프
bar_graph_layer6 <- ggplot(mtcars, aes(factor(cyl), fill=factor(vs)))
bar_graph6 <- bar_graph_layer6 + geom_bar()
bar_graph6_plus_faceting <- bar_graph5 + facet_grid(. ~ gear)
horizontal_bar <- bar_graph6_plus_faceting + coord_flip()
horizontal_bar

horizontal geom_bar