R help - Jan 2013 - Pivot

Hi,

I have a data set as follow:

X         Z
x1        102
x2        102
x2        102
x2        77
x3        23
 
I need to pivot this data as follows and assign the values based on frequency of
column Z:

X       Z.102   Z.77 Z.23
x1          1        0        0
x2          21  0
x3         00  1

Thanks.

Best,Farnoosh Sheikhi
	[[alternative HTML version deleted]]

Hello,

Try the following.

dat <- read.table(text = "
X         Z
x1        102
x2        102
x2        102
x2        77
x3        23
", header = TRUE)

xt <- xtabs( ~ X + Z, data = dat)


# This creates an object of classes "xtabs", "table".
# If you want a matrix you can do it with

cn <- paste(names(dimnames(xt))[2], dimnames(xt)[[2]], sep = ".")
xt <- cbind(xt)
colnames(xt) <- cn
xt


Hope this helps,

Rui Barradas

Em 28-01-2013 23:48, farnoosh sheikhi escreveu:
> Hi,
>
> I have a data set as follow:
>
> X         Z
> x1        102
> x2        102
> x2        102
> x2        77
> x3        23
>
> I need to pivot this data as follows and assign the values based on
frequency of column Z:
>
> X       Z.102   Z.77 Z.23
> x1          1        0        0
> x2          21  0
> x3         00  1
>
> Thanks.
>
> Best,Farnoosh Sheikhi
> 	[[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.
>

HI,

You could try:
dat1<-read.table(text="
X???????? Z
x1??????? 102
x2??????? 102
x2??????? 102
x2??????? 77
x3??????? 23
",sep="",header=T,stringsAsFactors=F)
?res1<-tapply(dat1[,1],list(dat1[,1],dat1[,2]),length)
res1[apply(res1,2,function(x) is.na(x))]<-0
?colnames(res1)<-paste("Z.",colnames(res1),sep="")
?res1
?#? Z.23 Z.77 Z.102
#x1??? 0??? 0???? 1
#x2??? 0??? 1???? 2
#x3??? 1??? 0???? 0


#or
library(reshape2)
res2<- dcast(dat1,X~Z,length,value.var="Z")
colnames(res2)<-paste("Z.",colnames(res2),sep="")



----- Original Message -----
From: farnoosh sheikhi <farnoosh_81 at yahoo.com>
To: "r-help at R-project.org" <r-help at r-project.org>
Cc: 
Sent: Monday, January 28, 2013 6:48 PM
Subject: [R] Pivot

Hi,

I have a data set as follow:

X ? ? ? ? Z
x1 ? ? ? ?102
x2 ? ? ? ?102
x2 ? ? ? ?102
x2 ? ? ? ?77
x3 ? ? ? ?23
?
I need to pivot this data as follows and assign the values based on frequency of
column Z:

X ? ? ? Z.102 ??Z.77?Z.23
x1 ? ? ? ? ?1 ? ? ? ?0 ? ? ? ?0
x2 ? ? ? ? ?21? 0
x3 ? ? ? ? 00? 1

Thanks.

Best,Farnoosh Sheikhi
??? [[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.