求教:游程定位问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

数据框: aa=data.frame(数值=c(50,110,120,110,105,101,103,30,40,101,102,110),字符=c(rep("a",2),rep("b",2),rep("a",3),"b",rep("a",4) ))

求: 返回连续3个及以上的"a"且数值大于100的最后一个符合条件的行号.即本例的第7行和12行.

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Frame Data 最后一个 Fram RAM

1. for (i in 3:length(aa$数值)) {
   
2.   if (all(aa$数值[(i-2) : i] > 100) &&
   
3.       all(aa$字符[(i-2) : i] == "a") &&
   
4.       any(c(i == length(aa$数值),
   
5.             aa$数值[i+1] <= 100,
   
6.             aa$字符[i+1] != "a")))
   
7.     print(i)
   
8. }

复制代码

这样应该可以，可能会有一些bug，你可以设其他的条件去测试。

1. aa <- data.frame(val=c(50,110,120,110,105,101,103,30,40,101,102,110),
   
2.               char=c(rep("a",2),rep("b",2),rep("a",3),"b",rep("a",4)))
   
3. 
   
4. char_idx <- function(df){
   
5.   
   
6.   char_info <- rle(df$char)
   
7.   char_encode <- which(char_info$values == 'a')
   
8.   char_length <- which(char_info$lengths >= 3)
   
9.   val_info <- which(df$val > 100)
   
10.   
    
11.   cum_idx <- cumsum(char_info$lengths)
    
12.   idx <- intersect(intersect(char_encode, char_length), val_info)
    
13.   cum_idx[idx]
    
14. }

复制代码