Nala - 7 months ago 41

R Question

I'm quite new to R and really really need your help with my double for-loop which takes too much time to complete.

`data`

Each ID is repeated several times (i.e. several Game for each ID), but unevenly distributed across the rows. We may have 2 Games for ID1 (so ID1 appears in 2 rows), 5 Games for ID2, 4 Games for ID3, etc.

I want to create a matrix

`datmat`

`data`

- Nb of rows = nb of unique values of ID (nb_row=46028)

- Nb of columns = nb of unique values of Game (nb_col=30)

and fill in

`datmat`

Here's what I tried

`ID <- unique(data$ID)`

Game <- unique(data$Game)

nb_row <- length(ID)

nb_col <- length(Game)

datmat <- matrix(c(0),nb_row,nb_col,dimnames=list(NULL,Game))

for(i in 1:nb_row){

for(j in 1:nb_col){

datmat[i,j] <- data$Amount[data$ID==ID[i] & data$Game==Game[j]]

}

}

dt <- data.table(ID,datmat)

Any suggestion could be greatly appreciated. Thank you all!

Answer

You might want to use the reshape function :

```
newdata<-reshape(data,timevar="Game",idvar="ID",direction="wide")
```

Source (Stackoverflow)