R包之Tidyr

> install.packages("tidyr")

安裝前換成國內(nèi)鏡像（Honk Kong)，果然提速不少！

準(zhǔn)備工作2

> a<-data.frame(GeneId = rep("gene5",times=3),SampleName =paste("Sample",1:3,sep=""),Expression=c(14,19,18))

TidyData

一個組織表格數(shù)據(jù)的方式：Variable??一列；case和observation??一行

1.reshape Data

1.1 gather()

> gather(data,key,value,...,na.rm=FALSE,convert=FALSE,factor_key=FALSE) 

1.2 spread()

> spread(Data,key,value,fill=NA,convert=FALSE,drop=TRUE,sep=null)

今天就先策到這里，明天再戰(zhàn)！??！