Hi Jill,
Completely not elegant, but may be usefull.
Of course other colleagues will solve this with 1 line command :-)
cheers
milton
df<-read.table(stdin(), head=T, sep=",")
V1,V2,V3,V4
DPA1*,DPA1*,DPB1*,DPB1*
0103,0104,0401,0601
0103,0103,0301,0402
df.new<-as.matrix(df)
for (i in 2:dim(df)[1])
{
for (j in 1:dim(df)[2])
{
df.new[i,j]<-paste(c(as.character(df[1,j])), c(as.character(df[i,j])),
sep="")
}
}
df.new<-data.frame(df.new)
df
df.new
On Tue, Aug 11, 2009 at 9:48 PM, Jill Hollenbach <jhollenb...@chori.org>wrote:
>
> Hi,
> I am trying to edit a data frame such that the string in the first line is
> appended onto the beginning of each element in the subsequent rows. The
> data
> looks like this:
>
> > df
> V1 V2 V3 V4
> 1 DPA1* DPA1* DPB1* DPB1*
> 2 0103 0104 0401 0601
> 3 0103 0103 0301 0402
> .
> .
> and what I want is this:
>
> >dfnew
> V1 V2 V3 V4
> 1 DPA1* DPA1* DPB1* DPB1*
> 2 DPA1*0103 DPA1*0104 DPB1*0401 DPB1*0601
> 3 DPA1*0103 DPA1*0103 DPB1*0301 DPB1*0402
>
> any help is much appreciated, I am new to this and struggling.
> Jill
>
> ___
> Jill Hollenbach, PhD, MPH
> Assistant Staff Scientist
> Center for Genetics
> Children's Hospital Oakland Research Institute
> jhollenb...@chori.org
>
> --
> View this message in context:
> http://www.nabble.com/paste-first-row-string-onto-every-string-in-column-tp24928720p24928720.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> 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<http://www.r-project.org/posting-guide.html>
> and provide commented, minimal, self-contained, reproducible code.
>
[[alternative HTML version deleted]]
______________________________________________
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.
