Rプログラミング初心者です。ユーザーが 2 つの列 (X と Y) を持つ .csv ファイルを選択し、これらをグラフにプロットして線形回帰を表示し、関連する XY 関係の rsquared 値を出力できるようにする基本的な R スクリプトをコーディングしました。
誰かがこのコードを gWidgets に追加する基本を説明して、2 つのボタンを持つ GUI を作成できますか? - button1 は .csv ファイルを選択するための file.choose() になり (このコードは他の場所で見ました)、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)))