Hi Yao,
Messy, but this is the closest I can get:
yhlist<-list(K=matrix(0,ncol=2,nrow=0),
GSEGTCSCSSK=matrix(c(6,8),nrow=2,ncol=2),
GFSTTCPAHVDDLTPEQVLDGDVNELMDVVLHHVPEAK=matrix(6,ncol=2,nrow=1),
LVECIGQELIFLLPNK=matrix(6,ncol=2,nrow=1),
NFK=matrix(0,ncol=2,nrow=0),
HR=matrix(0,ncol=2,nrow=0),
AYASLFR=matrix(0,ncol=2,nrow=0))
colnames(yhlist$K)<-c("start","end")
colnames(yhlist$GSEGTCSCSSK)<-c("start","end")
colnames(yhlist$GFSTTCPAHVDDLTPEQVLDGDVNELMDVVLHHVPEAK)<-c("start","end")
colnames(yhlist$LVECIGQELIFLLPNK)<-c("start","end")
colnames(yhlist$NFK)<-c("start","end")
colnames(yhlist$HR)<-c("start","end")
colnames(yhlist$AYASLFR)<-c("start","end")
crunch<-function(x) {
start.1<-ifelse(dim(x)[1],x[1,1],NA)
start.2<-ifelse(dim(x)[1]>1,x[2,1],NA)
return(list(start.1,start.2))
}
crunchlist<-sapply(yhlist,crunch,simplify=TRUE)
ID<-colnames(crunchlist)
colnames(crunchlist)<-NULL
data.frame(ID,
start.1=unlist(crunchlist[1,]),
start.2=unlist(crunchlist[2,]))
Jim
On Sun, Feb 1, 2015 at 11:53 PM, Yao He <he...@nibs.ac.cn> wrote:
> Dear all:
>
> I have a list like that,which is a standard str_locate_all() function
> (stringr package) output:
> $K
> start end
> $GSEGTCSCSSK
> start end
> [1,] 6 6
> [2,] 8 8
> $GFSTTCPAHVDDLTPEQVLDGDVNELMDVVLHHVPEAK
> start end
> [1,] 6 6
> $LVECIGQELIFLLPNK
> start end
> [1,] 4 4
> $NFK
> start end
> $HR
> start end
> $AYASLFR
> start end
>
> I want to transform this list like that:
>
> ID start.1 start.2
> K NA NA
> GSEGTCSCSSK 6 8
> GFSTTCPAHVDDLTPEQVLDGDVNELMDVVLHHVPEAK 6 NA
> LVECIGQELIFLLPNK 4 NA
> NFK NA NA
> HR NA NA
> AYASLFR NA NA
>
> I have already tried to use t() , lapply() but I think it is hard to handle
> the NA value and different rows in every matrix
>
> Thanks in advance
>
> ______________________________________________
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> 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.
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
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.
