Hi,
Try:
dat1 <- read.table(text="I V3 X210505 X210505.1 X417802 X417802.1 X420385
X420385.1 X420480 X420480.1
A A3205 B A B A B A B
A
M A3662 A B B B A B B
B
M AR0012 B B B B A B B
B
M AR0232 B B B B B B B
A
M AR0341 A A B A B A A
B
M AR0372 B B A A A B A
B
M A0051 B B B B B B B
B
M AR0549 A B B A B A B
B",sep="",header=TRUE,stringsAsFactors=FALSE)
library(reshape2)
res <-
as.data.frame(acast(transform(melt(dat1[,-1],id.var="V3"),variable=gsub("\\..*","",variable)),variable~V3,value.var="value",function(x)
paste(x,collapse=" ")),stringsAsFactors=FALSE)
res1 <- res[,match(dat1$V3,colnames(res))]
res1
# A3205 A3662 AR0012 AR0232 AR0341 AR0372 A0051 AR0549
#X210505 B A A B B B B B A A B B B B A B
#X417802 B A B B B B B B B A A A B B B A
#X420385 B A A B A B B B B A A B B B B A
#X420480 B A B B B B B A A B A B B B B B
A.K.
For this I thought that will be way easier, but it is impossible for me (again)
(and I just started to like R :))
With this example I want to get
I V3 X210505 X210505.1 X417802 X417802.1 X420385 X420385.1 X420480
X420480.1
A A3205 B A B A B A B
A
M A3662 A B B B A B B
B
M AR0012 B B B B A B B
B
M AR0232 B B B B B B B
A
M AR0341 A A B A B A A
B
M AR0372 B B A A A B A
B
M A0051 B B B B B B B
B
M AR0549 A B B A B A B
B
this:
A3205 A3662 AR0012 AR0232 AR0341 AR0372 A0051 AR0549
X210505 B A A B B B B B A A B B B B A B
X417802 B A B B B B B B B A A A B B B A
X420385 B A A B A B B B B A A B B B B A
X420480 B A B B B B B A A B A B B B B B
again, no idea...
On Friday, January 10, 2014 9:50 AM, arun <smartpink...@yahoo.com> wrote:
Hi,
Use ?reshape()
dat1<- read.table(text="V1 V2 V3 V4 V5
1 210505 ARS B A
1 210505 BFGL A B
1 210505 NGS B B
1 210506 ARS B B
1 210506 BFGL A A
1 210506 NGS B B
1 210507 ARS B B
1 210507 BFGL A B
1 210507 NGS A B",sep="",header=TRUE,stringsAsFactors=FALSE)
res <- reshape(dat1[,-1],timevar="V2",idvar="V3",direction="wide")
colnames(res)[-1] <-gsub(".*\\.","",colnames(res)[-1])
res
# V3 210505 210505 210506 210506 210507 210507
#1 ARS B A B B B B
#2 BFGL A B A A A B
#3 NGS B B B B A B
A.K.
Dear R users I have a question.
I have example file:
V1 V2 V3 V4 V5
1 210505 ARS B A
1 210505 BFGL A B
1 210505 NGS B B
1 210506 ARS B B
1 210506 BFGL A A
1 210506 NGS B B
1 210507 ARS B B
1 210507 BFGL A B
1 210507 NGS A B
from which I want to get file which looks like this:
V2 210505 210505 210506 210506 210507 210507
ARS B A B B B B
BFGL A B A A A B
NGS B B B B A B
I think this can be done with a loop but unfortunatelly I'm not experienced
with loops.
Thank you very much for help!
______________________________________________
R-help@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.
