HW#2 Practice Problems
Aidan Ramirez
9/10/2020
Problem 1
Problem number 1 is about the auto dataset.
library(tidyverse)## -- Attaching packages ------------------------------------------------------------------------------------------------- tidyverse 1.3.0 --## v ggplot2 3.3.2 v purrr 0.3.4
## v tibble 3.0.3 v dplyr 1.0.2
## v tidyr 1.1.1 v stringr 1.4.0
## v readr 1.3.1 v forcats 0.5.0## -- Conflicts ---------------------------------------------------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()library(ggplot2)
#Problem 1
Auto <- read.table("http://faculty.marshall.usc.edu/gareth-james/ISL/Auto.data",
header=TRUE,
na.strings = "?")
str(Auto)## 'data.frame': 397 obs. of 9 variables:
## $ mpg : num 18 15 18 16 17 15 14 14 14 15 ...
## $ cylinders : int 8 8 8 8 8 8 8 8 8 8 ...
## $ displacement: num 307 350 318 304 302 429 454 440 455 390 ...
## $ horsepower : num 130 165 150 150 140 198 220 215 225 190 ...
## $ weight : num 3504 3693 3436 3433 3449 ...
## $ acceleration: num 12 11.5 11 12 10.5 10 9 8.5 10 8.5 ...
## $ year : int 70 70 70 70 70 70 70 70 70 70 ...
## $ origin : int 1 1 1 1 1 1 1 1 1 1 ...
## $ name : chr "chevrolet chevelle malibu" "buick skylark 320" "plymouth satellite" "amc rebel sst" ...#A Origin and Name are qualitative variables. The rest are quantitative.
#B
range(Auto$mpg)## [1] 9.0 46.6range(Auto$displacement)## [1] 68 455range(Auto$horsepower)## [1] NA NArange(Auto$weight)## [1] 1613 5140range(Auto$acceleration)## [1] 8.0 24.8range(Auto$year)## [1] 70 82range(Auto$cylinders)## [1] 3 8#C
mean(Auto$mpg) ## [1] 23.51587mean(Auto$displacement)## [1] 193.5327mean(Auto$horsepower)## [1] NAmean(Auto$weight)## [1] 2970.262mean(Auto$acceleration)## [1] 15.55567mean(Auto$year)## [1] 75.99496mean(Auto$cylinders) ## [1] 5.458438#C pt 2
sd(Auto$mpg)## [1] 7.825804sd(Auto$displacement)## [1] 104.3796sd(Auto$horsepower)## [1] NAsd(Auto$weight)## [1] 847.9041sd(Auto$acceleration)## [1] 2.749995sd(Auto$year)## [1] 3.690005sd(Auto$cylinders) ## [1] 1.701577#Whoops, didn' think of this until afterwards.
mpg2=(Auto$mpg)
displacement2=(Auto$displacement)
horsepower2=(Auto$horsepower)
weight2=(Auto$weight)
acceleration2=(Auto$acceleration)
year2=(Auto$year)
cylinders2=(Auto$year)
#D
A=Auto[1:10,1:7]
B=Auto[85:397,1:7]
C=rbind(A,B)
C## mpg cylinders displacement horsepower weight acceleration year
## 1 18.0 8 307 130 3504 12.0 70
## 2 15.0 8 350 165 3693 11.5 70
## 3 18.0 8 318 150 3436 11.0 70
## 4 16.0 8 304 150 3433 12.0 70
## 5 17.0 8 302 140 3449 10.5 70
## 6 15.0 8 429 198 4341 10.0 70
## 7 14.0 8 454 220 4354 9.0 70
## 8 14.0 8 440 215 4312 8.5 70
## 9 14.0 8 455 225 4425 10.0 70
## 10 15.0 8 390 190 3850 8.5 70
## 85 27.0 4 97 88 2100 16.5 72
## 86 13.0 8 350 175 4100 13.0 73
## 87 14.0 8 304 150 3672 11.5 73
## 88 13.0 8 350 145 3988 13.0 73
## 89 14.0 8 302 137 4042 14.5 73
## 90 15.0 8 318 150 3777 12.5 73
## 91 12.0 8 429 198 4952 11.5 73
## 92 13.0 8 400 150 4464 12.0 73
## 93 13.0 8 351 158 4363 13.0 73
## 94 14.0 8 318 150 4237 14.5 73
## 95 13.0 8 440 215 4735 11.0 73
## 96 12.0 8 455 225 4951 11.0 73
## 97 13.0 8 360 175 3821 11.0 73
## 98 18.0 6 225 105 3121 16.5 73
## 99 16.0 6 250 100 3278 18.0 73
## 100 18.0 6 232 100 2945 16.0 73
## 101 18.0 6 250 88 3021 16.5 73
## 102 23.0 6 198 95 2904 16.0 73
## 103 26.0 4 97 46 1950 21.0 73
## 104 11.0 8 400 150 4997 14.0 73
## 105 12.0 8 400 167 4906 12.5 73
## 106 13.0 8 360 170 4654 13.0 73
## 107 12.0 8 350 180 4499 12.5 73
## 108 18.0 6 232 100 2789 15.0 73
## 109 20.0 4 97 88 2279 19.0 73
## 110 21.0 4 140 72 2401 19.5 73
## 111 22.0 4 108 94 2379 16.5 73
## 112 18.0 3 70 90 2124 13.5 73
## 113 19.0 4 122 85 2310 18.5 73
## 114 21.0 6 155 107 2472 14.0 73
## 115 26.0 4 98 90 2265 15.5 73
## 116 15.0 8 350 145 4082 13.0 73
## 117 16.0 8 400 230 4278 9.5 73
## 118 29.0 4 68 49 1867 19.5 73
## 119 24.0 4 116 75 2158 15.5 73
## 120 20.0 4 114 91 2582 14.0 73
## 121 19.0 4 121 112 2868 15.5 73
## 122 15.0 8 318 150 3399 11.0 73
## 123 24.0 4 121 110 2660 14.0 73
## 124 20.0 6 156 122 2807 13.5 73
## 125 11.0 8 350 180 3664 11.0 73
## 126 20.0 6 198 95 3102 16.5 74
## 127 21.0 6 200 NA 2875 17.0 74
## 128 19.0 6 232 100 2901 16.0 74
## 129 15.0 6 250 100 3336 17.0 74
## 130 31.0 4 79 67 1950 19.0 74
## 131 26.0 4 122 80 2451 16.5 74
## 132 32.0 4 71 65 1836 21.0 74
## 133 25.0 4 140 75 2542 17.0 74
## 134 16.0 6 250 100 3781 17.0 74
## 135 16.0 6 258 110 3632 18.0 74
## 136 18.0 6 225 105 3613 16.5 74
## 137 16.0 8 302 140 4141 14.0 74
## 138 13.0 8 350 150 4699 14.5 74
## 139 14.0 8 318 150 4457 13.5 74
## 140 14.0 8 302 140 4638 16.0 74
## 141 14.0 8 304 150 4257 15.5 74
## 142 29.0 4 98 83 2219 16.5 74
## 143 26.0 4 79 67 1963 15.5 74
## 144 26.0 4 97 78 2300 14.5 74
## 145 31.0 4 76 52 1649 16.5 74
## 146 32.0 4 83 61 2003 19.0 74
## 147 28.0 4 90 75 2125 14.5 74
## 148 24.0 4 90 75 2108 15.5 74
## 149 26.0 4 116 75 2246 14.0 74
## 150 24.0 4 120 97 2489 15.0 74
## 151 26.0 4 108 93 2391 15.5 74
## 152 31.0 4 79 67 2000 16.0 74
## 153 19.0 6 225 95 3264 16.0 75
## 154 18.0 6 250 105 3459 16.0 75
## 155 15.0 6 250 72 3432 21.0 75
## 156 15.0 6 250 72 3158 19.5 75
## 157 16.0 8 400 170 4668 11.5 75
## 158 15.0 8 350 145 4440 14.0 75
## 159 16.0 8 318 150 4498 14.5 75
## 160 14.0 8 351 148 4657 13.5 75
## 161 17.0 6 231 110 3907 21.0 75
## 162 16.0 6 250 105 3897 18.5 75
## 163 15.0 6 258 110 3730 19.0 75
## 164 18.0 6 225 95 3785 19.0 75
## 165 21.0 6 231 110 3039 15.0 75
## 166 20.0 8 262 110 3221 13.5 75
## 167 13.0 8 302 129 3169 12.0 75
## 168 29.0 4 97 75 2171 16.0 75
## 169 23.0 4 140 83 2639 17.0 75
## 170 20.0 6 232 100 2914 16.0 75
## 171 23.0 4 140 78 2592 18.5 75
## 172 24.0 4 134 96 2702 13.5 75
## 173 25.0 4 90 71 2223 16.5 75
## 174 24.0 4 119 97 2545 17.0 75
## 175 18.0 6 171 97 2984 14.5 75
## 176 29.0 4 90 70 1937 14.0 75
## 177 19.0 6 232 90 3211 17.0 75
## 178 23.0 4 115 95 2694 15.0 75
## 179 23.0 4 120 88 2957 17.0 75
## 180 22.0 4 121 98 2945 14.5 75
## 181 25.0 4 121 115 2671 13.5 75
## 182 33.0 4 91 53 1795 17.5 75
## 183 28.0 4 107 86 2464 15.5 76
## 184 25.0 4 116 81 2220 16.9 76
## 185 25.0 4 140 92 2572 14.9 76
## 186 26.0 4 98 79 2255 17.7 76
## 187 27.0 4 101 83 2202 15.3 76
## 188 17.5 8 305 140 4215 13.0 76
## 189 16.0 8 318 150 4190 13.0 76
## 190 15.5 8 304 120 3962 13.9 76
## 191 14.5 8 351 152 4215 12.8 76
## 192 22.0 6 225 100 3233 15.4 76
## 193 22.0 6 250 105 3353 14.5 76
## 194 24.0 6 200 81 3012 17.6 76
## 195 22.5 6 232 90 3085 17.6 76
## 196 29.0 4 85 52 2035 22.2 76
## 197 24.5 4 98 60 2164 22.1 76
## 198 29.0 4 90 70 1937 14.2 76
## 199 33.0 4 91 53 1795 17.4 76
## 200 20.0 6 225 100 3651 17.7 76
## 201 18.0 6 250 78 3574 21.0 76
## 202 18.5 6 250 110 3645 16.2 76
## 203 17.5 6 258 95 3193 17.8 76
## 204 29.5 4 97 71 1825 12.2 76
## 205 32.0 4 85 70 1990 17.0 76
## 206 28.0 4 97 75 2155 16.4 76
## 207 26.5 4 140 72 2565 13.6 76
## 208 20.0 4 130 102 3150 15.7 76
## 209 13.0 8 318 150 3940 13.2 76
## 210 19.0 4 120 88 3270 21.9 76
## 211 19.0 6 156 108 2930 15.5 76
## 212 16.5 6 168 120 3820 16.7 76
## 213 16.5 8 350 180 4380 12.1 76
## 214 13.0 8 350 145 4055 12.0 76
## 215 13.0 8 302 130 3870 15.0 76
## 216 13.0 8 318 150 3755 14.0 76
## 217 31.5 4 98 68 2045 18.5 77
## 218 30.0 4 111 80 2155 14.8 77
## 219 36.0 4 79 58 1825 18.6 77
## 220 25.5 4 122 96 2300 15.5 77
## 221 33.5 4 85 70 1945 16.8 77
## 222 17.5 8 305 145 3880 12.5 77
## 223 17.0 8 260 110 4060 19.0 77
## 224 15.5 8 318 145 4140 13.7 77
## 225 15.0 8 302 130 4295 14.9 77
## 226 17.5 6 250 110 3520 16.4 77
## 227 20.5 6 231 105 3425 16.9 77
## 228 19.0 6 225 100 3630 17.7 77
## 229 18.5 6 250 98 3525 19.0 77
## 230 16.0 8 400 180 4220 11.1 77
## 231 15.5 8 350 170 4165 11.4 77
## 232 15.5 8 400 190 4325 12.2 77
## 233 16.0 8 351 149 4335 14.5 77
## 234 29.0 4 97 78 1940 14.5 77
## 235 24.5 4 151 88 2740 16.0 77
## 236 26.0 4 97 75 2265 18.2 77
## 237 25.5 4 140 89 2755 15.8 77
## 238 30.5 4 98 63 2051 17.0 77
## 239 33.5 4 98 83 2075 15.9 77
## 240 30.0 4 97 67 1985 16.4 77
## 241 30.5 4 97 78 2190 14.1 77
## 242 22.0 6 146 97 2815 14.5 77
## 243 21.5 4 121 110 2600 12.8 77
## 244 21.5 3 80 110 2720 13.5 77
## 245 43.1 4 90 48 1985 21.5 78
## 246 36.1 4 98 66 1800 14.4 78
## 247 32.8 4 78 52 1985 19.4 78
## 248 39.4 4 85 70 2070 18.6 78
## 249 36.1 4 91 60 1800 16.4 78
## 250 19.9 8 260 110 3365 15.5 78
## 251 19.4 8 318 140 3735 13.2 78
## 252 20.2 8 302 139 3570 12.8 78
## 253 19.2 6 231 105 3535 19.2 78
## 254 20.5 6 200 95 3155 18.2 78
## 255 20.2 6 200 85 2965 15.8 78
## 256 25.1 4 140 88 2720 15.4 78
## 257 20.5 6 225 100 3430 17.2 78
## 258 19.4 6 232 90 3210 17.2 78
## 259 20.6 6 231 105 3380 15.8 78
## 260 20.8 6 200 85 3070 16.7 78
## 261 18.6 6 225 110 3620 18.7 78
## 262 18.1 6 258 120 3410 15.1 78
## 263 19.2 8 305 145 3425 13.2 78
## 264 17.7 6 231 165 3445 13.4 78
## 265 18.1 8 302 139 3205 11.2 78
## 266 17.5 8 318 140 4080 13.7 78
## 267 30.0 4 98 68 2155 16.5 78
## 268 27.5 4 134 95 2560 14.2 78
## 269 27.2 4 119 97 2300 14.7 78
## 270 30.9 4 105 75 2230 14.5 78
## 271 21.1 4 134 95 2515 14.8 78
## 272 23.2 4 156 105 2745 16.7 78
## 273 23.8 4 151 85 2855 17.6 78
## 274 23.9 4 119 97 2405 14.9 78
## 275 20.3 5 131 103 2830 15.9 78
## 276 17.0 6 163 125 3140 13.6 78
## 277 21.6 4 121 115 2795 15.7 78
## 278 16.2 6 163 133 3410 15.8 78
## 279 31.5 4 89 71 1990 14.9 78
## 280 29.5 4 98 68 2135 16.6 78
## 281 21.5 6 231 115 3245 15.4 79
## 282 19.8 6 200 85 2990 18.2 79
## 283 22.3 4 140 88 2890 17.3 79
## 284 20.2 6 232 90 3265 18.2 79
## 285 20.6 6 225 110 3360 16.6 79
## 286 17.0 8 305 130 3840 15.4 79
## 287 17.6 8 302 129 3725 13.4 79
## 288 16.5 8 351 138 3955 13.2 79
## 289 18.2 8 318 135 3830 15.2 79
## 290 16.9 8 350 155 4360 14.9 79
## 291 15.5 8 351 142 4054 14.3 79
## 292 19.2 8 267 125 3605 15.0 79
## 293 18.5 8 360 150 3940 13.0 79
## 294 31.9 4 89 71 1925 14.0 79
## 295 34.1 4 86 65 1975 15.2 79
## 296 35.7 4 98 80 1915 14.4 79
## 297 27.4 4 121 80 2670 15.0 79
## 298 25.4 5 183 77 3530 20.1 79
## 299 23.0 8 350 125 3900 17.4 79
## 300 27.2 4 141 71 3190 24.8 79
## 301 23.9 8 260 90 3420 22.2 79
## 302 34.2 4 105 70 2200 13.2 79
## 303 34.5 4 105 70 2150 14.9 79
## 304 31.8 4 85 65 2020 19.2 79
## 305 37.3 4 91 69 2130 14.7 79
## 306 28.4 4 151 90 2670 16.0 79
## 307 28.8 6 173 115 2595 11.3 79
## 308 26.8 6 173 115 2700 12.9 79
## 309 33.5 4 151 90 2556 13.2 79
## 310 41.5 4 98 76 2144 14.7 80
## 311 38.1 4 89 60 1968 18.8 80
## 312 32.1 4 98 70 2120 15.5 80
## 313 37.2 4 86 65 2019 16.4 80
## 314 28.0 4 151 90 2678 16.5 80
## 315 26.4 4 140 88 2870 18.1 80
## 316 24.3 4 151 90 3003 20.1 80
## 317 19.1 6 225 90 3381 18.7 80
## 318 34.3 4 97 78 2188 15.8 80
## 319 29.8 4 134 90 2711 15.5 80
## 320 31.3 4 120 75 2542 17.5 80
## 321 37.0 4 119 92 2434 15.0 80
## 322 32.2 4 108 75 2265 15.2 80
## 323 46.6 4 86 65 2110 17.9 80
## 324 27.9 4 156 105 2800 14.4 80
## 325 40.8 4 85 65 2110 19.2 80
## 326 44.3 4 90 48 2085 21.7 80
## 327 43.4 4 90 48 2335 23.7 80
## 328 36.4 5 121 67 2950 19.9 80
## 329 30.0 4 146 67 3250 21.8 80
## 330 44.6 4 91 67 1850 13.8 80
## 331 40.9 4 85 NA 1835 17.3 80
## 332 33.8 4 97 67 2145 18.0 80
## 333 29.8 4 89 62 1845 15.3 80
## 334 32.7 6 168 132 2910 11.4 80
## 335 23.7 3 70 100 2420 12.5 80
## 336 35.0 4 122 88 2500 15.1 80
## 337 23.6 4 140 NA 2905 14.3 80
## 338 32.4 4 107 72 2290 17.0 80
## 339 27.2 4 135 84 2490 15.7 81
## 340 26.6 4 151 84 2635 16.4 81
## 341 25.8 4 156 92 2620 14.4 81
## 342 23.5 6 173 110 2725 12.6 81
## 343 30.0 4 135 84 2385 12.9 81
## 344 39.1 4 79 58 1755 16.9 81
## 345 39.0 4 86 64 1875 16.4 81
## 346 35.1 4 81 60 1760 16.1 81
## 347 32.3 4 97 67 2065 17.8 81
## 348 37.0 4 85 65 1975 19.4 81
## 349 37.7 4 89 62 2050 17.3 81
## 350 34.1 4 91 68 1985 16.0 81
## 351 34.7 4 105 63 2215 14.9 81
## 352 34.4 4 98 65 2045 16.2 81
## 353 29.9 4 98 65 2380 20.7 81
## 354 33.0 4 105 74 2190 14.2 81
## 355 34.5 4 100 NA 2320 15.8 81
## 356 33.7 4 107 75 2210 14.4 81
## 357 32.4 4 108 75 2350 16.8 81
## 358 32.9 4 119 100 2615 14.8 81
## 359 31.6 4 120 74 2635 18.3 81
## 360 28.1 4 141 80 3230 20.4 81
## 361 30.7 6 145 76 3160 19.6 81
## 362 25.4 6 168 116 2900 12.6 81
## 363 24.2 6 146 120 2930 13.8 81
## 364 22.4 6 231 110 3415 15.8 81
## 365 26.6 8 350 105 3725 19.0 81
## 366 20.2 6 200 88 3060 17.1 81
## 367 17.6 6 225 85 3465 16.6 81
## 368 28.0 4 112 88 2605 19.6 82
## 369 27.0 4 112 88 2640 18.6 82
## 370 34.0 4 112 88 2395 18.0 82
## 371 31.0 4 112 85 2575 16.2 82
## 372 29.0 4 135 84 2525 16.0 82
## 373 27.0 4 151 90 2735 18.0 82
## 374 24.0 4 140 92 2865 16.4 82
## 375 36.0 4 105 74 1980 15.3 82
## 376 37.0 4 91 68 2025 18.2 82
## 377 31.0 4 91 68 1970 17.6 82
## 378 38.0 4 105 63 2125 14.7 82
## 379 36.0 4 98 70 2125 17.3 82
## 380 36.0 4 120 88 2160 14.5 82
## 381 36.0 4 107 75 2205 14.5 82
## 382 34.0 4 108 70 2245 16.9 82
## 383 38.0 4 91 67 1965 15.0 82
## 384 32.0 4 91 67 1965 15.7 82
## 385 38.0 4 91 67 1995 16.2 82
## 386 25.0 6 181 110 2945 16.4 82
## 387 38.0 6 262 85 3015 17.0 82
## 388 26.0 4 156 92 2585 14.5 82
## 389 22.0 6 232 112 2835 14.7 82
## 390 32.0 4 144 96 2665 13.9 82
## 391 36.0 4 135 84 2370 13.0 82
## 392 27.0 4 151 90 2950 17.3 82
## 393 27.0 4 140 86 2790 15.6 82
## 394 44.0 4 97 52 2130 24.6 82
## 395 32.0 4 135 84 2295 11.6 82
## 396 28.0 4 120 79 2625 18.6 82
## 397 31.0 4 119 82 2720 19.4 82mean(mpg2)## [1] 23.51587mean(displacement2)## [1] 193.5327mean(horsepower2)## [1] NAmean(weight2)## [1] 2970.262mean(acceleration2)## [1] 15.55567mean(year2)## [1] 75.99496mean(cylinders2)## [1] 75.99496range(mpg2)## [1] 9.0 46.6range(displacement2)## [1] 68 455range(horsepower2)## [1] NA NArange(weight2)## [1] 1613 5140range(acceleration2)## [1] 8.0 24.8range(year2)## [1] 70 82range(cylinders2)## [1] 70 82sd(mpg2)## [1] 7.825804sd(displacement2)## [1] 104.3796sd(horsepower2)## [1] NAsd(weight2)## [1] 847.9041sd(acceleration2)## [1] 2.749995sd(year2)## [1] 3.690005sd(cylinders2)## [1] 3.690005#E
#higher mpg = less horsepower
ggplot(Auto, aes(x=mpg, y=horsepower, color=horsepower))+geom_point() ## Warning: Removed 5 rows containing missing values (geom_point).
#higher weight often means less acceleration
ggplot(Auto, aes(x=weight, y=acceleration, color=weight))+geom_line() 
#less cylinders usually means less horsepower
ggplot(Auto, aes(x=horsepower, y=cylinders, color=horsepower))+geom_point() ## Warning: Removed 5 rows containing missing values (geom_point).
#F
#Higher horsepower numbers usually have lower mpg numbersProblem 2
#Problem 2
#A
college<-read.csv("http://faculty.marshall.usc.edu/gareth-james/ISL/College.csv",header=TRUE, na.strings = "?")
#B
rownames(college) <- college[,1]
college <- college[,-1]
#C
summary(college)## Private Apps Accept Enroll
## Length:777 Min. : 81 Min. : 72 Min. : 35
## Class :character 1st Qu.: 776 1st Qu.: 604 1st Qu.: 242
## Mode :character Median : 1558 Median : 1110 Median : 434
## Mean : 3002 Mean : 2019 Mean : 780
## 3rd Qu.: 3624 3rd Qu.: 2424 3rd Qu.: 902
## Max. :48094 Max. :26330 Max. :6392
## Top10perc Top25perc F.Undergrad P.Undergrad
## Min. : 1.00 Min. : 9.0 Min. : 139 Min. : 1.0
## 1st Qu.:15.00 1st Qu.: 41.0 1st Qu.: 992 1st Qu.: 95.0
## Median :23.00 Median : 54.0 Median : 1707 Median : 353.0
## Mean :27.56 Mean : 55.8 Mean : 3700 Mean : 855.3
## 3rd Qu.:35.00 3rd Qu.: 69.0 3rd Qu.: 4005 3rd Qu.: 967.0
## Max. :96.00 Max. :100.0 Max. :31643 Max. :21836.0
## Outstate Room.Board Books Personal
## Min. : 2340 Min. :1780 Min. : 96.0 Min. : 250
## 1st Qu.: 7320 1st Qu.:3597 1st Qu.: 470.0 1st Qu.: 850
## Median : 9990 Median :4200 Median : 500.0 Median :1200
## Mean :10441 Mean :4358 Mean : 549.4 Mean :1341
## 3rd Qu.:12925 3rd Qu.:5050 3rd Qu.: 600.0 3rd Qu.:1700
## Max. :21700 Max. :8124 Max. :2340.0 Max. :6800
## PhD Terminal S.F.Ratio perc.alumni
## Min. : 8.00 Min. : 24.0 Min. : 2.50 Min. : 0.00
## 1st Qu.: 62.00 1st Qu.: 71.0 1st Qu.:11.50 1st Qu.:13.00
## Median : 75.00 Median : 82.0 Median :13.60 Median :21.00
## Mean : 72.66 Mean : 79.7 Mean :14.09 Mean :22.74
## 3rd Qu.: 85.00 3rd Qu.: 92.0 3rd Qu.:16.50 3rd Qu.:31.00
## Max. :103.00 Max. :100.0 Max. :39.80 Max. :64.00
## Expend Grad.Rate
## Min. : 3186 Min. : 10.00
## 1st Qu.: 6751 1st Qu.: 53.00
## Median : 8377 Median : 65.00
## Mean : 9660 Mean : 65.46
## 3rd Qu.:10830 3rd Qu.: 78.00
## Max. :56233 Max. :118.00pairs(college[,2:11])
ggplot(college, aes(x=Private, y=Outstate, color=Private))+geom_boxplot() 
#D
Elite <- rep("No", nrow(college))
Elite[college$Top10perc > 50] = "Yes"
Elite <- as.factor(Elite)
college <- data.frame(college, Elite)
summary(Elite)## No Yes
## 699 78#There are 78 Elite universities
ggplot(college, aes(x=Elite, y=Outstate, color=Elite))+geom_boxplot() 