EPIDATA 3.1- Phần mềm thống kê Y sinh học

VẼ BIỂU ĐỒ ĐƯỜNG TRONG R-LINE GRAPH IN R

Đầu tiên chúng ta cần tạo ra một data.frame

a1<-c(81,87.5,90.5,95,100)
a2<-c(82,78,96.5,95,99.6)
a3<-c(84.7,87.2,93,94.6,92)
a4<-c(86,75,82,81.3,93.3)
ye1<-c(2014:2018)
da1<-data.frame(a1,a2,a3,a4,ye1)
attach(da1)

## The following objects are masked _by_ .GlobalEnv:
## 
##     a1, a2, a3, a4, ye1

Và dĩ nhiên chúng ta có thể load một data set nào đó mà chúng ta có từ STATA, SPSS, EXEL,…

Tiếp theo chúng ta vẽ biều đồ đường biểu diễn sự thay đổi của a1,a2,a3, va a4 trong giai đoạn từ 2014 -2018

Có nhiều cách để vẽ biểu đồ, ở đây chúng ta sử dụng package ggplot2 để vẽ một số biểu đồ trên

Dưới đây ta sẽ vẽ một biểu đồ đường đối với biến a1 theo thời gian ye1. Và ta gán biều đồ này với tên grapa1

Trong đó:

da1 là data frame chứa các biến ye1 và biến a1

aes(x=ye1, y=a1) nghĩa là cho R biết chúng ta đang muốn vẽ biểu đồ với 2 biến ye1 và a1

geom_line() để thêm đường kết nối giữa các điểm. Ta có thể bỏ dòng này để thấy sự thay đổi

geom_point() để thêm các chấm tại các điểm. Ta có thể bỏ dòng này để thấy sự thay đổi

scale_y_continuous(limits = c(0,100) Cho R biết khoảng giới hạn trên trục tung là từ 0-100. Ta có thể bỏ dòng này để thấy sự thay đổi

theme_bw()+theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()) Phần này chỉ là ta muốn loại bỏ nền và các đường kẻ trong biểu đồ đường mặc định.. Ta có thể bỏ dòng này để thấy sự thay đổi

library(ggplot2)
grapa1<-ggplot(da1, aes(x=ye1, y=a1)) + geom_line() + geom_point() +scale_y_continuous(limits = c(0,100)) + theme_bw()+theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())
grapa1

Tương tự chúng ta vẽ từng biểu đồ đường cho các biến số khác

grapa2<-ggplot(da1, aes(x=ye1, y=a2)) + geom_line() + geom_point() +scale_y_continuous(limits = c(0,100)) +theme_bw()+theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())
grapa2

grapa3<-ggplot(da1, aes(x=ye1, y=a3)) + geom_line() + geom_point() +scale_y_continuous(limits = c(0,100)) +theme_bw()+theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())
grapa3

grapa4<-ggplot(da1, aes(x=ye1, y=a4)) + geom_line() + geom_point() +scale_y_continuous(limits = c(0,100)) +theme_bw()+theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())
grapa4

Chúng ta có thể trình bày nhiều biểu đồ cùng với nhau bằng cách sử dụng package gridExtra Trong đó:ncol được viết tắt cho number of columm. Chúng ta có thể để số lượng cột theo mong muốn của chúng ta. Ở đây tôi để số cột ncol là 2

library(gridExtra)
grid.arrange(grapa1,grapa2, grapa3,grapa4, ncol=2)

Trong những nội dung tiếp theo chúng ta sẽ cùng tuỳ chỉnh một số thành phần của biểu đồ theo ý muốn như màu sắc, độ dày,…