r语言 - RWeka 过滤器替换缺失值不起作用

Question

我目前正在尝试使用 RWeka 从 R 对 Weka 进行一些探索。 我正在尝试用 ReplaceMissingValues 无监督过滤器替换一些缺失值(我故意添加的(，但是当我应用它时，只有数据帧的一部分返回，在本例中，只有 27 条记录。

这是我正在使用的代码

data<-select(iris,Species,everything())
#ADDING THE MISSING VALUES
miss<-make_Weka_filter("weka.filters.unsupervised.attribute.ReplaceWithMissingValue")
data.miss<-miss(data,control=Weka_control(P=.3)) %>% select(Species,everything())
#REPLACING BY MEAN
found<-make_Weka_filter("weka.filters.unsupervised.attribute.ReplaceMissingValues")
data.found<-found(data.miss)
nrow(data)
nrow(data.miss)
nrow(data.found)

这里有什么想法吗？

Answer 1

我向软件包维护者核实了这一点。

这是一个错误，但有一个解决方法，过滤器忽略了缺失值(对于这个特定的过滤器来说很奇怪(，为了获得完整的数据帧，您可以执行以下操作

found<-make_Weka_filter("weka.filters.unsupervised.attribute.ReplaceMissingValues")
data.found<-found(data.miss,na.action=na.pass)