r - 用于在 R 中对数据框进行子集化的 GUI

Question

我正在为工作在 R 中构建一个自定义 GUI，我需要有一个部件可以根据变量值选择数据框的子集(即选择所有 50 岁以上的女性等)。我正在使用 gwidgets 构建 GUI，但我对如何实现此过滤器一头雾水。特别是如何创建一个允许用户选择一个或多个过滤器然后返回过滤后的数据框的小部件。

这是我正在处理的数据中的一个小样本:

structure(list(kunde = c(3, 3, 3, 3, 3, 3, 3, 1, 3, 3), 
               bank = c(7,98, 3, 3, 98, 2, 2, 1, 7, 2)),
          .Names = c("kunde", "bank"), row.names = c(NA, 10L), class = "data.frame")

非常感谢任何帮助!!

Answer 1

ProgGUIinR 中有一些类似的例子包裹。这是其中之一:

library(gWidgets)
options(guiToolkit="RGtk2")
options(repos="http://streaming.stat.iastate.edu/CRAN")
d <- available.packages()       # pick a cran site

w <- gwindow("test of filter")
g <- ggroup(cont=w, horizontal=FALSE)
ed <- gedit("", cont=g)
tbl <- gtable(d, cont=g, filter.FUN="manual", expand=TRUE)

ourMatch <- function(curVal, vals) {
  grepl(curVal, vals)
}

id <- addHandlerKeystroke(ed, handler=function(h, ...) {
  vals <- tbl[, 1, drop=TRUE]
  curVal <- svalue(h$obj)
  vis <- ourMatch(curVal, vals)
  visible(tbl) <- vis
})

为了您的目的，您可能想要使用 gcheckboxgroup或 gcombobox选择因子水平或水平并按其过滤。关键是 visible<- gtable 的方法对象用于过滤显示的项目。

如果你是游戏，你可以尝试gfilter gWidgets2 中的小部件据了解，它就在我的 github 网站上(使用来自 devtools 的 install_packages("gWidgets2", "jverzani")，也可以是 gWidgets2RGtk2)。这可能正是您想要做的。