BÀI KIỂM TRA CUỐI KÌ

# HỌ VÀ TÊN: LÊ TUYẾT NHI
# LỚP: 24NH1 MSSV:2454020057
# BÀI KIỂM TRA THỰC HÀNH
# NHẬP LIỆU
likert=file.choose()
datalikert=read.csv(likert,header = TRUE)
save(datalikert,file="datalikert.rda")
attach(datalikert)
is.data.frame(datalikert)

## [1] TRUE

# Câu 6
DTMH=DTUOI
DTMH=replace(DTMH,DTUOI==1,"< 20 TUỔI")
DTMH=replace(DTMH,DTUOI==2,"TỪ 20-30 TUỔI")
DTMH=replace(DTMH,DTUOI==3,"TỪ 31-50 TUỔI")
DTMH=replace(DTMH,DTUOI==4,"TRÊN 50 TUỔI")
barplot(table(DTMH),xlab="nhóm tuổi",ylab="số lượng",main="BIỂU ĐỒ CƠ CẤU NHÓM ĐỘ TUỔI",col=c("red","yellow","blue","pink"))

#Nhận xét: nhóm tuổi <20 tuổi có số lượng quan sát thấp nhất, sau đó tới nhóm trên 50 tuổi, rồi tới từ 20-30 tuổi, cao nhất là nhóm từ 31-50 tuổi