※ 引述《puppy77 ( )》之铭言： : [问题类型]: : 程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来) : [软体熟悉度]: : 入门(写过其他程式，只是对语法不熟悉) : [问题叙述]: : 我有n笔资料，每笔资料都有m个变数，存在data.frame里面(维度n*m) : 需要依照m个变数的值去做分类，譬如当一笔资料 : V1<0 and V2>V3 and V4 %in% c("W","Z") : 就会分类为第1类 : 类别有很多，大约30类左右 : 希望最後得到一个长度n的向量，向量里面的数字就是分类的编号 : 原本是想用if else if去做，但似乎不能用在向量上 : 只会对第一笔资料做判断(这部分我不是非常确定，还请大家纠正) : 所以外面需要套上for回圈去一笔一笔判断 : 但因为资料非常多，还是希望能够以向量的方式下去做 : 我目前的做法是 : result = rep(0,n) #记录最後分类结果的向量 : fg = rep(T,n) #记录每一笔资料是否被分类过(已分类F，未分类T) : r1 = 是否符合第1类条件的向量(长度n，内容全是T or F) : result[r1 & fg] = 1 : fg[r1 & fg] = F ^^^^^^^^^^^^^^^^^^^ 有这个动作是因为被分类为类别1者, 有可能会满足其他分类的条件, 但类别数字较小者较强, 即 若某列资料同时满足两个以上的分类条件, 则此列资料被分类为最小编号类! 是这样子解释吗? 如果这就是你要作的事, 可参考以下做法: n <- 100 m <- 10 X <- data.frame(matrix(sample(-10:10,n*m,r=T),n)) names(X) <- paste("V",1:ncol(X),sep="") X[1:5,] result <- rep(0,n) result[ X$V10>5 & X$V5>X$V7 & X$V8 %in% c(3: 6)] <- 30 result[ X$V4>3 & X$V9>X$V2 & X$V2 %in% c(1: 4)] <- 29 # result["第28类条件"] <- 28 # result["第27类条件"] <- 27 ## ## 条件区为必要的部分, 不知道其他高手是否有更精简的写法... @@" ## result[ X$V1<0 & X$V2>X$V3 & X$V4 %in% c(5,10)] <- 1 result ## 越强的分类越晚判断,这样可以省去你做 "fg[r1 & fg] = F" 动作的必要性! ## 不知道这是不是你要作的事, 好像只有节省一点力气而已, 参考看看吧! : r2 = 是否符合第2类条件的向量 : result[r2 & fg] = 2 : fg[r2 & fg] = F : 依此类推到最後 : 虽然这个已达到我的要求，不过还是稍嫌麻烦，不知道有无更俐落的写法? --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 203.73.70.8