查找一个list中各个数组的元素在一个固定数组中的位置, 并把位置信息记录到一个矩阵里

原创
2015/12/24 02:02
阅读数 894
# 查找一个list中各个数组的元素在一个固定数组中的位置, 并把位置信息记录到一个矩阵里

rec <- list(c("不好","坏的","质量","问题"), c("不好","坏的"))
a<-c("问题","坏的","质量")
m<-matrix(0,2,3)

for ( i in 1:length(rec) ){
    for( j in 1:length(rec[[i]]) ){
    	# print(rec[[i]][j])  # ex
    	index <- which(a == rec[[i]][j])
    	# print(paste(i,' --- ',index))
    	# print(length(index))
    	# 用which匹配元素在数组中的位置, 如果数组中没有的话, 会返回 integer(0), 否则是位置索引
    	# 但是integer(0) 不能直接 和 数字 0 比较, 否则报错: 参数长度为零
    	# 应该用length() 函数处理之后再和 0 比
    	if(length(index) > 0){
    		m[i,index] <- 1
    	}  
	}
}
展开阅读全文
打赏
0
1 收藏
分享
加载中
更多评论
打赏
0 评论
1 收藏
0
分享
返回顶部
顶部