2

I'm trying to reshape my data from long to wide

set.seed(1)
y <- rnorm(12, 0, 1)
x <- rep(c("A","B"), each=6)
g <- rep(c("g1", "g2"), each=3)
t <-  rep(c(1,2,3), times=4)
df <- data.frame(y=y, x=x, g=g, t=t)

This is what I'm hoping to get:

    A.1     A.2     A.3    B.1     B.2     B.3
g1  -0.626  0.183  -0.835  0.487   0.738   0.575
g2  1.595   0.329  -0.820  -0.305  1.511   0.389

I tried with reshape

reshape(df, idvar = "g", timevar = "t", direction = "wide")

but I don't know how to add x to the columns

Maël
  • 45,206
  • 3
  • 29
  • 67
locus
  • 387
  • 2
  • 9

1 Answers1

3

You can use pivot_wider. Also, I added a more compact form of your toy data set using expand.grid.

library(tidyr)

df <- data.frame(y=y, expand.grid(t=c(1,2,3), g=c("g1", "g2"), x=c("A","B")))
pivot_wider(df, values_from = y, names_from = c(x,t), names_sep = ".")

  g        A.1   A.2    A.3    B.1   B.2   B.3
  <fct>  <dbl> <dbl>  <dbl>  <dbl> <dbl> <dbl>
1 g1    -0.626 0.184 -0.836  0.487 0.738 0.576
2 g2     1.60  0.330 -0.820 -0.305 1.51  0.390
Maël
  • 45,206
  • 3
  • 29
  • 67