Let's suppose I have a data.frame df
as follows:
df=data.frame(one=c(1,2,3,4,5,6,7),
two=c('a','a','a','b','b','b','b'),
three=c(1123,33,5566,212,1,90,876))
I need to split df
in two based on the values of column two
, i.e. a
and b
.
Here is my desired output:
one.x two.x three.x one.y two.y three.y
1 a 1123 4 b 212
2 a 33 5 b 1
3 a 5566 6 b 90
NA NA NA 7 b 876
Thanks
Here is an idea using zoo::cbind.zoo
,
do.call(zoo::cbind.zoo, split(df, df$two))
# one.a two.a three.a one.b two.b three.b
#1 1 a 1123 4 b 212
#2 2 a 33 5 b 1
#3 3 a 5566 6 b 90
#4 <NA> <NA> <NA> 7 b 876
A base R option
lst <- split(df, ~two)
nmax <- max(sapply(lst, nrow))
do.call(
cbind,
lapply(
lst,
function(x) {
k <- nrow(x)
x[k + seq_len(nmax - k), ] <- NA
x
}
)
)
gives
a.one a.two a.three b.one b.two b.three
1 1 a 1123 4 b 212
2 2 a 33 5 b 1
3 3 a 5566 6 b 90
4 NA <NA> NA 7 b 876
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