TRÌNH BÀY THỐNG KÊ BẰNG PHẦN MIỀM R

Thống kê mô tả luôn là điều cần thiết và trình bày đầu tiên trong bất kì bài nghiên cứu khoa học nào. Chúng ta có nhiều cách và phần miềm có thể hỗ trợ cho việc thống kê như Stata, Excel, SPSS, R,… Tuy nhiên, để có thể trình bày trực quan, dễ đọc, thuận tiện để biên tập và thống kê dữ liệu thì Rstudio giúp chúng ra làm được điều này khá thuận tiện.

Tải file data

  library(readxl)
 ptmota <- read_excel("E:/Thesis/data/ptmota.xlsx", 
     col_types = c("numeric", "numeric", "text", 
         "text", "text", "text", "text", "text", 
         "text", "text", "text", "text", "text", 
         "text", "text", "text", "text", "text", 
         "text", "text", "text", "numeric", 
         "text", "text", "numeric", "text", 
         "text"))
  attach(ptmota)

Dùng package “Table1” để mô tả dữ liệu vì trình bày đẹp, dễ nhìn, dễ biên soạn

library(table1)
## Warning: package 'table1' was built under R version 4.1.3
## 
## Attaching package: 'table1'
## The following objects are masked from 'package:base':
## 
##     units, units<-

KẾT QUẢ:

Bảng 4-1: Đặc điểm biến số nền (n= 254)

attach(ptmota)
## The following objects are masked from ptmota (pos = 4):
## 
##     desk, diemiat, diemtc, dtdd, game, giaitri, gioi, hocluc, hoctap,
##     ID, khac, khac2, kieulv, lap, mdiat, mdtc, mxh, namhoc, nghieniat,
##     noio, tab, tcam, tgtruycap, thoidiem1, thoidiem2, thoidiem3, tuoi
table1(~tuoi + gioi + namhoc)
Overall
(N=254)
tuoi
Mean (SD) 21.8 (1.75)
Median [Min, Max] 22.0 [19.0, 26.0]
Missing 18 (7.1%)
gioi
1 111 (43.7%)
2 141 (55.5%)
Missing 2 (0.8%)
namhoc
1 42 (16.5%)
2 28 (11.0%)
3 65 (25.6%)
4 27 (10.6%)
5 47 (18.5%)
6 45 (17.7%)

Bảng 4-2: Đặc điểm biến số nền tiếp theo (n= 254)

table1(~hocluc + noio)
Overall
(N=254)
hocluc
1 11 (4.3%)
2 96 (37.8%)
3 114 (44.9%)
4 31 (12.2%)
5 1 (0.4%)
Missing 1 (0.4%)
noio
1 93 (36.6%)
2 128 (50.4%)
3 33 (13.0%)

Bảng 4-3: Đặc điểm biến số nền tiếp theo (n= 254)

table1(~dtdd+lap+tab+desk+khac+hoctap+mxh+giaitri+game+khac2+kieulv)
Overall
(N=254)
dtdd
1 238 (93.7%)
Missing 16 (6.3%)
lap
2 218 (85.8%)
Missing 36 (14.2%)
tab
3 94 (37.0%)
Missing 160 (63.0%)
desk
4 18 (7.1%)
Missing 236 (92.9%)
khac
5 3 (1.2%)
Missing 251 (98.8%)
hoctap
1 244 (96.1%)
Missing 10 (3.9%)
mxh
2 228 (89.8%)
Missing 26 (10.2%)
giaitri
3 219 (86.2%)
Missing 35 (13.8%)
game
4 75 (29.5%)
Missing 179 (70.5%)
khac2
5 19 (7.5%)
Missing 235 (92.5%)
kieulv
1 85 (33.5%)
2 169 (66.5%)

Bảng 4-4: Đặc điểm biến số nền tiếp theo (n= 254)

table1(~ thoidiem1 + thoidiem2 + thoidiem3 + tgtruycap)
Overall
(N=254)
thoidiem1
1 220 (86.6%)
Missing 34 (13.4%)
thoidiem2
2 146 (57.5%)
Missing 108 (42.5%)
thoidiem3
3 42 (16.5%)
Missing 212 (83.5%)
tgtruycap
2 8 (3.1%)
3 48 (18.9%)
4 72 (28.3%)
5 126 (49.6%)

Bảng 4-5: Đặc điểm nghiện internet (n= 254)

table1(~diemiat + nghieniat + mdiat)
Overall
(N=254)
diemiat
Mean (SD) 53.0 (11.1)
Median [Min, Max] 53.0 [29.0, 100]
nghieniat
1 154 (60.6%)
2 100 (39.4%)
mdiat
1 100 (39.4%)
2 149 (58.7%)
3 5 (2.0%)

Bảng 4-6: Đặc điểm trầm cảm (n= 254)

table1(~diemtc + tcam + mdtc)
Overall
(N=254)
diemtc
Mean (SD) 6.36 (4.58)
Median [Min, Max] 5.00 [0, 27.0]
tcam
1 51 (20.1%)
2 203 (79.9%)
mdtc
1 203 (79.9%)
2 46 (18.1%)
3 5 (2.0%)