Thiết kế biểu đồ bằng R (Phần 3. Vẽ biểu đồ tương quan (tổng hợp))

1. Vẽ biểu đồ tương quan giữa BMI (trục hoành) và tỷ trọng chất béo (trục tung) theo giới tính.

# gọi gói ggplot 2 và tạo các đối tượng muốn vẽ.

>library(ggplot2)

> p=ggplot(du,aes(x=bmi,y=pcfat,fill=gender))

2. Thay đổi màu theo giới tính (Nữ màu đen, Nam màu xám)

> p+geom_point(aes(col=gender),size=3)+ scale_color_manual(values = c("1", "8"))

3. Xóa bỏ nền cho biểu đồ sáng hơn

> p+geom_point(aes(col=gender),size=3)+ scale_color_manual(values = c("1", "8"))+theme_bw()

4. Xóa khung chỉ giữ lại trục tung và trục hoành

> p+geom_point(aes(col=gender),size=3)+ scale_color_manual(values = c("1", "8"))+theme_bw()+theme_classic()

5. Định nghĩa p1= các lệnh dưới (cho lệnh ngắn dễ quan sát)

p1=p+geom_point(aes(col=gender),size=3)+ scale_color_manual(values = c("1", "8"))+theme_bw()+theme_classic()

6. Tạo nhãn biểu đồ

> p1+labs(title="BIEU DO TUONG QUAN")

7. Tạo ký hiệu trên 2 trục

>p1+labs(title="BIEU DO TUONG QUAN")+labs(x="Chi so khoi co the (Kg/m^2)",y="Ty trong chat beo (%)")

8. Thay giá trị trên 2 trục đậm hơn, to hơn và phần ghi chú to hơn.

>p2=p1+labs(title="BIEU DO TUONG QUAN")+labs(x="Chi so khoi co the (Kg/m^2)",y="Ty trong chat beo(%)")+theme(axis.text.y = element_text(face="bold",size=17))+theme(axis.text.x = element_text(face="bold",size=17))

9. Trục tung và trục hoành dày hơn

>p2+theme(legend.text = element_text(size = 20))+theme( axis.line = element_line(size = 1))

10. Tạo đường trung bình tuyến tính

>p2+theme(legend.text = element_text(size = 20))+theme( axis.line = element_line(size = 1))+geom_smooth(method="lm")

11. Tạo đường trung bình là hàm số bậc 2

> p2+theme(legend.text = element_text(size = 20))+theme( axis.line = element_line(size = 1))+geom_smooth(method="lm",formula=y~x+I(x^2))

BS: Bùi Văn Dủ