Thanks a lot. It worked :)
On Wed, Nov 20, 2013 at 9:44 AM, arun <smartpink...@yahoo.com> wrote: > Hi, > Try: > dat1 <- read.table(text="a b c > x 1 4 7 > y 2 5 8 > z 3 6 9",header=TRUE) > dat2 <- dat1 > #either > library(reshape2) > res1 <- > within(melt(dat1,id.var="ID"),cell<-as.character(interaction(variable,ID,sep="_")))[,c(4,3)] > > #or > indx <- which(dat2>0,arr.ind=TRUE) > res2 <- > data.frame(cell=paste(colnames(dat2)[indx[,2]],rownames(dat2)[indx[,1]],sep="_"),value=dat2[indx],stringsAsFactors=FALSE) > identical(res1,res2) > #[1] TRUE > > A.K. > > > > On Tuesday, November 19, 2013 11:07 PM, Nitisha jha <nitisha...@gmail.com> > wrote: > > Hi > could you please let me know the solution? > Thanks > > > > > On Wed, Nov 20, 2013 at 4:13 AM, <smartpink...@yahoo.com> wrote: > > Hi, > >If this is a data.frame(), then I have some solution for this problem. > Also, you need to post it in R-help if that is the case. > >Thanks. > >A.K. > ><quote author='nuts'> > >Sample input dataset where a,b,c are col names. x y z are row names. > > a b c > >x 1 4 7 > >y 2 5 8 > >z 3 6 9 > > > >I want output to be like this after manipulating the dataset. > >cell value > >a_x 1 > >a_y 2 > >a_z 3 > >b_x 4 > >b_y 5 > >b_z 6 > >c_x 7 > >c_y 8 > >c_z 9 > >where cell and value are the colnames. > >How do I achieve this? I am at a loss here. > > > > > ></quote> > >Quoted from: > >http://r.789695.n4.nabble.com/Datatable-manipulation-tp4680747.html > > > > > >_____________________________________ > >Sent from http://r.789695.n4.nabble.com > > > > > [[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.
