R 使用mutate_if并应用插补函数插补缺失值

我有一些缺少值的时间序列数据。我想应用一个函数来插补缺失的值，但我得到了一个错误。我想将该函数应用于它找到NA值的所有列

    library(quantmod)
library(imputeTS)
getSymbols("GOOG")

GOOG[sample(nrow(GOOG), 100), ] <- NA   # Create some missing values

GOOG %>% 
  mutate_if(~any(is.na(.x)), ~na_kalman(., model = "StructTS"))


library(bnstruct)
GOOG %>% 
  mutate_if(~any(is.na(.x), ~knn.impute(k = 5)))

库（quantmod）
图书馆（imputeTS）
getSymbols（“GOOG”）
GOOG[样品（nrow（GOOG），100），]%
如果（~any（is.na（.x）），~na\u kalman（，model=“structs”））发生变异
图书馆（bnstuct）
GOOG%>%
如果（~any（is.na（.x），~knn.impute（k=5））发生变异

我知道应在结构化时间序列数据上使用

na_kalman

，但是否可以在

tbls

上使用它

使用方法错误（“tbl_变量”）：没有适用于 “tbl_vars”应用于类“c（'xts'，'zoo'）的对象

---

你弄明白了吗？我想，只要先把它放到

data.frame

中，然后运行

mutate\u（如果

函数可以工作的话）

x%data.frame（）%%>%mutate\u if（~any（is.na（.x）），~na\u kalman（，model=“structs”）

你明白了吗？我想，只要先把它放到

data.frame

中，然后运行

mutate\u if

函数就可以了

x%data.frame（）%%>%mutate\u if（~any（is.na（.x）），~na\u kalman（，model=“structs”）