If that's the case, you could do the following: d <- with(skdat, table(ID, lettertag)) d <- data.frame(cbind(ID = rownames(d), d)) rownames(d) <- NULL d
HTH, Jorge.- On Fri, Aug 15, 2014 at 8:22 PM, Sohail Khan <sohai...@gmail.com> wrote: > Thanks Jim and Jorge, > Clever solutions, the final output is a list. > How do I covert it back a dataframe? > -Sohail > > > On Fri, Aug 15, 2014 at 5:37 AM, Jorge I Velez <jorgeivanve...@gmail.com> > wrote: > >> Dear Sohail, >> >> Using Jim's data set skdat, two more options would be >> >> # first option >> d <- with(skdat, table(ID, lettertag)) >> names <- colnames(d) >> d <- c(list(rownames(d)), lapply(1:ncol(d), function(i) >> as.numeric(d[,i]))) >> names(d) <- c('ID', names) >> d >> >> # second option >> d <- with(skdat, table(ID, lettertag)) >> res <- c(list(rownames(d)), sapply(apply(d, 2, list), "[", 1)) >> names(res)[1] <- "ID" >> res >> >> HTH, >> Jorge.- >> >> >> >> On Fri, Aug 15, 2014 at 7:19 PM, Jim Lemon <j...@bitwrit.com.au> wrote: >> >> > On Thu, 14 Aug 2014 06:08:51 PM Sohail Khan wrote: >> > > Hi >> > > I have data set as follows: >> > > A 92315 A 35018 A 56710 B 52700 B 92315 B 15135 C 35018 C >> > 52700 >> > > I would like to transform this data set into: >> > > ID 92315 35018 56710 52700 15135 A 1 1 1 0 0 B 1 0 0 1 1 C 0 1 0 >> > 1 0 >> > > I looked into reshape package to no avail. >> > > I would appreciate any suggestions. >> > > >> > > -Sohail >> > > >> > Hi Sohail, >> > You are doing a bit more than reshaping. This may get you there: >> > >> > skdat<-read.table(text="A 92315 >> > A 35018 >> > A 56710 >> > B 52700 >> > B 92315 >> > B 15135 >> > C 35018 >> > C 52700",stringsAsFactors=FALSE) >> > names(skdat)<-c("lettertag","ID") >> > ID<-unique(skdat$ID) >> > lettertags<-unique(skdat$lettertag) >> > newskdat<-list(ID) >> > for(i in 1:length(lettertags)) >> > newskdat[[i+1]]<- >> > as.numeric(ID %in% skdat$ID[skdat$lettertag==lettertags[i]]) >> > names(newskdat)<-c("ID",lettertags) >> > >> > I'm assuming that you don't really want your answer as a single string. >> > >> > Jim >> > >> > ______________________________________________ >> > 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. >> > >> >> [[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. >> > > [[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.