如何在一定观察之上计算观察值？

作者: 楊♡
发布时间: 2025-02-14 11:57:26 (12天前)
转自：

3 条回复

0#
回复此人
v-star*위위 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 效率不高： </p> <pre> <code> install.packages("dplyr") #only once library(dplyr) bb <- aa bb$temp1 <- (bb$Bidding_Time == "")*1 bb$temp2 <- 1 for(i in 2:dim(bb)[1]){ if(bb$temp1[i]==bb$temp1[i-1]) { bb$temp2[i] <- bb$temp2[i-1] } else { bb$temp2[i] <- bb$temp2[i-1]+1 } } bb <- bb %>% group_by(itemid, temp2) %>% mutate(Count=cumsum(temp1)) %>% ungroup %>% mutate(Count=lag(Count)) %>% select(itemid, username, Bidding_Time, Count) bb$Count[is.na(bb$Count)] <- 0 bb %>% View </code> </pre> </DIV>

编辑
1#
回复此人
陆离 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 在这里使用非常接近 <code> rle </code> ，但我无法完成它。也许有人可以为我挑选... </p> <pre> <code> a <- c("", "", "", "A", "A", "", "", "B", "A", "C", "", "") b <- a!="" c <- rep(rle(b)$lengths, rle(b)$lengths) c2 <- c(NA, c[-length(c)]) > cbind(a,c2) a c2 [1,] "" NA [2,] "" "3" [3,] "" "3" [4,] "A" "3" [5,] "A" "2" [6,] "" "2" [7,] "" "2" [8,] "B" "2" [9,] "A" "3" [10,] "C" "3" [11,] "" "3" [12,] "" "2" </code> </pre> </DIV>

编辑

登录后才能参与评论