This homework has two parts. Part 1 uses base R to inspect a dataframe. Part 2 uses dplyr to wrangle a different dataset.
Download StudentSurvey.csv from the Datasets folder on
Blackboard. Save it next to this Rmd and set your working directory.
# Load the file
survey <- read.csv("StudentSurvey.csv")
survey## Year Sex Smoke Award HigherSAT Exercise TV Height Weight Siblings
## 1 Senior M No Olympic Math 10.0 1 71 180 4
## 2 Sophomore F Yes Academy Math 4.0 7 66 120 2
## 3 FirstYear M No Nobel Math 14.0 5 72 208 2
## 4 Junior M No Nobel Math 3.0 1 63 110 1
## 5 Sophomore F No Nobel Verbal 3.0 3 65 150 1
## 6 Sophomore F No Nobel Verbal 5.0 4 65 114 2
## 7 FirstYear F No Olympic Math 10.0 10 66 128 1
## 8 Sophomore M No Olympic Math 13.0 8 74 235 1
## 9 Junior F No Nobel Verbal 3.0 6 61 NA 2
## 10 FirstYear F No Nobel Math 12.0 1 60 115 7
## 11 Sophomore F No Olympic Math 12.0 6 65 140 1
## 12 FirstYear M No Olympic Math 10.0 5 63 200 2
## 13 Sophomore M No Olympic Math 12.0 8 68 162 3
## 14 Junior F No Nobel Verbal 6.0 1 68 135 2
## 15 FirstYear M No Nobel Verbal 9.0 5 68 193 1
## 16 FirstYear F No Olympic Math 10.0 2 63 110 1
## 17 FirstYear F No Olympic Verbal 3.0 15 63 99 2
## 18 Sophomore M No Nobel Verbal 7.0 3 72 165 2
## 19 Sophomore F No Nobel Math 2.0 1 62 120 1
## 20 Sophomore F No Olympic Verbal 14.0 2 67 154 1
## 21 Sophomore F No Nobel Math 10.0 5 65 110 1
## 22 Sophomore F No Nobel Math 14.0 2 68 145 8
## 23 FirstYear M No Olympic Math 20.0 20 73 195 3
## 24 Sophomore M No Olympic Math 7.0 10 74 200 1
## 25 Sophomore M No Olympic Math 12.0 3 70 167 1
## 26 Sophomore M No Nobel Math 10.0 5 71 175 3
## 27 Sophomore F No Academy Verbal 6.0 8 67 155 1
## 28 Junior M No Nobel Math 14.0 2 74 185 1
## 29 FirstYear M No Olympic Math 12.0 6 68 190 1
## 30 Senior M No Olympic Verbal 10.0 4 72 165 1
## 31 Junior M No Academy Math 8.0 8 62 175 2
## 32 Sophomore F No Nobel Math 0.0 2 66 126 5
## 33 FirstYear M No Olympic Math 10.0 20 70 187 3
## 34 Senior M No Nobel Verbal 6.0 10 72 170 2
## 35 FirstYear F No Olympic Math 5.0 2 67 158 4
## 36 Sophomore F No Olympic Math 24.0 5 62 119 1
## 37 FirstYear M No Olympic Math 2.0 5 73 205 1
## 38 Sophomore F No Academy Math 10.0 5 67 129 1
## 39 Sophomore F No Academy Verbal 6.0 5 67 145 0
## 40 Junior F No Nobel Verbal 5.0 5 64 130 0
## 41 Senior M No Nobel Verbal 5.0 5 72 215 3
## 42 Sophomore F No Nobel Verbal 12.0 4 64 135 2
## 43 Sophomore F No Olympic Verbal 2.0 5 70 145 0
## 44 FirstYear F No Olympic Math 7.0 8 60 98 2
## 45 FirstYear M No Olympic Math 15.0 2 71 150 1
## 46 Junior M No Olympic Verbal 5.0 14 73 159 1
## 47 Senior M No Olympic Verbal 7.0 20 72 174 1
## 48 Sophomore M No Olympic Math 15.0 20 74 160 1
## 49 Senior M No Olympic Math 8.0 10 70 165 1
## 50 Sophomore F No Olympic Math 14.0 3 69 161 1
## 51 FirstYear M No Olympic Verbal 14.0 1 68 160 2
## 52 Senior F No Nobel Math 4.0 14 64 130 2
## 53 Junior M No Olympic Math 15.0 0 72 175 2
## 54 Senior M No Olympic Math 4.0 20 70 255 2
## 55 Junior M No Olympic Verbal 15.0 2 65 160 4
## 56 FirstYear M No Academy Verbal 3.0 6 72 160 0
## 57 Junior F No Academy Math 3.0 15 63 95 0
## 58 Sophomore F No Olympic Math 15.0 3 64 115 2
## 59 Sophomore F No Academy Math 20.0 2 64 120 1
## 60 FirstYear F No Nobel Verbal 3.0 1 65 135 2
## 61 Sophomore M No Academy Math 6.0 7 73 180 1
## 62 Senior M No Nobel Math 12.0 7 71 155 0
## 63 FirstYear F No Olympic Verbal 4.0 3 66 110 2
## 64 FirstYear M No Olympic Verbal 20.0 12 73 215 2
## 65 FirstYear M No Olympic Math 15.0 6 70 175 2
## 66 Sophomore F No Olympic Math 10.0 3 65 140 3
## 67 FirstYear M No Olympic Verbal 10.0 20 72 195 2
## 68 Sophomore M No Nobel Verbal 4.0 8 73 185 2
## 69 Sophomore M No Nobel Verbal 9.0 0 70 185 2
## 70 Senior M No Olympic Verbal 12.0 12 79 209 1
## 71 Senior F No Olympic Math 2.0 6 67 145 3
## 72 Sophomore F No Olympic Verbal 15.0 4 66 140 1
## 73 FirstYear F No Nobel Verbal 10.0 4 66 146 1
## 74 FirstYear F No Olympic Verbal 7.0 6 68 130 2
## 75 Sophomore F No Nobel Math 3.0 5 67 140 1
## 76 FirstYear F No Olympic Verbal 4.0 3 66 130 1
## 77 FirstYear F No Olympic 15.0 3 66 140 1
## 78 Sophomore F No Olympic Math 8.0 8 65 160 3
## 79 Sophomore F No Nobel Math 5.0 8 66 120 1
## 80 Sophomore M No Academy Math 10.0 20 76 150 1
## 81 Sophomore M No Olympic Math 15.0 5 69 155 1
## 82 FirstYear F No Olympic Math 4.0 4 64 128 3
## 83 FirstYear F No Olympic Math 5.0 4 64 143 2
## 84 Junior F No Nobel Verbal 6.0 3 65 155 2
## 85 FirstYear F No Olympic Math 18.0 2 67 119 2
## 86 Sophomore F No Academy Math 16.0 4 66 138 1
## 87 Senior M No Academy Verbal 4.0 5 72 240 1
## 88 FirstYear F No Nobel Verbal 3.0 2 65 160 1
## 89 FirstYear M No Olympic Verbal 20.0 3 69 191 3
## 90 FirstYear M No Nobel Math 5.0 8 69 165 5
## 91 Sophomore M No Olympic Math 10.0 6 73 200 2
## 92 FirstYear F No Olympic Verbal 2.0 4 62 125 1
## 93 Sophomore F No Nobel Verbal 4.0 5 69 140 2
## 94 Sophomore M No Nobel Math 14.0 5 73 206 1
## 95 FirstYear M No Nobel Math 7.0 5 76 275 1
## 96 Sophomore M No Olympic Math 12.0 8 70 142 1
## 97 Sophomore F No Nobel Verbal 14.0 2 67 140 6
## 98 Sophomore M No Nobel Verbal 3.0 10 68 145 5
## 99 Sophomore M No Nobel Math 5.0 4 72 128 1
## 100 FirstYear M No Olympic Math 15.0 5 74 165 1
## 101 Senior F No Nobel Verbal 5.0 20 62 140 1
## 102 Sophomore F No Nobel Math 4.0 14 69 130 1
## 103 FirstYear M No Nobel Math 8.0 2 70 170 3
## 104 Sophomore M No Olympic Math 14.0 4 69 160 2
## 105 Sophomore M No Olympic Math 5.0 8 72 165 2
## 106 F No Olympic Verbal 12.0 7 78 145 1
## 107 Sophomore M No Olympic Math 15.0 5 67 155 1
## 108 Sophomore M No Olympic Math 3.0 3 73 155 3
## 109 Sophomore F No Nobel Math 12.0 1 63 113 1
## 110 Sophomore M No Olympic Math 12.0 5 70 155 1
## 111 Sophomore M No Nobel Math 6.0 20 NA 173 1
## 112 Sophomore M No Nobel Math 2.0 8 65 195 2
## 113 Sophomore F No Nobel Verbal 3.0 3 73 120 1
## 114 FirstYear M No Olympic Math 24.0 6 78 225 2
## 115 FirstYear F No Nobel Verbal 3.0 1 65 160 1
## 116 Sophomore F No Nobel Verbal 6.0 1 63 120 2
## 117 Sophomore F No Nobel Verbal 12.0 10 68 138 1
## 118 Sophomore M No Nobel 18.0 3 72 260 2
## 119 Sophomore M No Nobel Math 2.0 7 70 150 2
## 120 FirstYear F No Nobel Verbal 12.0 3 67 135 3
## 121 Sophomore F No Nobel Verbal 5.0 10 72 165 1
## 122 FirstYear M No Olympic Math 3.0 3 68 142 3
## 123 Sophomore M No Nobel Verbal 3.0 3 78 210 6
## 124 Sophomore M No Olympic Math 21.0 25 69 171 1
## 125 Sophomore F No Olympic Verbal 12.0 2 80 150 4
## 126 Sophomore M No Olympic Math 3.0 15 71 188 3
## 127 Sophomore M No Nobel Verbal 20.0 6 70 195 0
## 128 FirstYear M No Olympic Math 8.0 13 75 230 2
## 129 Sophomore F No Olympic Verbal 2.0 3 64 140 2
## 130 Sophomore M No Nobel Verbal 15.0 2 78 200 1
## 131 Senior F No Nobel Math 6.0 5 68 140 0
## 132 FirstYear F No Nobel Verbal 2.0 1 69 180 5
## 133 Sophomore F No Nobel Math 1.0 4 63 160 1
## 134 Sophomore F No Olympic Verbal 13.0 5 64 135 3
## 135 Sophomore F No Nobel Math 12.0 10 63 140 2
## 136 Sophomore F No Olympic Math 10.0 4 72 155 2
## 137 Sophomore M No Nobel Math 10.0 3 63 235 5
## 138 FirstYear F No Olympic Math 10.0 2 63 140 3
## 139 Sophomore F No Nobel Verbal 3.0 4 68 130 2
## 140 Junior F No Olympic Math 2.0 3 67 125 5
## 141 FirstYear M No Olympic Math 10.0 3 71 222 1
## 142 FirstYear F No Academy Verbal 4.0 3 65 128 3
## 143 FirstYear M No Olympic Math 8.0 2 72 183 2
## 144 Junior M No Olympic Verbal 18.0 20 75 175 0
## 145 FirstYear F No Nobel Verbal 5.0 3 59 125 1
## 146 Sophomore F No Academy Math 4.0 4 69 156 1
## 147 FirstYear F No Olympic Math 20.0 3 63 145 3
## 148 Sophomore M No Olympic Math 14.0 4 74 195 4
## 149 Sophomore M No Olympic Math 8.0 13 70 185 2
## 150 FirstYear F No Nobel Math 4.0 5 64 150 1
## 151 Sophomore F No Nobel Math 5.0 5 67 140 0
## 152 FirstYear M No Olympic Verbal 14.0 4 66 150 1
## 153 FirstYear F No Nobel Math 4.0 3 67 150 0
## 154 Sophomore M No Nobel Math 4.0 10 73 220 1
## 155 Senior M No Olympic Verbal 15.0 10 71 195 2
## 156 Sophomore F No Olympic Math 12.0 7 66 140 1
## 157 FirstYear F No Academy Math 10.0 10 68 135 2
## 158 Sophomore F No Olympic Verbal 6.0 3 67 138 1
## 159 Senior F No Olympic Verbal 12.0 5 69 170 2
## 160 Sophomore F No Olympic Verbal 10.0 2 66 145 1
## 161 FirstYear M No Olympic Verbal 14.0 5 68 135 2
## 162 FirstYear F No Nobel Verbal 5.0 4 68 140 0
## 163 Sophomore M No Olympic Math 18.0 5 71 155 2
## 164 Senior M No Olympic Math 10.0 10 70 155 1
## 165 Sophomore M No Olympic Verbal 8.0 2 66 155 1
## 166 Sophomore F No Nobel Verbal 8.0 10 65 135 2
## 167 Junior M No Nobel Verbal 3.0 15 70 165 1
## 168 FirstYear M No Academy Math 5.0 20 71 160 2
## 169 Sophomore M No Nobel Verbal 4.0 21 71 175 1
## 170 Sophomore M No Olympic Math 8.0 10 70 183 3
## 171 Sophomore F No Nobel Verbal 3.0 10 65 140 2
## 172 Sophomore F No Nobel Verbal 12.0 4 67 140 1
## 173 Junior F No Nobel Math 5.0 10 61 110 2
## 174 Sophomore F No Nobel Verbal 5.0 3 68 125 0
## 175 Senior F No Olympic Verbal 15.0 2 65 125 2
## 176 FirstYear M No Olympic Math 10.0 7 70 180 2
## 177 Sophomore M No Olympic Math 10.0 10 72 195 2
## 178 Sophomore F No Academy Math 10.0 6 66 128 3
## 179 FirstYear M No Olympic Math 14.0 2 71 172 1
## 180 Sophomore F No Olympic Math 6.0 4 64 150 1
## 181 Sophomore M No Olympic Math 4.0 27 73 188 1
## 182 Sophomore F No Olympic Verbal 14.0 2 60 110 2
## 183 Sophomore F No Olympic Math 5.0 15 64 125 1
## 184 Sophomore F No Olympic Math 16.0 10 65 135 3
## 185 FirstYear F No Olympic Verbal 14.0 3 65 130 2
## 186 Sophomore M No Olympic Math 10.0 10 73 230 2
## 187 Sophomore M No Nobel Math 11.0 10 69 198 1
## 188 Sophomore F No Olympic 4.0 10 66 127 1
## 189 Sophomore M No Olympic Math 12.0 5 66 150 1
## 190 Sophomore M No Olympic Math 5.0 4 73 175 3
## 191 Junior M No Nobel Math 8.0 14 71 160 3
## 192 Junior F No Nobel Math 8.0 6 65 140 2
## 193 Sophomore M No Nobel Verbal 3.0 5 75 200 1
## 194 Sophomore F No Nobel Math 8.0 2 63 130 1
## 195 Sophomore M No Olympic Math 20.0 14 74 210 3
## 196 Sophomore M No Olympic Math 10.0 5 70 210 2
## 197 Sophomore F No Nobel Math 3.0 3 63 145 4
## 198 Sophomore M No Olympic Math 4.0 6 75 156 3
## 199 FirstYear M No Olympic Math 8.0 10 71 207 0
## 200 FirstYear F No Olympic Math 15.0 5 68 150 1
## 201 Sophomore F No Olympic Verbal 14.0 10 68 137 2
## 202 FirstYear M No Olympic Math 14.0 2 72 153 2
## 203 Junior F No Nobel Math 12.0 5 63 175 2
## 204 Sophomore F No Nobel Math 6.0 2 65 136 3
## 205 Sophomore F No Nobel Verbal 3.0 10 65 104 2
## 206 FirstYear F No Olympic Math 12.0 3 67 122 3
## 207 Sophomore M No Nobel Math 5.0 40 72 192 1
## 208 FirstYear M No Olympic Math 8.0 10 71 218 1
## 209 Sophomore M No Nobel Math 1.0 14 68 170 4
## 210 FirstYear M No Nobel Verbal 10.0 4 72 220 2
## 211 Sophomore F No Academy Math 7.0 2 64 150 1
## 212 Senior M No Olympic Verbal 5.0 7 71 135 4
## 213 Senior F No Nobel Math 10.0 2 62 155 1
## 214 Sophomore F No Olympic Math 12.0 5 65 135 1
## 215 Sophomore M No Olympic Math 15.0 15 68 140 1
## 216 FirstYear F No Olympic Verbal 10.0 5 67 120 1
## 217 Sophomore F No Olympic Math 7.0 12 68 135 3
## 218 Sophomore F No Nobel Math NA 4 64 135 1
## 219 Sophomore M No Nobel Math 15.0 0 72 165 2
## 220 Junior M No Olympic Math 10.0 15 71 180 1
## 221 Sophomore M No Olympic Math 15.0 0 72 165 2
## 222 Sophomore M No Olympic Math 12.0 6 72 175 2
## 223 Sophomore M No Olympic Math 10.0 5 71 200 1
## 224 Sophomore M No Nobel Verbal 12.0 10 71 138 0
## 225 Senior M No Olympic Math 5.0 3 71 265 1
## 226 Sophomore F No Academy Math 14.0 16 61 105 1
## 227 Sophomore F No Nobel Math 3.0 9 68 130 3
## 228 Sophomore M No Olympic Verbal 12.0 2 70 165 1
## 229 Sophomore F No Nobel Verbal 15.0 5 67 145 1
## 230 FirstYear F No Academy Math 3.0 6 64 138 1
## 231 Sophomore F No Olympic Verbal 25.0 12 71 193 2
## 232 Sophomore M No Nobel Math 5.0 1 71 170 1
## 233 Sophomore M No Nobel Verbal 6.0 0 69 155 1
## 234 Sophomore M No Olympic Math 27.0 2 70 155 1
## 235 Junior F No Nobel Verbal 8.0 10 65 140 2
## 236 Sophomore F No Nobel Verbal 3.0 1 65 130 1
## 237 Sophomore M No Olympic Verbal 17.0 14 72 180 3
## 238 FirstYear M No Olympic Verbal 40.0 2 67 140 2
## 239 Sophomore M No Academy Math 5.0 10 74 210 1
## 240 Sophomore M No Nobel Verbal 0.0 7 NA 150 0
## 241 Sophomore F No Nobel Verbal 27.0 2 62 115 1
## 242 Sophomore M No Nobel Verbal 3.0 5 75 225 3
## 243 FirstYear M No Academy Math 3.0 7 67 170 2
## 244 Sophomore F No Olympic Verbal 11.0 20 63 120 0
## 245 Senior M No Nobel Verbal 2.0 4 71 170 1
## 246 Sophomore F No Academy Verbal 9.0 1 63 130 2
## 247 FirstYear M No Nobel Math 12.0 8 70 182 1
## 248 Sophomore M No Nobel Verbal 15.0 2 67 138 1
## 249 Sophomore M No Nobel Math 2.0 5 74 180 2
## 250 Sophomore M No Olympic Math 20.0 6 69 230 0
## 251 Junior M No Olympic Math 12.0 5 70 222 2
## 252 FirstYear M No Academy Verbal 5.0 2 70 145 4
## 253 Sophomore M No Nobel Math 10.0 4 70 150 1
## 254 Senior M No Nobel Verbal 2.0 2 68 190 0
## 255 Sophomore M No Olympic Verbal 12.0 20 76 195 3
## 256 Sophomore F No Nobel Verbal 5.0 2 59 115 1
## 257 Junior F No Olympic Verbal 3.0 1 66 140 1
## 258 Sophomore M No Nobel Verbal 12.0 10 68 155 1
## 259 Sophomore M No Nobel Math 8.0 3 72 150 2
## 260 Sophomore M No Academy Math 8.0 4 69 155 2
## 261 Sophomore M No Nobel Verbal 5.0 3 NA 130 2
## 262 FirstYear M No Olympic Math 6.0 14 75 210 3
## 263 F No Nobel Verbal 8.0 10 63 105 3
## 264 Junior M No Olympic 10.0 10 71 192 1
## 265 FirstYear F No Olympic Math 18.0 3 72 220 3
## 266 Junior F No Nobel Verbal 12.0 0 64 134 1
## 267 Sophomore M No Olympic Math 10.0 5 68 160 1
## 268 Junior M No Nobel Verbal 10.0 5 68 135 1
## 269 Sophomore M No Olympic Verbal 5.0 2 67 140 1
## 270 Sophomore F No Olympic Verbal 7.0 2 66 135 0
## 271 FirstYear M No Olympic Math 3.0 5 74 145 1
## 272 FirstYear F No Olympic Verbal 7.0 4 64 140 2
## 273 Sophomore F No Nobel Math 3.0 2 NA NA 2
## 274 Sophomore F No Academy Verbal 4.0 3 65 138 2
## 275 FirstYear F No Nobel Verbal 8.0 4 64 NA 2
## 276 Sophomore F No Olympic Verbal 7.0 5 64 130 2
## 277 Senior M No Nobel Math 7.0 9 72 210 2
## 278 Senior M No Nobel Verbal 3.0 1 69 233 1
## 279 FirstYear F No Olympic Math 7.0 7 70 180 6
## 280 FirstYear M No Olympic Math 14.0 6 67 185 1
## 281 Sophomore M No Olympic Verbal 5.0 6 76 189 3
## 282 FirstYear F No Olympic Math 14.0 5 66 127 1
## 283 Senior M No Nobel Math 5.0 4 63 135 1
## 284 Sophomore F No Academy Verbal 5.0 5 66 140 0
## 285 Sophomore F No Nobel Math 2.0 20 68 162 2
## 286 Sophomore F No Nobel Verbal 1.0 3 67 215 0
## 287 Senior M No Olympic Math 15.0 5 73 200 2
## 288 Sophomore F No Nobel Verbal 5.0 1 62 120 1
## 289 FirstYear M No Nobel Math 5.0 2 67 165 3
## 290 FirstYear M No Olympic Verbal 15.0 14 71 175 2
## 291 Sophomore F No Olympic Verbal 5.0 3 66 160 2
## 292 Sophomore M No Nobel Verbal 20.0 0 68 145 1
## 293 Junior F No Academy Math 3.0 5 60 180 3
## 294 FirstYear F No Nobel Verbal 7.0 0 71 170 1
## 295 Sophomore M No Olympic Math 20.0 10 75 235 2
## 296 Sophomore F No Olympic 10.0 10 65 155 1
## 297 Senior M No Nobel Math 6.0 15 65 140 3
## 298 Sophomore F No Olympic Math 6.0 1 66 145 2
## 299 FirstYear M No Nobel Verbal 10.0 3 71 175 2
## 300 Sophomore M No Olympic Math 9.0 6 76 210 2
## 301 FirstYear F No Olympic Verbal 1.5 20 67 130 1
## 302 Sophomore M No Olympic Math 20.0 28 72 195 1
## 303 Sophomore M No Nobel Math 8.0 3 67 165 1
## 304 Sophomore M No Olympic Verbal 21.0 1 73 180 6
## 305 Sophomore F No Olympic Verbal 10.0 5 60 145 1
## 306 Sophomore M No Nobel Math 8.0 12 70 163 2
## 307 Junior M No Olympic Verbal 10.0 1 75 160 1
## 308 Junior F No Olympic 18.0 7 67 150 1
## 309 Sophomore M No Olympic Math 15.0 6 71 170 3
## 310 Sophomore F No Nobel Verbal 8.0 5 NA 110 3
## 311 Senior M No Nobel Math 6.0 2 66 170 1
## 312 Sophomore M No Olympic Math 12.0 3 69 145 2
## 313 FirstYear F No Olympic Verbal 10.0 4 69 160 1
## 314 Junior F No Academy Math 7.0 4 63 130 1
## 315 Sophomore F No Olympic Math 5.0 5 65 155 1
## 316 FirstYear F No Academy Verbal 6.0 4 65 NA 1
## 317 Senior M No Nobel Verbal 5.0 5 72 160 2
## 318 Sophomore F No Nobel Verbal 5.0 5 66 151 1
## 319 Sophomore M No Olympic Verbal 30.0 10 74 180 1
## 320 Senior F No Olympic Math 5.0 4 64 130 2
## 321 Junior M Yes Nobel Math 12.0 5 75 185 1
## 322 Senior M Yes Nobel Verbal 0.0 1 73 198 1
## 323 FirstYear M Yes Olympic Verbal 12.0 5 72 175 2
## 324 Senior F Yes Nobel Math 0.0 14 67 123 1
## 325 Junior F Yes Nobel Math 15.0 10 64 145 1
## 326 FirstYear M Yes Olympic Math 18.0 15 67 190 0
## 327 Sophomore F Yes Olympic Math 12.0 5 65 130 2
## 328 Sophomore M Yes Nobel Verbal 2.0 3 70 185 4
## 329 FirstYear M Yes Olympic Math 12.0 20 68 165 1
## 330 Sophomore M Yes Academy Math 3.0 5 70 165 3
## 331 Junior M Yes Olympic Math 3.0 3 67 150 2
## 332 FirstYear M Yes Nobel Math 4.0 3 72 160 1
## 333 Junior F Yes Olympic Math 12.0 2 64 142 3
## 334 FirstYear M Yes Olympic Verbal 25.0 5 72 165 1
## 335 Junior M Yes Nobel Verbal 3.0 4 75 175 0
## 336 Sophomore M Yes Olympic Math 6.0 6 69 175 2
## 337 Sophomore F Yes Olympic Verbal 7.0 8 68 190 1
## 338 Sophomore M Yes Nobel Verbal 7.0 2 72 180 2
## 339 Sophomore M Yes Nobel 6.0 2 74 185 1
## 340 Sophomore M Yes Nobel Verbal 6.0 2 NA NA 1
## 341 Sophomore F Yes Olympic Verbal 13.0 4 64 135 3
## 342 Sophomore M Yes Olympic Verbal 25.0 8 73 195 1
## 343 Senior M Yes Olympic Math 8.0 12 71 175 0
## 344 Sophomore M Yes Olympic Math 5.0 5 70 165 1
## 345 FirstYear M Yes Nobel Math 11.0 6 68 135 1
## 346 Sophomore F Yes Nobel Verbal 18.0 5 69 140 1
## 347 Sophomore M Yes Olympic Math 10.0 NA NA 182 2
## 348 FirstYear M Yes Olympic Math 6.0 14 72 155 1
## 349 FirstYear F Yes Nobel Verbal 2.0 1 68 180 2
## 350 Senior M Yes Nobel Math 5.0 25 69 170 1
## 351 Sophomore F Yes Olympic Math 5.0 3 66 135 3
## 352 FirstYear M Yes Olympic Math 6.0 25 72 165 2
## 353 Sophomore F Yes Nobel Math 10.0 10 65 137 0
## 354 Sophomore M Yes Nobel Math 4.0 1 70 147 2
## 355 Senior F Yes Olympic Math 5.0 4 66 150 1
## 356 Junior F Yes Nobel Math 17.0 2 67 155 2
## 357 Sophomore M Yes Nobel Verbal 7.0 10 71 160 2
## 358 Sophomore F Yes Nobel Verbal 2.0 0 83 130 1
## 359 Sophomore M Yes Olympic Math 8.0 10 61 180 2
## 360 Sophomore F Yes Nobel Verbal 1.0 1 65 150 2
## 361 FirstYear M Yes Olympic Verbal 14.0 5 77 205 2
## 362 Sophomore F Yes Olympic Math 12.0 5 60 115 0
## BirthOrder VerbalSAT MathSAT SAT GPA Pulse Piercings
## 1 4 540 670 1210 3.13 54 0
## 2 2 520 630 1150 2.50 66 3
## 3 1 550 560 1110 2.55 130 0
## 4 1 490 630 1120 3.10 78 0
## 5 1 720 450 1170 2.70 40 6
## 6 2 600 550 1150 3.20 80 4
## 7 1 640 680 1320 2.77 94 8
## 8 1 660 710 1370 3.30 77 0
## 9 2 550 550 1100 2.80 60 7
## 10 8 670 700 1370 3.70 94 2
## 11 2 500 670 1170 2.09 63 2
## 12 2 580 600 1180 NA 72 0
## 13 NA 530 620 1150 2.90 54 0
## 14 3 650 650 1300 3.08 66 4
## 15 1 700 650 1350 NA 72 0
## 16 2 590 610 1200 3.86 59 4
## 17 1 600 600 1200 3.00 88 4
## 18 1 700 650 1350 3.00 59 0
## 19 1 610 800 1410 3.35 64 2
## 20 2 550 450 1000 3.30 72 5
## 21 2 550 640 1190 3.40 74 2
## 22 8 560 570 1130 2.90 70 2
## 23 4 560 620 1180 3.50 58 0
## 24 2 550 650 1200 3.00 48 0
## 25 2 550 680 1230 3.30 74 0
## 26 2 700 720 1420 3.70 60 0
## 27 1 610 590 1200 3.48 74 2
## 28 2 570 580 1150 3.40 70 0
## 29 1 550 560 1110 2.50 74 0
## 30 2 500 500 1000 3.30 60 0
## 31 3 610 620 1230 3.50 55 0
## 32 6 610 650 1260 3.79 82 1
## 33 2 500 560 1060 3.30 68 0
## 34 2 640 640 1280 2.90 83 0
## 35 2 490 520 1010 2.68 53 2
## 36 2 560 580 1140 3.28 72 4
## 37 1 560 640 1200 3.51 86 0
## 38 1 470 600 1070 2.60 67 4
## 39 1 680 670 1350 3.85 89 2
## 40 NA 570 570 1140 2.40 48 4
## 41 1 630 590 1220 3.40 64 0
## 42 3 580 540 1120 2.40 73 7
## 43 1 550 500 1050 3.00 80 2
## 44 2 490 550 1040 3.10 85 5
## 45 1 590 650 1240 2.94 60 0
## 46 1 620 620 1240 3.31 61 0
## 47 2 560 550 1110 3.30 80 0
## 48 2 630 690 1320 2.90 70 0
## 49 2 600 630 1230 3.40 61 0
## 50 2 550 650 1200 3.16 58 2
## 51 1 590 580 1170 NA 42 0
## 52 2 640 730 1370 3.84 88 4
## 53 1 650 670 1320 3.60 68 1
## 54 2 420 520 940 2.36 68 0
## 55 4 500 480 980 2.90 35 0
## 56 1 620 600 1220 3.00 90 0
## 57 1 600 660 1260 3.30 88 4
## 58 2 580 680 1260 3.70 67 2
## 59 1 490 520 1010 2.90 71 2
## 60 3 630 620 1250 3.60 68 2
## 61 2 600 670 1270 3.56 73 0
## 62 1 590 610 1200 3.70 55 2
## 63 1 550 520 1070 4.00 78 5
## 64 3 600 600 1200 3.40 96 0
## 65 3 500 540 1040 NA 63 0
## 66 4 600 650 1250 3.30 73 5
## 67 2 600 600 1200 3.10 60 1
## 68 1 650 530 1180 2.50 80 0
## 69 1 650 650 1300 3.20 96 0
## 70 1 560 520 1080 3.10 49 0
## 71 2 540 640 1180 3.50 62 5
## 72 1 640 600 1240 3.00 68 6
## 73 2 690 620 1310 3.25 52 5
## 74 1 600 580 1180 2.40 71 2
## 75 2 610 650 1260 3.22 72 2
## 76 1 610 420 1030 NA 65 1
## 77 1 600 600 1200 NA 90 0
## 78 3 580 640 1220 3.64 77 4
## 79 1 560 580 1140 3.50 68 2
## 80 1 620 680 1300 2.50 60 0
## 81 1 620 660 1280 3.40 65 0
## 82 1 630 650 1280 NA 60 2
## 83 2 430 610 1040 3.25 84 3
## 84 1 640 640 1280 3.70 80 7
## 85 1 490 590 1080 2.10 66 1
## 86 2 550 560 1110 2.80 70 7
## 87 1 690 550 1240 3.49 70 0
## 88 1 550 550 1100 3.83 72 3
## 89 1 600 580 1180 NA 66 0
## 90 4 530 610 1140 2.70 69 0
## 91 3 520 620 1140 2.80 89 0
## 92 1 660 520 1180 3.13 79 2
## 93 3 800 680 1480 3.62 98 4
## 94 1 560 660 1220 2.00 48 0
## 95 2 610 640 1250 3.60 71 0
## 96 2 660 680 1340 4.00 51 0
## 97 7 650 550 1200 3.10 67 2
## 98 6 680 570 1250 2.60 66 0
## 99 1 550 600 1150 3.70 66 0
## 100 1 660 710 1370 3.57 60 0
## 101 1 650 550 1200 2.90 77 2
## 102 2 620 630 1250 3.15 80 2
## 103 2 530 590 1120 3.88 70 0
## 104 2 670 720 1390 3.50 65 0
## 105 2 640 710 1350 2.80 57 0
## 106 1 680 640 1320 NA 37 4
## 107 2 670 700 1370 2.90 84 0
## 108 2 730 740 1470 3.21 56 0
## 109 2 580 600 1180 3.50 69 4
## 110 2 610 640 1250 3.33 62 0
## 111 1 580 680 1260 3.00 79 0
## 112 1 620 630 1250 3.50 55 0
## 113 1 680 670 1350 3.95 89 0
## 114 1 570 670 1240 2.10 78 0
## 115 2 500 450 950 3.00 83 5
## 116 1 800 750 1550 3.00 58 3
## 117 2 610 540 1150 3.75 77 4
## 118 3 550 550 1100 2.50 50 1
## 119 3 600 620 1220 3.40 87 0
## 120 4 660 550 1210 3.40 74 7
## 121 1 640 560 1200 3.14 76 7
## 122 4 560 580 1140 2.60 50 0
## 123 5 600 600 1200 3.40 70 0
## 124 1 480 530 1010 2.70 84 0
## 125 1 650 600 1250 3.15 68 2
## 126 1 520 600 1120 2.20 66 0
## 127 1 640 640 1280 3.50 76 0
## 128 1 610 620 1230 2.90 65 0
## 129 3 450 400 850 2.50 65 4
## 130 1 700 600 1300 3.50 68 0
## 131 1 540 680 1220 3.60 78 2
## 132 3 550 540 1090 3.10 74 2
## 133 1 640 680 1320 3.00 76 4
## 134 2 560 540 1100 3.00 79 5
## 135 3 530 700 1230 3.80 81 4
## 136 1 620 650 1270 3.15 56 2
## 137 3 550 560 1110 2.75 48 0
## 138 2 520 540 1060 2.80 68 4
## 139 3 660 580 1240 3.00 62 2
## 140 4 470 600 1070 3.10 70 2
## 141 1 570 580 1150 2.27 46 0
## 142 1 560 550 1110 2.80 88 2
## 143 2 520 540 1060 3.02 68 0
## 144 1 560 500 1060 2.93 74 0
## 145 1 600 600 1200 3.20 88 2
## 146 1 400 420 820 3.00 67 3
## 147 4 540 630 1170 3.00 61 0
## 148 2 400 460 860 2.70 62 0
## 149 1 530 725 1255 3.20 69 0
## 150 1 530 600 1130 2.90 59 5
## 151 NA 517 561 1078 3.00 79 2
## 152 1 620 580 1200 2.72 56 0
## 153 1 590 640 1230 3.30 85 2
## 154 2 590 610 1200 NA 72 0
## 155 3 620 600 1220 2.22 69 0
## 156 2 540 690 1230 3.26 61 2
## 157 3 490 540 1030 3.50 95 7
## 158 1 540 520 1060 3.10 58 2
## 159 3 640 600 1240 3.30 57 2
## 160 1 620 620 1240 3.29 80 2
## 161 3 680 540 1220 NA 60 0
## 162 1 800 670 1470 3.69 69 2
## 163 2 510 650 1160 2.65 73 0
## 164 2 620 690 1310 3.25 62 0
## 165 1 670 650 1320 2.80 64 0
## 166 3 560 510 1070 3.36 86 2
## 167 1 630 600 1230 2.97 73 0
## 168 1 590 740 1330 3.31 71 0
## 169 1 630 620 1250 3.05 72 0
## 170 2 470 500 970 2.20 84 4
## 171 3 550 540 1090 3.30 120 4
## 172 1 690 660 1350 3.45 77 6
## 173 2 660 700 1360 3.83 80 4
## 174 1 600 590 1190 3.00 80 4
## 175 2 700 560 1260 3.35 54 8
## 176 3 660 690 1350 2.40 54 0
## 177 3 540 650 1190 3.10 78 0
## 178 3 520 630 1150 3.40 72 2
## 179 1 550 580 1130 2.82 78 0
## 180 1 600 620 1220 2.90 69 2
## 181 1 600 640 1240 3.40 80 0
## 182 1 520 480 1000 3.20 76 7
## 183 1 490 610 1100 3.20 74 5
## 184 1 600 650 1250 3.80 70 0
## 185 2 620 520 1140 3.57 72 2
## 186 2 530 620 1150 3.33 60 0
## 187 2 550 620 1170 2.90 71 0
## 188 2 600 600 1200 3.20 70 0
## 189 2 610 680 1290 3.10 53 1
## 190 1 550 600 1150 3.25 70 0
## 191 4 560 580 1140 3.40 75 0
## 192 3 670 710 1380 3.80 84 2
## 193 1 610 600 1210 3.38 66 0
## 194 1 660 720 1380 3.88 72 4
## 195 3 630 660 1290 2.75 70 0
## 196 2 520 580 1100 2.90 49 0
## 197 5 670 750 1420 3.60 81 5
## 198 1 550 710 1260 2.80 77 0
## 199 1 560 680 1240 2.20 72 1
## 200 2 390 410 800 NA 38 4
## 201 2 600 500 1100 3.30 60 0
## 202 3 560 690 1250 2.85 64 0
## 203 3 610 660 1270 3.37 65 2
## 204 1 710 760 1470 3.50 72 2
## 205 2 710 680 1390 3.55 54 6
## 206 4 560 640 1200 3.20 82 2
## 207 1 600 630 1230 2.47 82 0
## 208 2 540 560 1100 2.72 62 0
## 209 5 600 640 1240 3.40 52 0
## 210 2 600 570 1170 NA 66 0
## 211 1 550 560 1110 3.40 55 5
## 212 3 550 550 1100 3.10 63 0
## 213 1 620 660 1280 3.10 78 2
## 214 1 550 650 1200 2.94 65 3
## 215 2 570 580 1150 3.00 64 0
## 216 1 530 520 1050 NA 70 2
## 217 1 570 600 1170 3.60 70 2
## 218 1 620 640 1260 3.60 65 2
## 219 1 520 670 1190 3.50 71 0
## 220 2 620 640 1260 3.40 54 0
## 221 1 520 670 1190 3.50 71 0
## 222 2 680 750 1430 3.00 54 0
## 223 2 630 710 1340 2.75 70 0
## 224 1 730 650 1380 3.56 65 0
## 225 1 440 460 900 2.70 82 0
## 226 2 670 700 1370 3.68 63 2
## 227 3 500 560 1060 3.50 71 4
## 228 1 630 560 1190 3.50 75 0
## 229 2 680 620 1300 3.40 60 5
## 230 1 530 580 1110 2.60 54 2
## 231 2 630 620 1250 3.25 68 0
## 232 1 600 620 1220 3.30 70 0
## 233 1 700 560 1260 3.20 90 0
## 234 1 590 620 1210 2.90 72 0
## 235 1 670 670 1340 3.85 41 2
## 236 1 780 640 1420 3.40 80 0
## 237 3 660 620 1280 3.40 68 0
## 238 2 600 580 1180 NA 64 2
## 239 2 510 530 1040 2.70 78 0
## 240 1 800 740 1540 3.81 65 0
## 241 2 740 660 1400 3.40 64 9
## 242 1 780 620 1400 3.23 78 0
## 243 3 440 560 1000 3.10 42 0
## 244 1 700 550 1250 2.89 60 6
## 245 1 660 560 1220 2.81 59 0
## 246 3 520 510 1030 3.00 54 4
## 247 2 600 620 1220 3.77 70 0
## 248 2 760 640 1400 3.30 52 0
## 249 1 680 740 1420 3.00 88 0
## 250 1 520 590 1110 2.90 60 5
## 251 1 510 730 1240 3.50 66 5
## 252 4 600 600 1200 3.60 55 0
## 253 1 650 680 1330 3.70 74 0
## 254 1 700 670 1370 3.20 59 0
## 255 1 650 620 1270 2.87 84 0
## 256 2 520 520 1040 3.30 68 0
## 257 2 580 530 1110 3.30 74 2
## 258 1 600 600 1200 3.45 58 0
## 259 1 520 710 1230 3.10 62 0
## 260 1 750 780 1530 3.71 84 0
## 261 1 650 650 1300 3.30 72 0
## 262 2 550 580 1130 3.30 52 0
## 263 1 650 600 1250 NA 80 6
## 264 1 640 640 1280 3.73 68 0
## 265 4 660 670 1330 3.13 71 2
## 266 2 640 640 1280 3.89 55 2
## 267 1 530 650 1180 3.05 68 0
## 268 1 690 650 1340 3.20 61 0
## 269 1 630 610 1240 3.25 80 0
## 270 1 600 550 1150 2.90 66 5
## 271 2 560 620 1180 3.00 70 0
## 272 1 720 690 1410 3.50 78 4
## 273 2 610 640 1250 3.50 88 2
## 274 2 720 690 1410 3.60 72 2
## 275 2 590 560 1150 3.40 65 5
## 276 2 620 570 1190 3.25 63 5
## 277 2 550 690 1240 2.70 70 0
## 278 1 800 670 1470 3.78 72 0
## 279 7 670 690 1360 4.00 63 2
## 280 1 550 600 1150 3.00 68 0
## 281 2 620 470 1090 3.30 64 1
## 282 1 520 620 1140 2.80 64 6
## 283 1 440 640 1080 2.50 60 0
## 284 1 720 700 1420 3.50 68 6
## 285 1 390 530 920 2.80 70 2
## 286 1 560 560 1120 3.40 63 4
## 287 1 570 610 1180 3.00 57 0
## 288 1 660 600 1260 3.27 84 2
## 289 4 620 640 1260 3.50 74 5
## 290 3 660 570 1230 3.00 61 0
## 291 1 630 610 1240 3.60 78 5
## 292 2 610 600 1210 3.25 65 0
## 293 4 540 680 1220 3.00 68 0
## 294 1 570 570 1140 2.75 76 6
## 295 1 600 670 1270 2.90 54 0
## 296 1 600 600 1200 3.00 56 3
## 297 3 530 640 1170 3.00 88 0
## 298 2 560 580 1140 2.90 77 3
## 299 2 560 560 1120 3.36 52 1
## 300 2 500 580 1080 3.25 62 0
## 301 1 560 480 1040 3.50 80 2
## 302 1 500 700 1200 2.76 60 0
## 303 2 640 650 1290 NA 67 0
## 304 3 660 570 1230 2.75 51 0
## 305 2 550 550 1100 3.25 81 2
## 306 1 630 680 1310 3.00 62 0
## 307 2 700 600 1300 2.80 84 0
## 308 1 560 560 1120 3.40 75 5
## 309 1 580 650 1230 3.25 60 0
## 310 3 800 600 1400 3.50 76 10
## 311 2 460 520 980 3.05 65 0
## 312 2 700 740 1440 3.18 65 0
## 313 2 660 650 1310 3.00 64 2
## 314 1 500 550 1050 2.23 75 7
## 315 1 600 630 1230 3.40 93 2
## 316 2 650 620 1270 3.30 75 2
## 317 3 640 620 1260 3.43 82 0
## 318 1 620 550 1170 3.88 80 2
## 319 1 570 480 1050 3.45 69 0
## 320 3 540 560 1100 3.00 85 2
## 321 2 670 680 1350 3.00 76 0
## 322 1 620 620 1240 3.18 76 0
## 323 3 650 600 1250 2.20 65 0
## 324 1 560 570 1130 3.29 67 4
## 325 1 480 690 1170 3.50 64 8
## 326 1 460 520 980 2.80 71 0
## 327 3 500 610 1110 2.90 65 2
## 328 3 680 680 1360 3.50 83 0
## 329 1 550 650 1200 2.50 65 0
## 330 2 630 680 1310 3.25 77 0
## 331 2 620 640 1260 2.90 66 0
## 332 2 560 620 1180 3.66 62 0
## 333 3 590 630 1220 3.01 58 4
## 334 1 530 510 1040 2.25 48 3
## 335 1 690 500 1190 3.20 61 0
## 336 1 550 600 1150 3.35 50 0
## 337 1 600 600 1200 3.00 72 2
## 338 2 610 600 1210 3.00 74 0
## 339 2 600 600 1200 3.48 80 0
## 340 1 750 500 1250 2.88 90 0
## 341 2 470 420 890 2.60 72 6
## 342 1 550 490 1040 2.75 64 0
## 343 1 540 600 1140 3.30 72 0
## 344 1 530 600 1130 3.25 70 0
## 345 1 540 670 1210 3.30 84 0
## 346 1 680 580 1260 3.20 87 4
## 347 1 510 530 1040 2.60 60 NA
## 348 2 500 650 1150 3.00 60 0
## 349 3 680 610 1290 3.25 80 5
## 350 1 500 650 1150 3.30 70 0
## 351 2 570 580 1150 3.25 78 4
## 352 1 540 550 1090 2.83 75 0
## 353 1 550 560 1110 3.30 42 5
## 354 2 680 750 1430 3.60 80 0
## 355 2 630 730 1360 3.70 72 2
## 356 1 650 670 1320 2.83 96 6
## 357 3 680 650 1330 3.30 95 0
## 358 1 550 540 1090 3.44 80 3
## 359 1 600 620 1220 3.00 74 0
## 360 2 540 450 990 3.27 78 2
## 361 2 550 550 1100 2.30 72 0
## 362 1 500 510 1010 2.60 91 5# Q1. Check the head of the dataset
head(survey)## Year Sex Smoke Award HigherSAT Exercise TV Height Weight Siblings
## 1 Senior M No Olympic Math 10 1 71 180 4
## 2 Sophomore F Yes Academy Math 4 7 66 120 2
## 3 FirstYear M No Nobel Math 14 5 72 208 2
## 4 Junior M No Nobel Math 3 1 63 110 1
## 5 Sophomore F No Nobel Verbal 3 3 65 150 1
## 6 Sophomore F No Nobel Verbal 5 4 65 114 2
## BirthOrder VerbalSAT MathSAT SAT GPA Pulse Piercings
## 1 4 540 670 1210 3.13 54 0
## 2 2 520 630 1150 2.50 66 3
## 3 1 550 560 1110 2.55 130 0
## 4 1 490 630 1120 3.10 78 0
## 5 1 720 450 1170 2.70 40 6
## 6 2 600 550 1150 3.20 80 4# Q2. Chead()# Q2. Check the dimensions
dim(survey)## [1] 362 17# Q3. Create a table of students' sex and HigherSAT
table(
Sex = survey$Sex,
HigherSAT = survey$HigherSAT
)## HigherSAT
## Sex Math Verbal
## F 4 81 84
## M 3 124 66# Q4. Display summary statistics for VerbalSAT
summary(survey$VerbalSAT)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 390.0 550.0 600.0 594.2 640.0 800.0# Q5. Find the average GPA of students
mean(survey$GPA)## [1] NAsummary(survey$GPA)## Min. 1st Qu. Median Mean 3rd Qu. Max. NAs
## 2.000 2.900 3.200 3.158 3.400 4.000 17# Q6. Create a new dataframe called column_df that contains students' weight
# and number of hours they exercise.
column_df <- data.frame(
weight = survey$weight,
exercise_hours = survey$exercise_hours
)
# Q7. Access the fourth element in the first column of the StudentSurvey dataset.
survey[4, 1]## [1] "Junior"Don’t change this chunk — it loads and filters the dataset.
olympics <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2021/2021-07-27/olympics.csv')
olympic_gymnasts <- olympics |>
filter(!is.na(age)) |>
filter(sport == "Gymnastics") |>
mutate(
medalist = case_when(
is.na(medal) ~ FALSE,
!is.na(medal) ~ TRUE
)
)
olympic_gymnasts## # A tibble: 25,528 × 16
## id name sex age height weight team noc games year season city
## <dbl> <chr> <chr> <dbl> <dbl> <dbl> <chr> <chr> <chr> <dbl> <chr> <chr>
## 1 17 Paavo J… M 28 175 64 Finl… FIN 1948… 1948 Summer Lond…
## 2 17 Paavo J… M 28 175 64 Finl… FIN 1948… 1948 Summer Lond…
## 3 17 Paavo J… M 28 175 64 Finl… FIN 1948… 1948 Summer Lond…
## 4 17 Paavo J… M 28 175 64 Finl… FIN 1948… 1948 Summer Lond…
## 5 17 Paavo J… M 28 175 64 Finl… FIN 1948… 1948 Summer Lond…
## 6 17 Paavo J… M 28 175 64 Finl… FIN 1948… 1948 Summer Lond…
## 7 17 Paavo J… M 28 175 64 Finl… FIN 1948… 1948 Summer Lond…
## 8 17 Paavo J… M 28 175 64 Finl… FIN 1948… 1948 Summer Lond…
## 9 17 Paavo J… M 32 175 64 Finl… FIN 1952… 1952 Summer Hels…
## 10 17 Paavo J… M 32 175 64 Finl… FIN 1952… 1952 Summer Hels…
## # ℹ 25,518 more rows
## # ℹ 4 more variables: sport <chr>, event <chr>, medal <chr>, medalist <lgl>More info on the data: https://github.com/rfordatascience/tidytuesday/blob/master/data/2021/2021-07-27/readme.md
# Q8. Create a subset dataframe with these columns only: name, sex, age, team, year, medalist.
# Call it df.
df <- olympic_gymnasts[, c("name", "sex", "age", "team", "year", "medalist")]
df## # A tibble: 25,528 × 6
## name sex age team year medalist
## <chr> <chr> <dbl> <chr> <dbl> <lgl>
## 1 Paavo Johannes Aaltonen M 28 Finland 1948 TRUE
## 2 Paavo Johannes Aaltonen M 28 Finland 1948 TRUE
## 3 Paavo Johannes Aaltonen M 28 Finland 1948 FALSE
## 4 Paavo Johannes Aaltonen M 28 Finland 1948 TRUE
## 5 Paavo Johannes Aaltonen M 28 Finland 1948 FALSE
## 6 Paavo Johannes Aaltonen M 28 Finland 1948 FALSE
## 7 Paavo Johannes Aaltonen M 28 Finland 1948 FALSE
## 8 Paavo Johannes Aaltonen M 28 Finland 1948 TRUE
## 9 Paavo Johannes Aaltonen M 32 Finland 1952 FALSE
## 10 Paavo Johannes Aaltonen M 32 Finland 1952 TRUE
## # ℹ 25,518 more rows# Q9. From df, create df2 that only has the years 2008, 2012, and 2016.
df2 <- df[df$year %in% c(2008, 2012, 2016), ]
# Q10. Group by those three years and summarize the mean age in each group.
df2 %>%
group_by(2008, 2012, 2016) %>%
summarise(mean_age = mean(age, na.rm = TRUE))## `summarise()` has regrouped the output.
## ℹ Summaries were computed grouped by 2008, 2012, and 2016.
## ℹ Output is grouped by 2008 and 2012.
## ℹ Use `summarise(.groups = "drop_last")` to silence this message.
## ℹ Use `summarise(.by = c(2008, 2012, 2016))` for per-operation grouping
## (`?dplyr::dplyr_by`) instead.## # A tibble: 1 × 4
## # Groups: 2008, 2012 [1]
## `2008` `2012` `2016` mean_age
## <dbl> <dbl> <dbl> <dbl>
## 1 2008 2012 2016 21.9# Q11. Using the full olympic_gymnasts dataset, group by year and find the mean age
# for each year. Call this oly_year.
# (Bonus: find the minimum average age across years.)
oly_year <- olympic_gymnasts %>%
group_by(year) %>%
summarise(mean_age = mean(age, na.rm = TRUE))
oly_year## # A tibble: 29 × 2
## year mean_age
## <dbl> <dbl>
## 1 1896 24.3
## 2 1900 22.2
## 3 1904 25.1
## 4 1906 24.7
## 5 1908 23.2
## 6 1912 24.2
## 7 1920 26.7
## 8 1924 27.6
## 9 1928 25.6
## 10 1932 23.9
## # ℹ 19 more rowsmin(mean(oly_year$year))## [1] 1956.621# Q12. Open-ended: come up with a question that requires at least TWO dplyr verbs.
# Write the question, then the code that answers it. Below the chunk, briefly
# explain why you chose this question.
# TWO dplyr verbs.
# Write the question, then the code that answers it
#What does filter() do?
filter(olympic_gymnasts, year %in% c(2008, 2012, 2016))## # A tibble: 2,703 × 16
## id name sex age height weight team noc games year season city
## <dbl> <chr> <chr> <dbl> <dbl> <dbl> <chr> <chr> <chr> <dbl> <chr> <chr>
## 1 51 Nstor A… M 23 167 64 Spain ESP 2016… 2016 Summer Rio …
## 2 51 Nstor A… M 23 167 64 Spain ESP 2016… 2016 Summer Rio …
## 3 51 Nstor A… M 23 167 64 Spain ESP 2016… 2016 Summer Rio …
## 4 51 Nstor A… M 23 167 64 Spain ESP 2016… 2016 Summer Rio …
## 5 51 Nstor A… M 23 167 64 Spain ESP 2016… 2016 Summer Rio …
## 6 51 Nstor A… M 23 167 64 Spain ESP 2016… 2016 Summer Rio …
## 7 396 Katja A… F 25 165 55 Germ… GER 2008… 2008 Summer Beij…
## 8 396 Katja A… F 25 165 55 Germ… GER 2008… 2008 Summer Beij…
## 9 396 Katja A… F 25 165 55 Germ… GER 2008… 2008 Summer Beij…
## 10 396 Katja A… F 25 165 55 Germ… GER 2008… 2008 Summer Beij…
## # ℹ 2,693 more rows
## # ℹ 4 more variables: sport <chr>, event <chr>, medal <chr>, medalist <lgl>#What does rename() do?
olympic_gymnasts <- olympic_gymnasts %>%
rename(event_year = year)
olympic_gymnasts## # A tibble: 25,528 × 16
## id name sex age height weight team noc games event_year season
## <dbl> <chr> <chr> <dbl> <dbl> <dbl> <chr> <chr> <chr> <dbl> <chr>
## 1 17 Paavo Jo… M 28 175 64 Finl… FIN 1948… 1948 Summer
## 2 17 Paavo Jo… M 28 175 64 Finl… FIN 1948… 1948 Summer
## 3 17 Paavo Jo… M 28 175 64 Finl… FIN 1948… 1948 Summer
## 4 17 Paavo Jo… M 28 175 64 Finl… FIN 1948… 1948 Summer
## 5 17 Paavo Jo… M 28 175 64 Finl… FIN 1948… 1948 Summer
## 6 17 Paavo Jo… M 28 175 64 Finl… FIN 1948… 1948 Summer
## 7 17 Paavo Jo… M 28 175 64 Finl… FIN 1948… 1948 Summer
## 8 17 Paavo Jo… M 28 175 64 Finl… FIN 1948… 1948 Summer
## 9 17 Paavo Jo… M 32 175 64 Finl… FIN 1952… 1952 Summer
## 10 17 Paavo Jo… M 32 175 64 Finl… FIN 1952… 1952 Summer
## # ℹ 25,518 more rows
## # ℹ 5 more variables: city <chr>, sport <chr>, event <chr>, medal <chr>,
## # medalist <lgl>#Explain why you chose these questions
Because it was what I learned this week.
Your question and reflection: Good morning, Professor,
After I read the material, I can translate/read the code fairly well. I mainly struggle with knowing how/when to type it correctly. Clearly, it requires a lot of practice. But, I was wondering if you had any tips or suggestions as to how to get that part right. Most, of the time I get it half way or three-quarters right.