Tùy chỉnh các thành phần cơ bản trong GGPLOT2

Dữ liệu sử dụng vẽ biểu đồ

library(dplyr)
library(ggplot2)
data <- diamonds %>% sample_n(5000)
data %>% summary

##      carat              cut       color       clarity         depth      
##  Min.   :0.200   Fair     : 191   D: 640   SI1    :1194   Min.   :44.00  
##  1st Qu.:0.400   Good     : 420   E: 925   VS2    :1132   1st Qu.:61.10  
##  Median :0.700   Very Good:1089   F: 904   SI2    : 859   Median :61.80  
##  Mean   :0.796   Premium  :1269   G:1042   VS1    : 788   Mean   :61.76  
##  3rd Qu.:1.040   Ideal    :2031   H: 754   VVS2   : 466   3rd Qu.:62.50  
##  Max.   :4.500                    I: 500   VVS1   : 333   Max.   :70.20  
##                                   J: 235   (Other): 228                  
##      table           price             x                y         
##  Min.   :50.10   Min.   :  327   Min.   : 3.790   Min.   : 3.770  
##  1st Qu.:56.00   1st Qu.:  945   1st Qu.: 4.700   1st Qu.: 4.710  
##  Median :57.00   Median : 2444   Median : 5.700   Median : 5.710  
##  Mean   :57.44   Mean   : 3904   Mean   : 5.728   Mean   : 5.739  
##  3rd Qu.:59.00   3rd Qu.: 5240   3rd Qu.: 6.540   3rd Qu.: 6.540  
##  Max.   :79.00   Max.   :18804   Max.   :10.230   Max.   :58.900  
##                                                                   
##        z        
##  Min.   :0.000  
##  1st Qu.:2.900  
##  Median :3.530  
##  Mean   :3.538  
##  3rd Qu.:4.040  
##  Max.   :8.060  
## 

Tạo biểu đồ gốc

#Tạo theme
theme_set(theme_minimal())

p <- ggplot(data, aes(x=carat, y = price)) +
  geom_point(aes(col=cut))
p

#Bước 2: Tạo thêm "layer" cho phép tùy chỉnh các thành phần trong biểu đồ
#Sử dụng layer "theme" để tùy chỉnh

#Bước 2.1: Tạo biểu đồ có title & subtitle
p1 <- p + 
  labs(title = "Diamonds - price vs. carat")
p1

Thay đổi title của biểu đồ với hàm “theme”

• Trường hợp 1: Cho to cỡ chữ và làm tên biểu đồ dạng “bold”

p1 + 
  theme(plot.title = element_text(size = 15, face = "bold"))

• Trường hợp 2: Thay đổi font chữ cho tên biểu đồ

#library(extrafont)
p1 + 
  theme(plot.title = element_text(size = 20, 
                                  face = "bold", 
                                  family = "serif"))

• Trường hợp 3: Xuống dòng cho tên trong biểu đồ

p + 
  ggtitle("Diamonds \nprice vs. carat") + 
  theme(plot.title = element_text(size = 20, 
                                  face = "bold", 
                                  family = "serif"))

Tùy chỉnh tiêu đề trên từng trục biểu đồ

• Trường hợp 1: Thay đổi cỡ chữ, làm đậm chữ của tiêu đề trục x

p + 
  theme(axis.title.x = element_text(size = 11, 
                                    face = "bold"))

• Trường hợp 2: Thay đổi font chữ của trục x

p + 
  theme(axis.title.x = element_text(family = "serif", 
                                    face = "bold"))

• Trường hợp 3: Thay đổi kích cỡ, font chữ ở cả 2 trục

p + 
  theme(axis.title = element_text(family = "serif", 
                                      face = "bold"))

Tùy chỉnh thành phần text trên từng trục biểu đồ

• Trường hợp 1: Thay đổi kích thước, làm đậm chữ trên trục

p + 
  theme(axis.text.x = element_text(size = 13, face = "italic"))

• Trường hợp 2: Làm nghiêng chữ trên trục

p + 
  theme(axis.text.x = element_text(size = 13, angle = 45))

• Trường hơp 3: Thay đổi cả 2 trục

p + 
  theme(axis.text = element_text(size = 13, angle = 45))

Tùy chỉnh phần chú giải của biểu đồ

• Trường hợp 1: Xóa toàn bộ legend

p + theme(legend.position = "none")

• Trường hợp 2: Xóa tiêu đề của legend

p + theme(legend.title = element_blank())

• Trường hợp 3: Thay đổi kích thước, màu sắc của tên legend

p + 
  theme(legend.title = element_text(size = 14, 
                                    face = "bold", 
                                    color = "red"))

• Trường hợp 4: Thay đổi tên trong legend

p + scale_colour_discrete(name = "Type of diamonds")

• Trường hợp 5: Thay đổi kích cỡ chữ trong phần legend

p + 
  theme(legend.text = element_text(size =12, 
                                   face = "bold", 
                                   family = "serif"))

Tùy chỉnh khung màu trong biểu đồ

Các màu mặc định của GGPLOT2 đáp ứng phần lớn các yêu cầu trong phân tích và báo cáo. Tuy nhiên, khi cần tùy chỉnh màu sắc mặc định này lại có thể rất khó khăn nếu ta không biết cách làm. Trong thực tế, các biểu đồ của các công ty lớn, hoặc các báo cáo phân tích đều phải tuân theo chuẩn màu sắc của cả công ty. Do đó, ta cần phải nắm được cách tùy chỉnh màu sắc của biểu đồ trong R.

Một số mã màu sắc của R có thể tham khảo tại link

p + 
  scale_color_manual(values = c("darkred", "darkblue", "violet", "darkgreen", "orange"))

#Sử dụng Brewer
p + 
  scale_colour_brewer(palette = "Set1")

#Sử dụng bảng màu của Tableau
library(ggthemes)
p + 
  scale_colour_tableau() + 
  theme_tufte()

# Tạo biểu đồ gốc
p <- ggplot(data, aes(x = carat, y = price)) +
  geom_point(aes(col=price))
p

p + scale_color_gradient(low = "darkblue", high = "darkred")

p + scale_color_gradient2(midpoint = mean(data$price), 
                          low = "blue4", 
                          mid = "white", 
                          high = "red4")