[R] restructure my data

David Carlson dcarlson at tamu.edu
Mon Sep 2 23:51:32 CEST 2013


Sorry, there was a typo in my original message:

> df <- structure(list(var = c(1, 0, 0, 1, 0, 2, 2, 0, 2, 0), 
+   cauc = c(6462.32876712329, 1585.27397260274,
2481.67808219178, 
+   344.178082191781, 8871.57534246575, 816.780821917808, 
+   6031.33561643836, 1013.52739726027, 4913.52739726027,
+   1517.25)), .Names = c("var", "cauc"), row.names = c(NA,
10L),
+   class = "data.frame")
> datlst <- unstack(df, cauc~var)
> # or datlst <-  split(df$cauc, df$var)
> datlst
$`0`
[1] 1585.274 2481.678 8871.575 1013.527 1517.250

$`1`
[1] 6462.3288  344.1781

$`2`
[1]  816.7808 6031.3356 4913.5274

> MaxL <- max(sapply(datlst, length))
> datmat <- sapply(datlst, function(x) c(x, rep(NA,
MaxL-length(x))))
> datmat
            0         1         2
[1,] 1585.274 6462.3288  816.7808
[2,] 2481.678  344.1781 6031.3356
[3,] 8871.575        NA 4913.5274
[4,] 1013.527        NA        NA
[5,] 1517.250        NA        NA

David 

-----Original Message-----
From: r-help-bounces at r-project.org
[mailto:r-help-bounces at r-project.org] On Behalf Of David Carlson
Sent: Monday, September 2, 2013 4:38 PM
To: 'Wim Kreinen'; 'r-help'
Subject: Re: [R] restructure my data

Thanks for the reproducible data set. The unstack() function
produces a list of three vectors, one for each value of var, but
it cannot combine them into a matrix since the number of entries
in each is not the same. To get that you need to pad each vector
with NAs:

> df <- structure(list(var = c(1, 0, 0, 1, 0, 2, 2, 0, 2, 0),
cauc =
+ c(6462.32876712329,
+ 1585.27397260274, 2481.67808219178, 344.178082191781,
8871.57534246575,
+ 816.780821917808, 6031.33561643836, 1013.52739726027,
4913.52739726027,
+ 1517.25)), .Names = c("var", "cauc"), row.names = c(NA, 10L),
class =
+ "data.frame")
> datlst <- unstack(dat, cauc~var)
> datlst
$`0`
[1] 1585.274 2481.678 8871.575 1013.527 1517.250

$`1`
[1] 6462.3288  344.1781

$`2`
[1]  816.7808 6031.3356 4913.5274

> MaxL <- max(sapply(datlst, length))
> datmat <- sapply(datlst, function(x) c(x, rep(NA,
MaxL-length(x))))
> datmat
            0         1         2
[1,] 1585.274 6462.3288  816.7808
[2,] 2481.678  344.1781 6031.3356
[3,] 8871.575        NA 4913.5274
[4,] 1013.527        NA        NA
[5,] 1517.250        NA        NA

-------------------------------------
David L Carlson
Associate Professor of Anthropology
Texas A&M University
College Station, TX 77840-4352




-----Original Message-----
From: r-help-bounces at r-project.org
[mailto:r-help-bounces at r-project.org] On Behalf Of Wim Kreinen
Sent: Monday, September 2, 2013 12:07 PM
To: r-help
Subject: [R] restructure my data

My data is in this form: var has 3 conditions (0,1,2)

> df
   var      cauc
1    1 6462.3288
2    0 1585.2740
3    0 2481.6781
4    1  344.1781
5    0 8871.5753
6    2  816.7808
7    2 6031.3356
8    0 1013.5274
9    2 4913.5274
10   0 1517.2500

For the three conditions (0,1,2) I want the cauc-values to be
listed like
this

0                         1               2
1585,2740       6462,3288     816.7808
 2481.6781      344.1781       6031.3356
...

Thanks Wim

> dput (df)
structure(list(var = c(1, 0, 0, 1, 0, 2, 2, 0, 2, 0), cauc =
c(6462.32876712329,
1585.27397260274, 2481.67808219178, 344.178082191781,
8871.57534246575,
816.780821917808, 6031.33561643836, 1013.52739726027,
4913.52739726027,
1517.25)), .Names = c("var", "cauc"), row.names = c(NA, 10L),
class =
"data.frame")
>

	[[alternative HTML version deleted]]

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible
code.

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible
code.



More information about the R-help mailing list