for循环在R中很常见也很重要,虽然很简单,但是一定要理解其中的思想。以R语言初级作业第9题为例。
加数据加载到R中,提取数据
a<-data.table::fread("sample.csv")
title=a$Title
c=title
for(i in 1:length(title)){
c[i]=strsplit(title[i],'_')[[1]][3]
}
> table(c)
c
0048 0049
384 384
for循环的第二种写法,因为strsplit最终的文件格式是list,所以应用unlist函数
for(i in 1:length(title)){
c[i]=unlist(strsplit(title[i],'_'))[3]
}
c
0048 0049
384 384
最后写下lappy函数
c=unlist( lappy(title, function(x){
strsplit(x,'_')[[1]][3]
}))
网友评论