Biểu đồ cột

Nhập môn trực quan hóa dữ liệu với ggplot2

Rick Scavetta

Founder, Scavetta Academy

Biểu đồ cột với trục X phân loại

Dùng geom_bar() hoặc geom_col()

Geom	Stat	Hành động
`geom_bar()`	"count"	Đếm số trường hợp tại mỗi vị trí x
`geom_col()`	"identity"	Vẽ giá trị thực

Dùng được mọi position trước đó
Hai dạng
- Số đếm tuyệt đối
- Phân phối

Biểu đồ cột với trục X phân loại

Dùng geom_bar() hoặc geom_col()

Geom	Stat	Hành động
`geom_bar()`	"count"	Đếm số trường hợp tại mỗi vị trí x
`geom_col()`	"identity"	Vẽ giá trị thực

Biểu đồ cột với trục X phân loại

Dùng geom_bar() hoặc geom_col()

Geom	Stat	Hành động
`geom_bar()`	"count"	Đếm số trường hợp tại mỗi vị trí x
`geom_col()`	"identity"	Vẽ giá trị thực

Dùng được mọi position trước đó
Hai dạng
- Số đếm tuyệt đối
- Phân phối

Tập tính của thú có vú

str(sleep)

'data.frame':    76 obs. of  3 variables:
 $ vore : Factor w/ 4 levels "carni","herbi",..: 1 4 2 4 2 2 1 1 2 2 ...
 $ total: num  12.1 17 14.4 14.9 4 14.4 8.7 10.1 3 5.3 ...
 $ rem  : num  NA 1.8 2.4 2.3 0.7 2.2 1.4 2.9 NA 0.6 ...

Biểu đồ cột

ggplot(sleep, aes(vore)) + 
  geom_bar()

Vẽ phân phối thay vì số đếm tuyệt đối

# Calculate Descriptive Statistics:
iris %>% 
  select(Species, Sepal.Width) %>% 
  pivot_longer(!Species, names_to = "key", 
  values_to = "value") %>%
  group_by(Species) %>% 
  summarise(avg = mean(value), 
            stdev = sd(value))
   -> iris_summ_long

iris_summ_long

Species	avg	stdev
setosa	3.43	0.38
versicolor	2.77	0.31
virginica	2.97	0.32

Vẽ phân phối

ggplot(iris_summ_long, aes(x = Species, 
                           y = avg)) + 
  geom_col() +
  geom_errorbar(aes(ymin = avg - stdev, 
                    ymax = avg + stdev), 
                width = 0.1)

Ayo berlatih!

Nhập môn trực quan hóa dữ liệu với ggplot2