以下是两种方法：

**1）**注意，不是rollapply给出0，而是sum(x, na.rm = TRUE)给出0。函数sum(x, na.rm = TRUE)并不是这里真正需要的。

相反，提供一个以所需方式工作的sum版本，即当输入全部是NA值时，它返回NA，否则返回sum(x, na.rm = TRUE)。

sum_na <- function(x) if (all(is.na(x))) NA else sum(x, na.rm = TRUE)
rollapplyr(z, 3, sum_na)

**2）**或者，使用您的代码，然后通过将所有NA的位置替换为NA来修复它：

zz <- rollapplyr(z, 3, sum, na.rm = TRUE)
zz[rollapply(is.na(z), 3, all)] <- NA

给出：

> zz
 3  4  5  6  7  8  9 
NA NA  2  5  9 12  9

你可以做以下的事情（尽管不是很好）

require(zoo)
z <- zoo(c(NA, NA, NA, NA,2, 3, 4, 5, NA))
tmp <- rollapply(z, 3, sum, na.rm = TRUE, align = "right")

tmp[is.na(z)[-2:-1] & tmp == 0] <- NA
tmp

因此，只要z为na，就可以指定NA，且rollapply生成NA
它给你：

> tmp
 3  4  5  6  7  8  9 
NA NA  2  5  9 12  9