|
借用一点楼上的代码,提供一个不同的方法,用tidyr和dplyr这个问题也可以解决 - Student<-c("john davis","agela williams", "bullwinkle moose","david jones","janice markhammer", "cheryl cushing", "reuven ytzhak", "greg knox", "joel england", "mary rayburn")
- Math<-c(502,600,412,358,495,512,410,625,573,522)
- Science<-c(95,99,80,82,75,85,80,95,89,86)
- English<-c(25,22,18,15,20,28,15,30,27,18)
- roster<-data.frame(Student, Math, Science, English, stringAsFactors=FALSE)
- require(dplyr)
- require(tidyr)
- roster <- roster%>%
- separate(Student,c("FirstName","LastName"),sep = " ")
- head(roster)
复制代码
|