CODEWITHSUNDEEP
rreshape
Dmitry Leykin
Dmitry Leykin

Reputation: 505

Transposing Complex data.frame in R

I have data that looks like this, 

posture code HR EE  a   b
cycling A03 102 100 3   6
standingA03 99  99  4   6
sitting A03 98  67  5   5
walking A03 97  78  3   6
cycling B01 111 76  5   5
standingB01 100 88  4   4
sitting B01 78  34  4   3
walking B01 99  99  2   2

I need to transpose it so it will look like the following:

code    cycling_HR  cycling_EE  cycling_a   cycling_b   standing_HR standing_EE standing_a  standing_b  sitting_HR  sitting_EE  sitting_a   sitting_b   walking_HR  walking_EE  walking_a   walking_b
A03     102    100  3       6   99          99          4   6   98  67  5   5   97  78  3   6
B01     111    76   5       5   100         88          4   4   78  34  4   3   99  99  2   2

and so on (sorry for the formatting). I was not able to find appropriate answer to clarify the issue. Any assistance would be more that welcome.

Upvotes: 2

Views: 238

Answers (3)

David Arenburg
David Arenburg

Reputation: 92282

Or for a big data set (as reshape is veryyyy slow) you could try data.table v>=1.9.5

library(data.table)
dcast(setDT(df), code ~ posture, value.var = c("HR", "EE", "a", "b"))
#    code cycling_HR sitting_HR standing_HR walking_HR cycling_EE sitting_EE standing_EE walking_EE cycling_a sitting_a standing_a walking_a cycling_b sitting_b
# 1:  A03        102         98          99         97        100         67          99         78         3         5          4         3         6         5
# 2:  B01        111         78         100         99         76         34          88         99         5         4          4         2         5         3
#    standing_b walking_b
# 1:          6         6
# 2:          4         2

Benchmarks on slightly larger data (4 million rows):

library(dplyr)
library(tidyr)
require(data.table)
set.seed(1L)
df = data.frame(posture = c("cycling", "standing", "sitting", "walking"), 
                code = rep(paste("A", 1:1e6, sep=""), each=4L), 
                HR = sample(120, 4e6, TRUE),
                EE = sample(100, 4e6, TRUE), 
                a = sample(5, 4e6, TRUE), 
                b = sample(10, 4e6, TRUE), 
                stringsAsFactors=FALSE)

# base R approach
system.time(reshape(df, direction = "wide", idvar = "code", timevar = "posture"))
#    user  system elapsed 
#  23.183   0.470  23.838 

# dplyr + tidyr
system.time({
df %>%
  gather(var, val, HR:b) %>%
  unite(v1, posture, var) %>%
  spread(v1, val)
})
#    user  system elapsed 
#  17.312   1.046  18.446 

# data.table
system.time(dcast(setDT(df), code ~ posture, 
            value.var = c("HR", "EE", "a", "b")))
#    user  system elapsed 
#   1.216   0.136   1.367

Upvotes: 4

A5C1D2H2I1M1N2O1R2T1
A5C1D2H2I1M1N2O1R2T1

Reputation: 193517

This is a very basic "long to wide" reshaping problem.

You can do this in base R with the reshape function:

    reshape(mydf, direction = "wide", idvar = "code", timevar = "posture")
#   code HR.cycling EE.cycling a.cycling b.cycling HR.standing EE.standing
# 1  A03        102        100         3         6          99          99
# 5  B01        111         76         5         5         100          88
#   a.standing b.standing HR.sitting EE.sitting a.sitting b.sitting HR.walking
# 1          4          6         98         67         5         5         97
# 5          4          4         78         34         4         3         99
#   EE.walking a.walking b.walking
# 1         78         3         6
# 5         99         2         2

You can also look at a "dplyr" + "tidyr" approach, which might be something like this:

library(dplyr)
library(tidyr)
mydf %>%
  gather(var, val, HR:b) %>%
  unite(v1, posture, var) %>%
  spread(v1, val)

Upvotes: 5

ZRoss
ZRoss

Reputation: 1479

Using tidyr?

library(tidyr)

x<-data.frame(posture=c("cycling", "standing", "sitting", "walking"),
           code=c("A03", "A03", "B01", "B01"),
           HR=c(1,3,3,4),
           EE=c(1,3,3,5))

x2<-gather(x, key=type, value=vals, -c(code, posture))
x2$vars<-paste(x2$posture, x2$type, sep="_")

x2<-select(x2, -c(posture, type))
spread(x2, key=vars, value=vals)

Upvotes: 0

Related Questions