R 移除前导和尾随NA

我需要从向量中删除前导和尾随缺少的值（

NA

）<代码>NA数字之间应保持s。请注意，我的下一步是索引另一个不带

NA

的向量，并仅保留与第一个向量位置相同的值。以下是一个例子：

a <- c(NA, NA, NA, NA, NA, 5,2,3,1,2,1,5,2, NA, NA, 2,3,2,NA,NA,NA)
b <- sample(1:21)

---

a
keep查找第一个和最后一个非NA值，并保留向量的该部分：

a1 <- a[min(which(!is.na(a))):max(which(!is.na(a)))]

> a1
[1]  5  2  3  1  2  1  5  2 NA NA  2  3  2

a1
[1] 5 2 3 1 2 1 5 2 NA 2 3 2
使用zoo软件包：

library(zoo)

na.trim(a)

说明

用于删除前置和尾随NAs的通用功能

，这个解决方案是明确的，但是OP在这之后将如何做他的下一步呢？也许你应该编辑成这样：
p
a1 <- a[min(which(!is.na(a))):max(which(!is.na(a)))]

> a1
[1]  5  2  3  1  2  1  5  2 NA NA  2  3  2

library(zoo)

na.trim(a)