代码如下，我想要把B列表中每一行的电影类型抽取出来，可是做不了library(stringr)setwd("D:\\Rwork\\RStudio\\douban")comments<-read.csv("陆支羽筛缺.csv",sep=",")btype<-as.data.frame(comments[,2])A<-data.frame(read.table("电影类型.txt"))B<-apply(as.data.frame(btype),1,strsplit,"/")for(i in 1:length(B)){B[[i]]<-c(unlist(B[[i]]))#B[[i]]<- paste(B[[i]],collapse =",")}C<-lapply(B,function(s1,s2) s1[s1%in%s2],s2=A$V1)问题的重点在于，B的格式一直不对，现在的B如图二，我想要的B如图三，原始数据如图一。拜托各位了
即随机抽样。sample(x, size, replace = FALSE, prob = NULL)replace=F,表示不重复抽样replace=T 表示可以重复抽样x=1:5sample(x,6,replace=T) #重复抽样[1] 1 2 1 4 4 3sample(x,2,replace=F) #不重复[1] 4 5
