r zoo包rollappy函数
下面是我的测试数据和代码，通过计算正数值来总结tbl表。然后使用r zoo包rollappy函数,r,zoo,tidyverse,R,Zoo,Tidyverse,下面是我的测试数据和代码，通过计算正数值来总结tbl表。然后使用rollappy和FUN sum添加5个连续行计数。我在第1,2-5,6,7,8-10,11行得到NA 第5、6和10、11行的NA是由于缺少预期的下一行，但我不明白为什么我在第1、2和7、8行得到NA。有人能看一下代码并指出我的错误吗 library(tidyverse) library(zoo) tbl<-tribble( ~z, ~x, ~y, "x", "a", 2, "x", "b", 1, "x"
rollappylibrary(tidyverse)
library(zoo)
tbl<-tribble(
~z, ~x, ~y,
"x", "a", 2,
"x", "b", 1,
"x", "b", 3,
"y", "c", 3,
"x", "c", 1,
"x", "d", -1,
"x", "q", 2,
"x", "q", 2,
"x", "a", 2,
"x", "s", -1,
"y", "q", -1,
"y", "b", 3,
"x", "c", 3,
"y", "c", -1,
"y", "q", 1,
"y", "w", 2,
"y", "w", -2,
"y", "t", 2,
"y", "t", 1
)
tbl %>%
group_by(z, x) %>%
summarise(xy = sum(y>0, na.rm = T))%>%
mutate(zzz = rollapply(xy, width=5, sum, fill=NA))
库（tidyverse）
图书馆（动物园）
待定%
组由（z，x）%>%
总结（xy=总和（y>0，na.rm=T））%>%
变异（zzz=rollapply（xy，宽度=5，总和，填充=NA））
# A tibble: 11 x 4
# Groups: z [2]
z x xy zzz
<chr> <chr> <int> <dbl>
1 x a 2 NA
2 x b 2 NA
3 x c 2 8
4 x d 0 6
5 x q 2 NA
6 x s 0 NA
7 y b 1 NA
8 y c 1 NA
9 y q 1 6
10 y t 2 NA
11 y w 1 NA
#一个tible:11 x 4
#分组：z[2]
z x xy zzz
1 x 2 NA
2xb2na
3x28
4xD06
5xq2na
6xS0NA
7 y b 1 NA
8 y c 1 NA
9 y q 16
10 y t 2 NA
11 y w 1 NA
居中NAcenterNA