Homework#6
Shunya
2017年11月30日
college <- read.csv("./Educ4HW.csv")
college1 = college[-2] ## Eliminating state
set.seed(1)
head(college)## College State Public MathSAT VerbSAT ACT Received
## 1 Christendom College VA 0 568 568 23 81
## 2 Mount Vernon College DC 0 440 402 20 149
## 3 King's College NY 0 442 465 25 356
## 4 Alaska Pacific University AK 0 490 482 20 193
## 5 Sierra Nevada College NV 0 400 400 21 200
## 6 Trinity College DC 0 470 480 22 247
## Accepted Enrolled Pct10 Pct25 FTUG PTUG ISTuit OSTuit Books PhDs SFRatio
## 1 72 51 33 71 139 3 8730 8730 400 92 9.3
## 2 70 61 15 35 203 138 13780 13780 500 84 5.7
## 3 233 53 16 24 246 18 8190 8190 500 100 7.0
## 4 146 55 16 44 249 869 7560 7560 800 76 11.9
## 5 160 100 5 25 300 50 7500 7500 500 45 7.5
## 6 189 100 19 49 309 639 11412 11412 500 89 8.3colrank <- kmeans(college1[,-1], centers=5, nstart=10)
##Classifing them into 5 groups
o=order(colrank$cluster)
data.frame(college1$College[o],colrank$cluster[o])## college1.College.o. colrank.cluster.o.
## 1 King's College 1
## 2 Alaska Pacific University 1
## 3 Sierra Nevada College 1
## 4 Webber College 1
## 5 Kendall College 1
## 6 Bartlesville Wesleyan College 1
## 7 College of the Southwest 1
## 8 Notre Dame College of Ohio 1
## 9 Tennessee Wesleyan College 1
## 10 Pacific Christian College 1
## 11 Huston-Tillotson College 1
## 12 Virginia Intermont College 1
## 13 Texas College 1
## 14 Nyack College 1
## 15 Concordia Lutheran College 1
## 16 Huntingdon College 1
## 17 Jarvis Christian College 1
## 18 Southwestern Adventist College 1
## 19 Sterling College 1
## 20 Union College 1
## 21 North Carolina Wesleyan College 1
## 22 Bennett College 1
## 23 Bluefield College 1
## 24 Tiffin University 1
## 25 Kentucky Wesleyan College 1
## 26 Voorhees College 1
## 27 Belhaven College 1
## 28 Univ. of Texas of the Permian Basin 1
## 29 Dallas Baptist University 1
## 30 McMurry University 1
## 31 Hilbert College 1
## 32 Texas Lutheran College 1
## 33 Illinois College 1
## 34 John Brown University 1
## 35 Tusculum College 1
## 36 Hanover College 1
## 37 Central Wesleyan College 1
## 38 Mars Hill College 1
## 39 Mount Saint Mary College 1
## 40 Freed-Hardeman University 1
## 41 Howard Payne University 1
## 42 Texas Wesleyan University 1
## 43 Wingate College 1
## 44 Cumberland College 1
## 45 Flagler College 1
## 46 Hardin-Simmons University 1
## 47 Oklahoma Christian University 1
## 48 Bluefield State College 1
## 49 Montana College of Mineral Sci. & Tech. MT 1
## 50 Florida Southern College 1
## 51 Castleton State College 1
## 52 Gardner Webb University 1
## 53 St. Joseph's College 1
## 54 University of Minnesota at Morris 1
## 55 University of South Carolina at Aiken 1
## 56 Savannah Coll. of Art and Design 1
## 57 Belmont University 1
## 58 Spelman College 1
## 59 University of North Carolina at Asheville 1
## 60 Lander University 1
## 61 University of Texas at Dallas 1
## 62 Bethune Cookman College 1
## 63 Cedarville College 1
## 64 Univ. of South Carolina at Spartanburg 1
## 65 Grove City College 1
## 66 Western State College of Colorado 1
## 67 Shepherd College 1
## 68 Oral Roberts University 1
## 69 Xavier University of Louisiana 1
## 70 Morehouse College 1
## 71 Longwood College 1
## 72 Harding University 1
## 73 Winthrop University 1
## 74 Mesa State College 1
## 75 SUNY College at Potsdam 1
## 76 University of Southern Colorado 1
## 77 University of West Florida 1
## 78 University of Colorado at Denver 1
## 79 University of North Florida 1
## 80 University of Missouri at Rolla 1
## 81 West Texas A&M University 1
## 82 SUNY College at Fredonia 1
## 83 Angelo State University 1
## 84 University of Southern Indiana 1
## 85 Salisbury State University 1
## 86 Troy State University at Troy 1
## 87 South Carolina State University 1
## 88 Prairie View A. and M. University 1
## 89 Embry Riddle Aeronautical University 1
## 90 SUNY College at Plattsburgh 1
## 91 Lamar University 1
## 92 Michigan Technological University 1
## 93 Winona State University 1
## 94 SUNY College at New Paltz 2
## 95 SUNY College at Cortland 2
## 96 SUNY College at Geneseo 2
## 97 Texas Southern University 2
## 98 SUNY College at Brockport 2
## 99 University of Maryland at Baltimore County 2
## 100 University of North Carolina at Wilmington 2
## 101 East Tennessee State University 2
## 102 College of Charleston 2
## 103 SUNY College at Oswego 2
## 104 University of Idaho 2
## 105 Marshall University 2
## 106 Cleveland State University 2
## 107 Radford University 2
## 108 University of North Dakota 2
## 109 University of Northern Colorado 2
## 110 Univ. of Wisconsin at Eau Claire 2
## 111 SUNY at Binghamton 2
## 112 Indiana State University 2
## 113 Montana State University 2
## 114 Western Washington University 2
## 115 Indiana Univ.-Purdue Univ. at Indianapolis 2
## 116 University of Southern Mississippi 2
## 117 University of Texas at San Antonio 2
## 118 Metropolitan State College 2
## 119 Stephen F. Austin State University 2
## 120 Appalachian State University 2
## 121 University of North Carolina at Charlotte 2
## 122 Florida International University 2
## 123 Utah State University 2
## 124 University of Texas at Arlington 2
## 125 University of Cincinnati 2
## 126 Northeastern University 2
## 127 Northern Arizona University 2
## 128 University of Central Florida 2
## 129 University of South Carolina at Columbia 2
## 130 Oklahoma State University 2
## 131 California Polytechnic-San Luis 2
## 132 East Carolina University 2
## 133 Bowling Green State University 2
## 134 Southwest Texas State University 2
## 135 University of Utah 2
## 136 University of North Texas 2
## 137 University of South Florida 2
## 138 University of Missouri at Columbia 2
## 139 Ohio University 2
## 140 Kent State University 2
## 141 Colorado State University 2
## 142 University of Tennessee at Knoxville 2
## 143 Ball State University 2
## 144 Auburn University-Main Campus 2
## 145 Louisiana State University at Baton Rouge 2
## 146 San Diego State University 2
## 147 University of Nebraska at Lincoln 2
## 148 University of Minnesota Twin Cities 2
## 149 Christendom College 3
## 150 Mount Vernon College 3
## 151 Trinity College 3
## 152 Montreat-Anderson College 3
## 153 Saint Mary-of-the-Woods College 3
## 154 Centenary College 3
## 155 Albertus Magnus College 3
## 156 Covenant College 3
## 157 Chatham College 3
## 158 Huntington College 3
## 159 St. Martin's College 3
## 160 Saint Francis College 3
## 161 Schreiner College 3
## 162 Center for Creative Studies 3
## 163 Sweet Briar College 3
## 164 Salem College 3
## 165 Concordia College 3
## 166 Phillips University 3
## 167 Newberry College 3
## 168 Stephens College 3
## 169 Maryville College 3
## 170 Queens College 3
## 171 Concordia University 3
## 172 Defiance College 3
## 173 Avila College 3
## 174 Randolph-Macon Woman's College 3
## 175 University of Dubuque 3
## 176 Westminster College 3
## 177 Monmouth College 3
## 178 Albertson College 3
## 179 Ursuline College 3
## 180 Fresno Pacific College 3
## 181 College of Mount St. Vincent 3
## 182 Hood College 3
## 183 Northland College 3
## 184 Bethel College 3
## 185 Keuka College 3
## 186 Briar Cliff College 3
## 187 Rocky Mountain College 3
## 188 Davis & Elkins College 3
## 189 Bluffton College 3
## 190 Oglethorpe University 3
## 191 University of Charleston 3
## 192 Centenary College of Louisiana 3
## 193 Southern California College 3
## 194 Thiel College 3
## 195 Cedar Crest College 3
## 196 Hollins College 3
## 197 Alderson-Broaddus College 3
## 198 Emory & Henry College 3
## 199 Concordia College 3
## 200 Saint Joseph's College 3
## 201 Franklin College 3
## 202 William Woods University 3
## 203 Transylvania University 3
## 204 College of Santa Fe 3
## 205 North Park College 3
## 206 Manchester College 3
## 207 Mount Mary College 3
## 208 Centre College 3
## 209 Hendrix College 3
## 210 Heidelberg College 3
## 211 Wheeling Jesuit College 3
## 212 Tri-State University 3
## 213 Marymount Manhattan College 3
## 214 University of St. Thomas 3
## 215 Graceland College 3
## 216 Hiram College 3
## 217 Cazenovia College 3
## 218 Mount St. Mary's College 3
## 219 Pacific University 3
## 220 Missouri Valley College 3
## 221 Eastern College 3
## 222 University of Dallas 3
## 223 Dowling College 3
## 224 Wofford College 3
## 225 Christian Brothers University 3
## 226 Quincy University 3
## 227 Millsaps College 3
## 228 D'Youville College 3
## 229 Carroll College 3
## 230 Asbury College 3
## 231 Muskingum College 3
## 232 Austin College 3
## 233 Coe College 3
## 234 Presbyterian College 3
## 235 Hillsdale College 3
## 236 College of Mount St. Joseph 3
## 237 Point Park College 3
## 238 Southwestern University 3
## 239 Lenoir-Rhyne College 3
## 240 Bellarmine College 3
## 241 Northwestern College 3
## 242 Houghton College 3
## 243 Whitworth College 3
## 244 Nazareth College of Rochester 3
## 245 Westmont College 3
## 246 William Jewell College 3
## 247 Wartburg College 3
## 248 Franciscan University of Steubenville 3
## 249 Geneva College 3
## 250 North Central College 3
## 251 Maryville University 3
## 252 College of St. Scholastica 3
## 253 Hamline University 3
## 254 Lycoming College 3
## 255 Birmingham-Southern College 3
## 256 Carthage College 3
## 257 Guilford College 3
## 258 Westminster College 3
## 259 University of Indianapolis 3
## 260 California Lutheran University 3
## 261 University of La Verne 3
## 262 Saint Mary's College 3
## 263 West Virginia Wesleyan College 3
## 264 LeTourneau University 3
## 265 Linfield College 3
## 266 Malone College 3
## 267 Northwood University 3
## 268 Incarnate Word College 3
## 269 St. John Fisher College 3
## 270 St. Bonaventure University 3
## 271 Saint John's University 3
## 272 College of Saint Catherine 3
## 273 College of Saint Benedict 3
## 274 St. Edward's University 3
## 275 Webster University 3
## 276 Taylor University 3
## 277 Millikin University 3
## 278 Barry University 3
## 279 Anderson University 3
## 280 Ashland University 3
## 281 Point Loma Nazarene College 3
## 282 Buena Vista College 3
## 283 St. Norbert College 3
## 284 Augsburg College 3
## 285 University of Detroit Mercy 3
## 286 St. Mary's University of San Antonio 3
## 287 Lindenwood College 3
## 288 Widener University 3
## 289 Messiah College 3
## 290 Luther College 3
## 291 Gustavus Adolphus College 3
## 292 Indiana Wesleyan University 3
## 293 Gonzaga University 3
## 294 Pacific Lutheran University 3
## 295 Butler University 3
## 296 Siena College 3
## 297 Gannon University 3
## 298 Baldwin-Wallace College 3
## 299 Loyola University 3
## 300 Xavier University 3
## 301 University of Tulsa 3
## 302 Mercer University 3
## 303 Seattle University 3
## 304 John Carroll University 3
## 305 Drake University 3
## 306 Calvin College 3
## 307 Marist College 3
## 308 Iona College 3
## 309 University of St. Thomas 3
## 310 University of San Francisco 3
## 311 Bradley University 3
## 312 Loyola University Chicago 3
## 313 University of Dayton 3
## 314 DePaul University 3
## 315 Hofstra University 3
## 316 Marquette University 3
## 317 Wells College 4
## 318 Scripps College 4
## 319 Bethany College 4
## 320 Antioch University 4
## 321 Ripon College 4
## 322 Pitzer College 4
## 323 Claremont McKenna College 4
## 324 Knox College 4
## 325 Albright College 4
## 326 Earlham College 4
## 327 Beloit College 4
## 328 Elmira College 4
## 329 University of the South 4
## 330 Cornell College 4
## 331 Simmons College 4
## 332 Reed College 4
## 333 Whitman College 4
## 334 Grinnell College 4
## 335 Wheaton College 4
## 336 Eckerd College 4
## 337 Kenyon College 4
## 338 Hartwick College 4
## 339 Amherst College 4
## 340 Willamette University 4
## 341 Davidson College 4
## 342 Muhlenberg College 4
## 343 Chapman University 4
## 344 Rollins College 4
## 345 College of Wooster 4
## 346 Colby College 4
## 347 Franklin and Marshall College 4
## 348 Ohio Wesleyan University 4
## 349 Illinois Wesleyan University 4
## 350 Mount Holyoke College 4
## 351 Illinois Institute of Technology 4
## 352 Wittenberg University 4
## 353 Azusa Pacific University 4
## 354 Vassar College 4
## 355 Skidmore College 4
## 356 Pepperdine University 4
## 357 Ohio Northern University 4
## 358 Oberlin College 4
## 359 Colgate University 4
## 360 University of Denver 4
## 361 Wesleyan University 4
## 362 University of Puget Sound 4
## 363 Worcester Polytechnic Institute 4
## 364 Saint Olaf College 4
## 365 Fairfield University 4
## 366 Johns Hopkins University 4
## 367 Providence College 4
## 368 Carnegie Mellon University 4
## 369 Massachusetts Institute of Technology 4
## 370 Vanderbilt University 4
## 371 Emory University 4
## 372 Brown University 4
## 373 Duke University 4
## 374 Northwestern University 4
## 375 University of Pennsylvania 4
## 376 University of Southern California 4
## 377 Boston University 5
## 378 University of Arizona 5
## 379 University of Michigan at Ann Arbor 5
## 380 Arizona State University Main campus 5
## 381 Indiana University at Bloomington 5
## 382 University of Illinois - Urbana 5
## 383 Michigan State University 5
## 384 University of Texas at Austin 5
## 385 Texas A&M Univ. at College Station 5#3Using all variables
plot(college1$MathSAT, college1$ACT, type="n", xlab="MathSAT", ylab="ACT")
text(x=college1$MathSAT, y=college1$ACT, labels=college1$College, col=colrank$cluster+1)
collegedis <- dist(college1[,-1], method = "euclidean",diag = FALSE,upper = FALSE)
cl1 <- hclust(collegedis, method = "complete")
plot(cl1, hang=-1, main = "Cluster Dendogram")
groups=cutree(cl1, k=5) # "k=" defines the number of clusters you are using
groups## [1] 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 1 1 2 1 1 1 1 1 1 1 1 2 1 1 1 1 1
## [36] 2 1 1 2 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 2 2 1 1 1 2 2 2 2 1 1 2 1 1 1
## [71] 1 2 1 1 2 1 1 1 1 2 2 1 1 1 1 1 1 1 1 1 1 2 1 2 1 1 1 1 1 2 1 1 2 2 1
## [106] 2 1 1 1 1 1 2 1 1 2 2 2 1 1 1 1 1 2 1 1 1 1 2 1 2 1 1 2 1 2 2 2 1 2 2
## [141] 1 1 1 1 2 1 1 2 1 1 1 1 1 2 2 1 2 1 2 1 1 1 2 2 2 1 1 2 2 2 2 1 2 2 2
## [176] 2 1 1 2 2 2 2 1 2 1 1 2 1 1 2 2 2 2 1 1 1 2 2 2 1 1 1 1 2 2 2 2 2 1 1
## [211] 2 1 2 2 1 2 1 1 1 1 1 2 1 2 2 2 1 1 2 2 1 2 1 1 1 1 1 1 2 1 1 1 1 1 2
## [246] 2 1 2 1 1 2 2 2 2 2 2 1 2 2 1 1 2 1 2 1 1 2 1 1 1 2 1 1 2 2 1 1 2 1 1
## [281] 1 2 2 1 1 2 1 1 1 2 1 1 1 1 1 2 1 1 2 1 1 2 2 1 1 1 1 1 1 2 1 2 1 2 1
## [316] 3 1 1 2 2 3 1 2 1 1 1 1 2 1 3 1 1 1 1 1 1 1 1 1 1 3 1 1 1 1 1 1 1 1 1
## [351] 1 1 3 1 1 1 1 1 1 3 1 1 1 1 1 1 1 3 1 1 1 1 1 1 1 1 4 5 5 5 5 5 5 5 5table(groups)## groups
## 1 2 3 4 5
## 251 118 7 1 8rect.hclust(cl1, k=5, border="red") # draw dendogram with red borders around the 5 clusters