1

我是 R 编程的初学者。我编写了一个基本的 R 脚本，允许用户选择一个具有 2 列（X 和 Y）的 .csv 文件，将它们绘制在图表上以显示线性回归并打印 XY 关系的相关 rsquared 值。

有人可以解释将此代码添加到 gWidgets 的基础知识，以便我可以拥有一个带有两个按钮的 GUI 吗？- button1 将是一个 file.choose() 以选择 .csv 文件（我在其他地方看到过此代码）， button2 将运行线性回归并将绘图输出到显示窗口。

我已经阅读了所有 gWidgets 教程和代码片段，但我仍然不清楚如何执行上面描述的简单功能。我想我认为可以将现有的 R 代码剪切并粘贴到 gWidgets 按钮中，但我现在发现情况并非如此。

任何帮助将不胜感激。
亲切的问候

#CALCULATES LINEAR REGRESSION SCATTER PLOT FOR TWO COLUMNS - X and Y
# ALSO PRINTS r2 VALUE ON PLOT

#READ IN THE .CSV FILE - FILE SHOULD CONTAIN TWO COLUMNS WITH NO HEADER - X and Y
#CREATE DATAFRAME
test1 <- read.csv("C:/Data/test.csv", header=FALSE)

#ASSIGN THE DATA IN EACH COLUMN TO A VARIABLE NAME
X1 <- test1$V1
Y1 <- test1$V2

#PLOT DATA WITH APPROPRIATE LABELS
plot(X1, Y1, xlab="X", ylab="Y")

#CALCULATE THE BEST FIT LINE AND PRINT R2 VALUE ON PLOT
abline(fit <- lm(X1 ~ Y1, data=test1), col='red')
legend("topright", bty="n", legend=paste("r2 is", format(summary(fit)$adj.r.squared, digits=4)))
4

1 回答 1

1

我猜你正在寻找一些简单的东西，比如：

library(gWidgets)
options(guiToolkit="tcltk") ## or RGtk2 ...

w <- gwindow("Your GUI", visible=FALSE)
g <- ggroup(cont=w, horizontal=FALSE)

upload <- gfilebrowse("Select a csv file", cont=g)
btn <- gbutton("Do it", cont=g)
enabled(btn) <- FALSE

filename <- NULL
do_it <- function(...) {
  message("Read csv file in filename")
  message("make graphic")
  message("make summary")
}

addHandlerChanged(upload, handler=function(h, ...) {
  val <- svalue(upload)
  if(!is.na(val)) {
    filename <<- val
    enabled(btn) <- TRUE
  }
})
addHandlerChanged(btn, handler=do_it)

visible(w) <- TRUE
于 2013-04-10T19:50:52.903 回答