fc2ブログ

RのGUIを作る

 RPythonのプログラムでパラメータのみを変更して何回も同じプログラムを実行したい際に、GUIがあると便利だなと思うことが多々あります。PythonではPyQtで簡単にGUIを作成できることを以前のブログでお話しました。今回は、PyQtとPypeRを使って、Python経由でRプログラムをGUIから実行させることにしました。

 Pythonプログラムは、PyQtで作成したGUI部分(R_GUI_test.py)と、ファイル読み込み、PypeRを使ったをRの解析部分(pyper_test.py)に分けました。GUIの外観はこんな感じです。R_GUI180415_1.pngデータファイル名を入力するplainTextEdit、解析生データを表示するtableWidget、ファイルを読み込み、解析を実行させるpushButtonと、解析結果を表示するtextBrowserから構成しています。GUI部分のプログラムは以下の通りです。
# -*- coding: utf-8 -*-
# R_GUI_test.py
from PyQt5 import QtCore, QtGui, QtWidgets
import os
import pyper_test as pyp

class Ui_MainWindow(object):
def setupUi(self, MainWindow):
MainWindow.setObjectName("MainWindow")
MainWindow.resize(580, 300)
self.centralwidget = QtWidgets.QWidget(MainWindow)
self.centralwidget.setObjectName("centralwidget")
self.tableWidget = QtWidgets.QTableWidget(self.centralwidget)
self.tableWidget.setGeometry(QtCore.QRect(10, 50, 250, 220))
self.tableWidget.setObjectName("tableWidget")
self.tableWidget.setColumnCount(2) # Column number : 2
self.tableWidget.setColumnWidth(5, 5)
self.tableWidget.setRowCount(50) # Row number : 50
item = QtWidgets.QTableWidgetItem()
self.tableWidget.setHorizontalHeaderItem(0, item)
item = QtWidgets.QTableWidgetItem()
self.tableWidget.setHorizontalHeaderItem(1, item)
self.pushButton = QtWidgets.QPushButton(self.centralwidget)
self.pushButton.setGeometry(QtCore.QRect(360, 10, 115, 30))
self.pushButton.setObjectName("pushButton")
self.textBrowser = QtWidgets.QTextBrowser(self.centralwidget)
self.textBrowser.setGeometry(QtCore.QRect(270, 50, 300, 220))
self.textBrowser.setObjectName("textBrowser")
self.plainTextEdit = QtWidgets.QPlainTextEdit(self.centralwidget)
self.plainTextEdit.setGeometry(QtCore.QRect(80, 5, 230, 30))
self.plainTextEdit.setObjectName("plainTextEdit")
self.label = QtWidgets.QLabel(self.centralwidget)
self.label.setGeometry(QtCore.QRect(20, 10, 60, 15))
self.label.setObjectName("label")
MainWindow.setCentralWidget(self.centralwidget)
self.menubar = QtWidgets.QMenuBar(MainWindow)
self.menubar.setGeometry(QtCore.QRect(0, 0, 320, 22))
self.menubar.setObjectName("menubar")
MainWindow.setMenuBar(self.menubar)
self.statusbar = QtWidgets.QStatusBar(MainWindow)
self.statusbar.setObjectName("statusbar")
MainWindow.setStatusBar(self.statusbar)

self.retranslateUi(MainWindow)
self.pushButton.clicked.connect(self.func1) # func1 call
QtCore.QMetaObject.connectSlotsByName(MainWindow)

def retranslateUi(self, MainWindow):
_translate = QtCore.QCoreApplication.translate
MainWindow.setWindowTitle(_translate("MainWindow", "MainWindow"))
item = self.tableWidget.horizontalHeaderItem(0)
item.setText(_translate("MainWindow", "X"))
item = self.tableWidget.horizontalHeaderItem(1)
item.setText(_translate("MainWindow", "Y"))
self.pushButton.setText(_translate("MainWindow", "Analysis"))
self.label.setText(_translate("MainWindow", "Data File"))

def func1(self):
dtfilename = str(self.plainTextEdit.toPlainText())

if os.path.isfile(dtfilename): # check file existence
pt = pyp.pyper_test(dtfilename)
pt.LoadDataFile(dtfilename)

self.textBrowser.append("Data Rows:"+str(pt.data_rows))
self.textBrowser.append("Data Columns:"+str(pt.data_columns))

for i in range(pt.data_rows): # data setting
for j in range(pt.data_columns):
item = QtWidgets.QTableWidgetItem(str(pt.data.iat[i, j]))
self.tableWidget.setItem(i, j, item)

pt.R_proc(pt.data)
self.textBrowser.append(str(pt.data_summary))
self.textBrowser.append(str(pt.data_result))

if __name__ == "__main__":
import sys

app = QtWidgets.QApplication(sys.argv)
MainWindow = QtWidgets.QMainWindow()
ui = Ui_MainWindow()
ui.setupUi(MainWindow)
MainWindow.show()
sys.exit(app.exec_())
データファイル名を入力し、「Analysis」ボタンを押すと、解析生データがグリッド(tableWidget)、Rで解析された結果がテキストボックスに表示されました。データファイルは、以下のスタイルのcsvファイルで実行するpythonプログラムと同じフォルダに置いておきます。
X,Y
235,591
216,539
・・・
R_GUI180415_2.png 問題なく結果が出力されました。ファイル読み込みとPypeRを使ったをRの解析部分のプログラムは以下の通りです。それぞれLoadDataFile関数、R_proc関数で実行しています。
# R_GUI_test.py
import pandas as pd
import pyper

class pyper_test(object):

def __init__(self, data_filename):
self.data_filename = data_filename

def LoadDataFile(self, data_filename):
self.data = pd.read_csv(data_filename) #Read data
self.data_rows = len(self.data.index)
self.data_columns = len(self.data.columns)

def R_proc(self, data):
r = pyper.R(use_pandas='True')
r.assign('df', data) # Send data to R
r("result <- lm(Y~X, data=df)") # Regression
# Results output
self.data_summary = r("summary(df)")
self.data_result = r("summary(result)")
GUIから身近にRのプログラムを実行できるので、何かと便利に使えそうです。いろいろ触ってみようと思います。
スポンサーサイト



コメント

非公開コメント

ご訪問者数

(Since 24 July, 2016)

タグクラウド


プロフィール

Dr.BobT

Author: Dr.BobT
興味のおもむくままに生涯考え続けるエンジニアでありたい。

月別アーカイブ

メールフォーム

名前:
メール:
件名:
本文: