生信星球培训第二十六期

学习小组Day6笔记--李斯亭

2019-10-19  本文已影响0人  李斯亭

R包学习

准备工作

install.packages("tidyr")
library(tidyr)

bioplanet<-data.frame(GeneId = rep("gene5",times=3),SampleName =paste("Sample",1:3,sep=""),Expression=c(14,19,18)) #rep是重复;paste连接字符串,其中sep表示分隔符;c是向量

tidyr

a<-data.frame(country=c("A","B","C"),
"1999"=paste(c(0.7,37,212),"k"),"2000"=paste(c(2,80,213),"K"))

gather(a,X1999,X2000,key = "year",value = "cases")

或者

gather(a,year,cases,-country)

drop_na(X,X2) #去掉X这个数据框中X2那列的空值所在的行
fill(X,X2) #填充上一行数值
replace_na(X,list(X2=2)) #把X2这列空值填上2

complete(X,nesting(X1),fill=list(X2=5))
expand(bioplanet,GeneId,SampleName, Expression) #列出列所有组合值

总结

tidyr--数据框处理
上一篇 下一篇

猜你喜欢

热点阅读