我希望创建一个 GUI,它可以接收用户的一些输入(例如性别、年龄和种族等可点击的类别),然后为每个输入分配一个用户 ID(这将显示为 GUI 中的输出)。在幕后,GUI 将使用这些用户输入创建一个数据集(在此示例中,它将包含 4 个变量:用户 ID、性别、年龄和种族)。
有人之前创建过这样的 GUI 吗?有没有 R 包或代码推荐?
谢谢!
我希望创建一个 GUI,它可以接收用户的一些输入(例如性别、年龄和种族等可点击的类别),然后为每个输入分配一个用户 ID(这将显示为 GUI 中的输出)。在幕后,GUI 将使用这些用户输入创建一个数据集(在此示例中,它将包含 4 个变量:用户 ID、性别、年龄和种族)。
有人之前创建过这样的 GUI 吗?有没有 R 包或代码推荐?
谢谢!
有很多种方法可以做到这一点。这里介绍一种使用插件包gWidgets的方法。应该适用于RGtk2或tcltk后端。
library(gWidgets)
items <- data.frame(id=numeric(0), gender=character(0), age=numeric(0), race=character(0), stringsAsFactors=FALSE)
genders <- c("Male", "Female")
race <- c("Black", "Hispanic", "Other")
w <- gwindow("Capn's GUI", visible=FALSE)
g <- ggroup(cont=w, horizontal=FALSE)
lyt <- glayout(cont=g)
lyt[1,1] <- "Gender:"
lyt[1,2] <- gradio(genders, cont=lyt)
lyt[2,1] <- "Age:"
lyt[2,2] <- gedit("40", coerce.with=as.numeric, cont=lyt)
lyt[3,1] <- "Race:"
lyt[3,2] <- gcombobox(race, selected=0L, cont=lyt)
lyt[4,2] <- gbutton("Add", cont=lyt, handler=function(h,...) {
vals <- lapply(lyt[1:3, 2], svalue)
id <- nrow(items) + 1 # or roll your own
items[id, ] <<- c(id, vals)
tbl[] <- items
})
gseparator(cont=g)
tbl <- gtable(items, cont=g)
visible(w) <- TRUE
有一种新的解决方案基于RStudio构建。它在useR2011上被介绍,这里是海报链接:
http://www.calvin.edu/~rpruim/talks/MosaicLightning/images/mosaicManipulate-poster.pdf
gWidgetsManipulate
的命运如何?它是否已移植到gWidgets2
?我认为在CRAN上拥有一个类似于非RStudio的manipulate包会很不错。 - landroni我尝试的另一个不错的选择是使用JavaFx构建GUI,http://docs.oracle.com/javafx/2/overview/jfxpub-overview.htm,在JavaFx GUI中,只需使用JRI,http://rforge.net/JRI/,这将使您能够在Java中使用R。