# Họ và tên: Huỳnh Thị Nữ
# Lớp: 24NH1
# MSSV: 2454020039
# 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
head(datalikert)
## STT GTINH TDO DTUOI TNHAP A1 A2 A3 A4 A5 B1 B2 B3 B4 C1 C2 C3 C4 D1 D2 D3 E1
## 1 1 2 4 1 3 5 5 3 5 4 3 2 3 4 5 5 4 4 4 5 4 2
## 2 2 2 2 2 3 3 3 3 5 4 4 5 4 5 2 3 3 2 3 4 3 3
## 3 3 2 4 1 2 3 3 3 3 3 4 4 4 5 4 4 3 4 3 4 4 4
## 4 4 1 4 2 2 5 3 3 4 4 5 5 5 5 1 2 4 3 5 4 1 3
## 5 5 2 3 1 1 5 3 3 5 4 3 3 3 3 3 4 3 3 4 4 3 4
## 6 6 1 4 2 2 5 3 3 5 4 3 4 3 3 3 4 5 3 2 3 3 4
## E2 E3 E4 F1 F2 F3 F4 F5 Atb Btb Ctb Dtb Etb Ftb
## 1 3 3 4 4 5 3 4 5 4.4 3.00 4.50 4.33 3.00 4.2
## 2 4 3 4 3 3 3 4 5 3.6 4.50 2.50 3.33 3.50 3.6
## 3 3 3 4 4 4 4 4 5 3.0 4.25 3.75 3.67 3.50 4.2
## 4 4 3 4 5 5 4 4 5 3.8 5.00 2.50 3.33 3.50 4.6
## 5 3 3 4 2 5 4 4 5 4.0 3.00 3.25 3.67 3.50 4.0
## 6 4 3 4 3 3 5 4 5 4.0 3.25 3.75 2.67 3.75 4.0
dim(datalikert)
## [1] 198 36
# Câu 6:
# mã hoá 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)
DTcode
## DTUOI DTUOIMH
## 1 1 <20 tuổi
## 2 2 từ 20-30 tuổi
## 3 1 <20 tuổi
## 4 2 từ 20-30 tuổi
## 5 1 <20 tuổi
## 6 2 từ 20-30 tuổi
## 7 1 <20 tuổi
## 8 1 <20 tuổi
## 9 2 từ 20-30 tuổi
## 10 1 <20 tuổi
## 11 2 từ 20-30 tuổi
## 12 1 <20 tuổi
## 13 2 từ 20-30 tuổi
## 14 1 <20 tuổi
## 15 4 trên 50 tuổi
## 16 3 từ 31-50 tuổi
## 17 2 từ 20-30 tuổi
## 18 1 <20 tuổi
## 19 3 từ 31-50 tuổi
## 20 4 trên 50 tuổi
## 21 2 từ 20-30 tuổi
## 22 3 từ 31-50 tuổi
## 23 3 từ 31-50 tuổi
## 24 4 trên 50 tuổi
## 25 3 từ 31-50 tuổi
## 26 2 từ 20-30 tuổi
## 27 3 từ 31-50 tuổi
## 28 1 <20 tuổi
## 29 3 từ 31-50 tuổi
## 30 3 từ 31-50 tuổi
## 31 2 từ 20-30 tuổi
## 32 3 từ 31-50 tuổi
## 33 3 từ 31-50 tuổi
## 34 4 trên 50 tuổi
## 35 3 từ 31-50 tuổi
## 36 2 từ 20-30 tuổi
## 37 3 từ 31-50 tuổi
## 38 1 <20 tuổi
## 39 3 từ 31-50 tuổi
## 40 3 từ 31-50 tuổi
## 41 2 từ 20-30 tuổi
## 42 1 <20 tuổi
## 43 3 từ 31-50 tuổi
## 44 1 <20 tuổi
## 45 4 trên 50 tuổi
## 46 2 từ 20-30 tuổi
## 47 3 từ 31-50 tuổi
## 48 1 <20 tuổi
## 49 3 từ 31-50 tuổi
## 50 4 trên 50 tuổi
## 51 1 <20 tuổi
## 52 2 từ 20-30 tuổi
## 53 1 <20 tuổi
## 54 3 từ 31-50 tuổi
## 55 4 trên 50 tuổi
## 56 4 trên 50 tuổi
## 57 4 trên 50 tuổi
## 58 3 từ 31-50 tuổi
## 59 3 từ 31-50 tuổi
## 60 4 trên 50 tuổi
## 61 2 từ 20-30 tuổi
## 62 4 trên 50 tuổi
## 63 3 từ 31-50 tuổi
## 64 3 từ 31-50 tuổi
## 65 3 từ 31-50 tuổi
## 66 3 từ 31-50 tuổi
## 67 3 từ 31-50 tuổi
## 68 4 trên 50 tuổi
## 69 3 từ 31-50 tuổi
## 70 4 trên 50 tuổi
## 71 2 từ 20-30 tuổi
## 72 3 từ 31-50 tuổi
## 73 3 từ 31-50 tuổi
## 74 4 trên 50 tuổi
## 75 3 từ 31-50 tuổi
## 76 2 từ 20-30 tuổi
## 77 4 trên 50 tuổi
## 78 4 trên 50 tuổi
## 79 4 trên 50 tuổi
## 80 3 từ 31-50 tuổi
## 81 1 <20 tuổi
## 82 2 từ 20-30 tuổi
## 83 3 từ 31-50 tuổi
## 84 3 từ 31-50 tuổi
## 85 2 từ 20-30 tuổi
## 86 3 từ 31-50 tuổi
## 87 2 từ 20-30 tuổi
## 88 1 <20 tuổi
## 89 1 <20 tuổi
## 90 3 từ 31-50 tuổi
## 91 3 từ 31-50 tuổi
## 92 1 <20 tuổi
## 93 2 từ 20-30 tuổi
## 94 3 từ 31-50 tuổi
## 95 1 <20 tuổi
## 96 3 từ 31-50 tuổi
## 97 2 từ 20-30 tuổi
## 98 4 trên 50 tuổi
## 99 4 trên 50 tuổi
## 100 2 từ 20-30 tuổi
## 101 2 từ 20-30 tuổi
## 102 2 từ 20-30 tuổi
## 103 1 <20 tuổi
## 104 2 từ 20-30 tuổi
## 105 2 từ 20-30 tuổi
## 106 1 <20 tuổi
## 107 2 từ 20-30 tuổi
## 108 2 từ 20-30 tuổi
## 109 2 từ 20-30 tuổi
## 110 4 trên 50 tuổi
## 111 3 từ 31-50 tuổi
## 112 2 từ 20-30 tuổi
## 113 3 từ 31-50 tuổi
## 114 3 từ 31-50 tuổi
## 115 4 trên 50 tuổi
## 116 3 từ 31-50 tuổi
## 117 2 từ 20-30 tuổi
## 118 3 từ 31-50 tuổi
## 119 4 trên 50 tuổi
## 120 3 từ 31-50 tuổi
## 121 4 trên 50 tuổi
## 122 3 từ 31-50 tuổi
## 123 2 từ 20-30 tuổi
## 124 3 từ 31-50 tuổi
## 125 4 trên 50 tuổi
## 126 2 từ 20-30 tuổi
## 127 4 trên 50 tuổi
## 128 3 từ 31-50 tuổi
## 129 2 từ 20-30 tuổi
## 130 4 trên 50 tuổi
## 131 3 từ 31-50 tuổi
## 132 3 từ 31-50 tuổi
## 133 2 từ 20-30 tuổi
## 134 3 từ 31-50 tuổi
## 135 3 từ 31-50 tuổi
## 136 4 trên 50 tuổi
## 137 2 từ 20-30 tuổi
## 138 3 từ 31-50 tuổi
## 139 3 từ 31-50 tuổi
## 140 4 trên 50 tuổi
## 141 3 từ 31-50 tuổi
## 142 4 trên 50 tuổi
## 143 3 từ 31-50 tuổi
## 144 2 từ 20-30 tuổi
## 145 3 từ 31-50 tuổi
## 146 3 từ 31-50 tuổi
## 147 3 từ 31-50 tuổi
## 148 4 trên 50 tuổi
## 149 4 trên 50 tuổi
## 150 3 từ 31-50 tuổi
## 151 2 từ 20-30 tuổi
## 152 1 <20 tuổi
## 153 3 từ 31-50 tuổi
## 154 1 <20 tuổi
## 155 3 từ 31-50 tuổi
## 156 1 <20 tuổi
## 157 2 từ 20-30 tuổi
## 158 3 từ 31-50 tuổi
## 159 1 <20 tuổi
## 160 2 từ 20-30 tuổi
## 161 3 từ 31-50 tuổi
## 162 3 từ 31-50 tuổi
## 163 1 <20 tuổi
## 164 3 từ 31-50 tuổi
## 165 2 từ 20-30 tuổi
## 166 2 từ 20-30 tuổi
## 167 3 từ 31-50 tuổi
## 168 3 từ 31-50 tuổi
## 169 2 từ 20-30 tuổi
## 170 4 trên 50 tuổi
## 171 2 từ 20-30 tuổi
## 172 4 trên 50 tuổi
## 173 4 trên 50 tuổi
## 174 1 <20 tuổi
## 175 1 <20 tuổi
## 176 3 từ 31-50 tuổi
## 177 3 từ 31-50 tuổi
## 178 1 <20 tuổi
## 179 3 từ 31-50 tuổi
## 180 2 từ 20-30 tuổi
## 181 2 từ 20-30 tuổi
## 182 2 từ 20-30 tuổi
## 183 4 trên 50 tuổi
## 184 4 trên 50 tuổi
## 185 3 từ 31-50 tuổi
## 186 1 <20 tuổi
## 187 3 từ 31-50 tuổi
## 188 1 <20 tuổi
## 189 2 từ 20-30 tuổi
## 190 3 từ 31-50 tuổi
## 191 1 <20 tuổi
## 192 1 <20 tuổi
## 193 2 từ 20-30 tuổi
## 194 1 <20 tuổi
## 195 3 từ 31-50 tuổi
## 196 2 từ 20-30 tuổi
## 197 4 trên 50 tuổi
## 198 4 trên 50 tuổi
barplot(table(DTUOIMH),xlab="Nhóm tuổi",ylab="Số lượng",main="Biểu đồ cột của nhóm độ tuổi",col=c("lightpink","lightgreen","lightyellow","lightblue"))
# Nhận xét: