我遇到了一个问题 - 如何对连续的重复奇数行求和,并删除除第一行之外的所有行。我已经搞清楚如何对连续的重复行求和并删除除第一行之外的所有行(链接:https://stackoverflow.com/a/32588960/11323232)。但是在这个项目中,我想要对连续的重复奇数行进行求和,而不是所有连续的重复行。
ia<-c(1,1,2,NA,2,1,1,1,1,2,1,2)
time<-c(4.5,2.4,3.6,1.5,1.2,4.9,6.4,4.4, 4.7, 7.3,2.3, 4.3)
a<-as.data.frame(cbind(ia, time))
a
ia time
1 1 4.5
2 1 2.4
3 2 3.6
5 2 1.2
6 1 4.9
7 1 6.4
8 1 4.4
9 1 4.7
10 2 7.3
11 1 2.3
12 2 4.3
to
a
ia time
1 1 6.9
3 2 3.6
5 2 1.2
6 1 20.4
10 2 7.3
11 1 2.3
12 2 4.3
如何编辑以下代码以达到我的目标,即将连续重复的奇数行相加,并删除除第一行以外的所有行?
result <- a %>%
filter(na.locf(ia) == na.locf(ia, fromLast = TRUE)) %>%
mutate(ia = na.locf(ia)) %>%
mutate(change = ia != lag(ia, default = FALSE)) %>%
group_by(group = cumsum(change), ia) %>%
# this part
summarise(time = sum(time))