# 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
# Mã hóa biến Giới tính
GTINHMH=GTINH
GTINHMH=replace(GTINHMH,GTINH==1,"Nam")
GTINHMH=replace(GTINHMH,GTINH==2,"NỮ")
GTcode=data.frame(GTINH,GTINHMH)
GTcode
## GTINH GTINHMH
## 1 2 NỮ
## 2 2 NỮ
## 3 2 NỮ
## 4 1 Nam
## 5 2 NỮ
## 6 1 Nam
## 7 1 Nam
## 8 1 Nam
## 9 2 NỮ
## 10 1 Nam
## 11 1 Nam
## 12 1 Nam
## 13 2 NỮ
## 14 1 Nam
## 15 2 NỮ
## 16 1 Nam
## 17 1 Nam
## 18 1 Nam
## 19 2 NỮ
## 20 1 Nam
## 21 1 Nam
## 22 1 Nam
## 23 1 Nam
## 24 1 Nam
## 25 1 Nam
## 26 1 Nam
## 27 1 Nam
## 28 1 Nam
## 29 1 Nam
## 30 2 NỮ
## 31 2 NỮ
## 32 2 NỮ
## 33 1 Nam
## 34 2 NỮ
## 35 2 NỮ
## 36 2 NỮ
## 37 1 Nam
## 38 2 NỮ
## 39 1 Nam
## 40 1 Nam
## 41 1 Nam
## 42 2 NỮ
## 43 1 Nam
## 44 2 NỮ
## 45 1 Nam
## 46 1 Nam
## 47 2 NỮ
## 48 1 Nam
## 49 2 NỮ
## 50 2 NỮ
## 51 1 Nam
## 52 2 NỮ
## 53 2 NỮ
## 54 1 Nam
## 55 2 NỮ
## 56 2 NỮ
## 57 1 Nam
## 58 2 NỮ
## 59 2 NỮ
## 60 2 NỮ
## 61 2 NỮ
## 62 2 NỮ
## 63 2 NỮ
## 64 2 NỮ
## 65 2 NỮ
## 66 1 Nam
## 67 1 Nam
## 68 2 NỮ
## 69 2 NỮ
## 70 2 NỮ
## 71 2 NỮ
## 72 2 NỮ
## 73 2 NỮ
## 74 1 Nam
## 75 2 NỮ
## 76 2 NỮ
## 77 2 NỮ
## 78 2 NỮ
## 79 1 Nam
## 80 2 NỮ
## 81 2 NỮ
## 82 2 NỮ
## 83 1 Nam
## 84 2 NỮ
## 85 1 Nam
## 86 1 Nam
## 87 1 Nam
## 88 2 NỮ
## 89 1 Nam
## 90 2 NỮ
## 91 1 Nam
## 92 1 Nam
## 93 2 NỮ
## 94 1 Nam
## 95 2 NỮ
## 96 2 NỮ
## 97 1 Nam
## 98 2 NỮ
## 99 2 NỮ
## 100 1 Nam
## 101 2 NỮ
## 102 2 NỮ
## 103 1 Nam
## 104 1 Nam
## 105 1 Nam
## 106 1 Nam
## 107 1 Nam
## 108 1 Nam
## 109 2 NỮ
## 110 1 Nam
## 111 2 NỮ
## 112 1 Nam
## 113 2 NỮ
## 114 2 NỮ
## 115 1 Nam
## 116 2 NỮ
## 117 1 Nam
## 118 1 Nam
## 119 1 Nam
## 120 1 Nam
## 121 1 Nam
## 122 1 Nam
## 123 1 Nam
## 124 1 Nam
## 125 1 Nam
## 126 1 Nam
## 127 1 Nam
## 128 1 Nam
## 129 1 Nam
## 130 1 Nam
## 131 2 NỮ
## 132 2 NỮ
## 133 1 Nam
## 134 1 Nam
## 135 2 NỮ
## 136 2 NỮ
## 137 1 Nam
## 138 2 NỮ
## 139 1 Nam
## 140 1 Nam
## 141 2 NỮ
## 142 1 Nam
## 143 2 NỮ
## 144 1 Nam
## 145 1 Nam
## 146 1 Nam
## 147 1 Nam
## 148 1 Nam
## 149 1 Nam
## 150 1 Nam
## 151 1 Nam
## 152 1 Nam
## 153 1 Nam
## 154 1 Nam
## 155 1 Nam
## 156 1 Nam
## 157 1 Nam
## 158 1 Nam
## 159 1 Nam
## 160 1 Nam
## 161 1 Nam
## 162 1 Nam
## 163 1 Nam
## 164 2 NỮ
## 165 2 NỮ
## 166 1 Nam
## 167 2 NỮ
## 168 1 Nam
## 169 1 Nam
## 170 1 Nam
## 171 1 Nam
## 172 2 NỮ
## 173 1 Nam
## 174 2 NỮ
## 175 1 Nam
## 176 2 NỮ
## 177 1 Nam
## 178 1 Nam
## 179 1 Nam
## 180 2 NỮ
## 181 1 Nam
## 182 1 Nam
## 183 2 NỮ
## 184 2 NỮ
## 185 1 Nam
## 186 1 Nam
## 187 1 Nam
## 188 2 NỮ
## 189 1 Nam
## 190 1 Nam
## 191 1 Nam
## 192 1 Nam
## 193 1 Nam
## 194 1 Nam
## 195 1 Nam
## 196 1 Nam
## 197 1 Nam
## 198 1 Nam
# Bảng tần số Giới tính
table(GTINHMH)
## GTINHMH
## Nam NỮ
## 121 77
table(GTINHMH)/sum(table(GTINHMH))
## GTINHMH
## Nam NỮ
## 0.6111111 0.3888889
pie(table(GTINHMH),col=c("green","blue"),main="Biểu đồ tròn biến Giới tính")
