如何调整 rhandsontable 中的下拉级别

How to adjust the dropdown levels in an rhandsontable

我有下面的简单数据框:

DF2 = data.frame(agency_postcode = factor(rep(c(12345,45678,24124,32525,32325),2)),
                 car_group=factor(rep(c("Microcar","City car","Supermini","Compact","SUV"),2)),
                 transmission=factor(rep(c("automatic","manual"),5)))

并基于此我创建了一个 rhandsontable。问题是,当我对数据框进行子集化时,我仍然会在下拉列表中获得其他列的所有级别,而我只想看到与我用于子集化的值相关的那些。在下面的示例中,我应该在显示下拉菜单而不是所有级别时采用 '12345'

library(rhandsontable)

rhandsontable(DF2[ which(DF2$car_group=='Microcar'), ], rowHeaders = NULL, width = 550, height = 300)

我发现下拉列表显示了所有存在的因素,因此我根据我的子集进行了重构,例如:

newdata <- DF2[ which(DF2$car_group=='Microcar'), ]




for(i in 1:ncol(newdata)){
     newdata[,i] <- factor(newdata[,i])
   }