cau 6

#NHẬP LIỆU
likert=file.choose()
datalikert=read.csv(likert,header=TRUE)
save(datalikert,file="datalikert.rda")
#attach để khỏi phải $likert
attach(datalikert)
#is để ktra đúng dữ liệu k
is.data.frame(datalikert)

## [1] TRUE

# Mã hóa biến Độ tuổi
DTUOIMH=DTUOI
DTUOIMH=replace(DTUOIMH,DTUOI==1,"< 20 tuổi")
DTUOIMH=replace(DTUOIMH,DTUOI==2,"Từ 20 - 30 tuổi")
DTUOIMH=replace(DTUOIMH,DTUOI==3,"Từ 31 - 50 tuổi")
DTUOIMH=replace(DTUOIMH,DTUOI==4,"Trên 50 tuổi")
DTcode=data.frame(DTUOI,DTUOIMH)
# vẽ biểu đồ cột DTUOI
barplot(table(DTUOIMH),xlab = "nhóm tuổi",ylab = "số lượng",main = "biểu đồ cột của các độ tuổi", col=c("red","yellow","green","orange"))