I have a dataframe that is a column with all the state abbreviations:
Name
AK
AL
AR
AZ
CO
CT
DC
FL
I want to take this column and split it into multiple columns such that no column has more than 5 cells.
Name1 Name2
AK CT
AL DC
AR FL
AZ
CO
I can create the code for what I want to do, but there has to be a better way:
states <- as.data.frame(state.abb)
new.table <- as.data.frame(states[1:5,])
i <- 6
k <- 2
repeat{
new.table[,k] <- as.data.frame(states[(i):(i+4),])
i <- i + 5
k <- k + 1
if(i>nrow(states)){
break
}
}
Similar to @RichScriven's concept, but using a matrix
to deal with the reshaping:
columniser <- function(x, n) {
m <- matrix(NA, nrow=n, ncol=ceiling(length(x)/n) )
m[1:length(x)] <- x
as.data.frame(m)
}
columniser(states$state.abb, 5)
# V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
#1 AL CO HI KS MA MT NM OK SD VA
#2 AK CT ID KY MI NE NY OR TN WA
#3 AZ DE IL LA MN NV NC PA TX WV
#4 AR FL IN ME MS NH ND RI UT WI
#5 CA GA IA MD MO NJ OH SC VT WY
columniser(1:12, 5)
# V1 V2 V3
#1 1 6 11
#2 2 7 12
#3 3 8 NA
#4 4 9 NA
#5 5 10 NA
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With