100天生信-Day6
長數(shù)據(jù)和寬數(shù)據(jù)是滿足不同分析的兩種數(shù)據(jù)格式，可以很方便用R的reshape2包轉(zhuǎn)換，代碼如下：
library(reshape2)
## long -> wide
setwd("PATH")
long <- read.csv("long.csv" , header = T)
colnames(long)
wide <- dcast(long, Gene_name ~ Cis_element)
write.csv(wide,'wide.csv',row.names = FALSE)
## wide -> long
setwd("PATH")
wide <- read.csv("wide.csv" , header = T)
colnames(wide)
long = melt(wide, id=c("Primer"),
variable.name= 'FR', value.name = 'Seq')
write.csv(long,'long.csv',row.names = FALSE)
